VB連接SQL數據庫實例

Dim Cmd As New ADODB.Command
Dim conn As ADODB.Connection
Dim rs As New ADODB.Recordset

Set conn = New ADODB.Connection

conn.ConnectionString = "Provider=SQLOLEDB;server=192.168.3.51;uid=sa;pwd=sa;Initial Catalog=MyERP"
conn.ConnectionTimeout = 50
conn.Open
Dim str_0 As String  '第一列
Dim str_1 As String  '第二列
Dim str_2 As String  '第三列
Set rs = conn.Execute("select * from SystemSettingInfo where SettingInfo_Name = '視窗卡'")
If rs(0) <> "" Then
    str_0 = rs(0)
    str_1 = rs(1)
    str_2 = rs(2)
End If
conn.Close

其中，ADODB.Command、ADODB.Connection、ADODB.Recordset可能剛裝好的環境聲明時沒有這些對象，添加這些對象的方法：

選擇 “Project（即項目）” --> " References...（即引用）"  打開 References窗口，在列表中找到 “Microsoft ActiceX Data Objects 2.8 Library”項，添加。再聲明前面那三個對象就可以找到了。名稱中的“2.8”應該是一個版本。還有2.6、2.2等。（我是做項目臨時用到了VB。只供新手查看，一般學VB的這些應該都知道。）