如何將此代碼更改爲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？

回答

相關問題