><configuration> > <connectionStrings> > <add name="MyConnStr" connectionString="Provider=vfpoledb.1;Data Source=c:\MyDataBaseDir\;Collating Sequence=general" /> > </connectionStrings> ></configuration> >>
>// you need a using also: >using System.Configuration > >string cConnection = ConfigurationManager.ConnectionStrings["MyConnStr"].ConnectionString; >>
>> 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 Sub >>>>Can 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 >>>>>>>>