Private Function Cn() As SqlConnection
Try
Dim strCn As String = "server=localhost;database=Northwind;uid=sa;pwd=;"
Cn = New SqlConnection(strCn)
Cn.Open()
Catch ex As Exception
Response.Write("Connect Database Err:" & ex.ToString)
End Try
End Function
Dim ConnectionString As String = "server=192.168.203.198;uid=sa;pwd=119707;database=pubs"
Dim CommandText As String = "select au_lname as [Last Name], au_fname as [First Name], Address, City, State from Authors"
Dim myConnection As New SqlConnection(ConnectionString)
Dim myCommand As New SqlCommand(CommandText, myConnection)
Dim myConnection As New SqlConnection("server=(local)\NetSDK;database=pubs;Trusted_Connection=yes")
Dim myCommand As New SqlDataAdapter("select * from Authors", myConnection)
Dim ds As New DataSet()
myCommand.Fill(ds, "Authors")