如何将此代码更改为SqlConnection？

任何人都可以将此代码改为SqlConnection？如何将此代码更改为SqlConnection？

Dim Db As ADODB.Connection 
Dim rs As ADODB.Recordset 

Set Db = New ADODB.Connection 
Db.ConnectionString = GetConnectString & AppPath & "schedule.mdb" 
Call Db.Open 
Set rs = New ADODB.Recordset 
Set rs = Db.Execute("select * from tbl_Schedule where StartDate = #1/1/2002#") 

While Not rs.EOF 
Call Me.Schedule1.ScheduleItems.Add("", #1/1/2002#, rs!StartTime, _ 
rs!Length, rs!Description, "") 
Call rs.MoveNext 
Wend

来源

2013-07-06 jomachi

我敢肯定，很多人可以执行这种转换，但StackOverflow上需要你做出你自己的第一个尝试，然后发布一个关于具体问题您在转换过程中遇到的问题。 –

我知道我的朋友，但是如果我解决了这个问题，我会在很长一段时间后结束一个应用程序，我想使用它。 – jomachi

您将从Access访问SQL服务器？你知道连接字符串吗？或者您正在使用Access并转换为vb.net？ – IvanH

请找到下面的代码段，它可以帮助您从sql数据库中获取数据。您可以使用您的值更改脚本。导入System.Data.SqlClient命名空间与工作的SqlConnection

Dim connection As New SqlConnection("Server=.\sqlexpress;Integrated security=sspi;database=Automation") 
Dim query As String = "Select * from Heads" 
If connection.State = ConnectionState.Closed Then connection.Open() 
    Using cmd As New SqlCommand(query, connection) 
     Dim reader As SqlDataReader = cmd.ExecuteReader 
     While reader.Read 
      ListBox1.Items.Add(reader("HeadName").ToString) 
     End While 
     reader.Close() 
     connection.Close() 
    End Using

来源

2013-07-06 20:28:43

谢谢我的朋友的回应。 – jomachi

你总是欢迎日本人和快乐编码:) –

如何将此代码更改为SqlConnection？

回答

相关问题