一、配置ODBC數據源
1、在控制面板中，雙擊管理工具，然後打開ODBC數據源管理器。
2、在「系統DSN」選項卡中，單擊「添加」按鈕，打開「創建新數據源」對話框，在「名稱」列表框中選擇「SQL Server」。選好單擊完成
3、在打開「建立新的數據源到SQL Server」對話框，在「名稱」文本框輸入新數據源的名稱，描述數據源按你理解的方式來寫(隨意)。「伺服器」就選擇你要連接到的伺服器。
4、選擇使用用戶輸入登錄的ID和密碼的SQL 驗證
。選連接SQL默認設置
5、再下一步下一步，完成。測試數據源看連接是否成功就行了。成功後按確定。
二、VB中設置連接
1、添加部件Mircrosoft ADO Data Control 6.0(OLEDB),把部件拖到窗體。
2、對ADO部件點右鍵選屬性，選擇使用連接字元串，按生成。
3、選擇Mircosoft OLE DB Providar for SQL Server
按下一步
4、
1、輸入伺服器名稱
2、使用指定的伺服器信息
3、在伺服器上選擇資料庫
這時就選擇你在SQL Server建好的資料庫就行了
5、測試連接可以看到連接是否成功！
⑵ vb中用sql語句查詢資料庫
"SELECT
sno,sco
FROM
sco
WHERE
sno='"
&
text1.text
&
"'"
因為現在不弄VB6了，所以具體怎麼連接的代碼我忘了，大概就是如果得到的結果RecordSet是空的，即Bof
And
Eof，則用戶名錯誤，否則如果規定了用戶名不可重復，就有且僅有1條記錄，再比較其中的sco與Text2.Text是否相等，是則正確通過，否則密碼錯誤。
⑶ Sql資料庫和vb的連接
'使用ADODB對象，必須先進行對象模型的引用，步驟如下
'通過菜單[工程] -- [引用]，勾選 Microsoft ActiveX Data Object 2.6 Library
'Microsoft ActiveX Data Object 2.7 Library
'Microsoft ActiveX Data Object 2.8 Library
'都可以
完整的代碼以及相關注釋如下：（代碼完全可以復制使用）
需要在窗體上添加一個按鈕和一個DataGrid1控制項
Option Explicit
Private Sub Command1_Click()
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>基本知識>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
'ADODB對象模型，是VB用來操作資料庫的有力工具，其中兩個對象最有價值；
'1.ADODB.Connection -- 用來連接資料庫文件:
'主要完成對資料庫以及數據表的操作；比如：創建資料庫，創建、刪除、復制數據表等等。
'2.ADODB.Recordset -- 用來返回數據記錄集:
'主要完成對記錄的操作；比如：返回記錄，添加、刪除記錄等等。使用SQL語句可以實現強大的功能。
'下面簡單介紹使用ADODB對象進行資料庫操作的步驟
'一，聲明並實例化對象
Dim Conn As ADODB.Connection '聲明連接資料庫對象 -- 用來連接資料庫文件，並對資料庫以及數據表的操作
Dim Rst As ADODB.Recordset '聲明數據記錄集對象 -- 用來返回數據記錄集，並對記錄的操作
Set Conn = New ADODB.Connection '資料庫對象的實例化
Set Rst = New ADODB.Recordset '記錄集對象的實例化
'二，連接資料庫文件
'執行 ADODB.Connection對象的Open方法，完成資料庫的連接
Conn.CursorLocation = adUseClient
'注意下面的一些參數，需要根據使用者的特定情況進行修改
'Password=密碼 中的「密碼」，是登錄SQL SERVER 的密碼
'User ID=實例名 中的「實例名」，是SQL SERVER 的實例名，一般使用「sa」
'Initial Catalog=資料庫名 中的「資料庫名」，只你要訪問的資料庫名
'Data Source=SQL SERVER伺服器名 中的「SQL SERVER伺服器名」是你要訪問使用的安裝了SQL SERVER的伺服器計算機名
Conn.Open "Provider=SQLOLEDB.1;Password=密碼;Persist Security Info=True;User ID=實例名;Initial Catalog=資料庫名;Data Source=SQL SERVER伺服器名"
'三，返回記錄集
'執行 ADODB.Recordset對象的Open方法，獲得記錄集
'注意，把「數據表名」改為你的實際數據表名稱
Rst.Open "Select * From 數據表名", Conn, adOpenKeyset, adLockPessimistic
Set DataGrid1.DataSource = Rst
Set Rst = Nothing '釋放記錄集對象
Set Conn = Nothing '釋放資料庫對象
End Sub
⑷ VB SQL查詢把表頭也顯示出來
你可以預設表頭的，如果預設的話，推薦使用flexgridview，這個可以編輯列表的，或者你可以用listview控制項動態添加表頭。