(“server=bnewsome;database=pubs;user id=sa;password=!p@ssw0rd!;”)

imports system.data
imports system.data.sqlclient
public class form1
dim objconnection as new sqlconnection("server=localhost;uid=sa;pwd=;database=pubs")
dim objdataadapter as new sqldataadapter()
dim objdataset as new dataset()
private sub form1_load(byval sender as object, byval e as system.eventargs) handles me.load
' set the selectcommand properties...
Objdataadapter.selectcommand = new sqlcommand()
objdataadapter.selectcommand.connection = objconnection
objdataadapter.selectcommand.commandtext = "select au_lname, au_fname, title, price " & "from authors " & "join titleauthor on authors.au_id = titleauthor.au_id " & "join titles on titleauthor.title_id = titles.title_id " & _
"order by au_lname, au_fname"
objdataadapter.selectcommand.commandtype = commandtype.text
' open the database connection...
Objconnection.open()
' fill the dataset object with data...
Objdataadapter.fill(objdataset, "authors")
' close the database connection...
Objconnection.close()
' set the datagridview properties to bind it to our data...
Grdauthortitles.autogeneratecolumns = true
grdauthortitles.datasource = objdataset
grdauthortitles.datamember = "authors"
' clean up
objdataadapter = nothing
objconnection = nothing
end sub
end class

Click to expand...

an error has occurred while establishing a connection to the server. When connecting to sql server 2005, this failure may be caused by the fact that under the default settings sql server does not allow remote connections. (provider: Named pipes provider, error: 40 - could not open a connection to sql server)

Click to expand...