Public Sub ReadUsers() Dim sql As String = "select * from users" Dim connString As ConnectionStringSettings ' Create connection Dim conn As Data.SqlClient.SqlConnection = New Data.SqlClient.SqlConnection(connString) Try ' Open connection conn.Open() ' Create command Dim cmd As Data.SqlClient.SqlCommand = New Data.SqlClient.SqlCommand(sql, conn) ' Create data reader Dim rdr As Data.SqlClient.SqlDataReader = cmd.ExecuteReader() ' Loop through result set While rdr.Read Console.WriteLine("" & rdr(0)) End While ' Close data reader rdr.Close() Catch MsgBox("Fail") End Try End SubCan you tell me how to define connString assuming the string is stored in webconfig as "MyConnStr" and is using VFPOLEDB?
>Dim sql As String = "select contactname from customers > >' Create connection >Dim conn As SqlConnection = New SqlConnection(connString) > >Try > ' Open connection > conn.Open() > > ' Create command > Dim cmd As SqlCommand = New SqlCommand(sql, conn) > > ' Create data reader > Dim rdr As SqlDataReader = cmd.ExecuteReader() > > ' Loop through result set > While rdr.Read > Console.WriteLine("" & rdr(0)) > End While > ' Close data reader > rdr.Close() > >>
>><<pseudo code>> >>dim oReader as Data.SQLClient.SQLDataReader = SqlDataSource1.DataReader >> >> While oReader.Read() >> Console.WriteLine(String.Format("{0}, {1}", oReader(0), oReader(1))) >> End While >>>>