1、在窗體中放置data 資料控制元件,採用 ODBC 方式訪問 SQL 資料庫，可以這樣設定 ConStr="ODBC;Driver={SQL Server};Server=伺服器名稱（本地電腦名）; Uid=sa;Pwd=; DataBase=資料庫名;LoginTimeOut=0“ 設定 Data1 連線屬性 With Data1 .DatabaseName = "" .Connect = ConStr .RecordSource = ”Select * From 資料表“ "取得資料來源的SQL語句 .Refresh End With 這樣就可以連線資料庫了 。
2、在程式中利用 ADO 的方式 Dim myCon As New ADODB.Connection Dim snRes As New ADODB.Recordset Dim ConStr$ ConStr="Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa; Password=; Data Source =伺服器名;Initial Catalog=資料庫名;" "建立資料連線 myCon.Open ConStr ‘建立資料集 snRes.Open "Select * From 表名",myCon, adOpenStatic, adLockReadOnly 這裡開啟資料記錄集時，可以選擇多種引數,可以參考一下幫助檔案...
VB6 訪問SQL 資料庫一般有 ADO,DAO,ODBC 幾中方式，主要根據實際情況決定採用那種方式。如：
1、在窗體中放置data 資料控制元件,採用 ODBC 方式訪問 SQL 資料庫，可以這樣設定 ConStr="ODBC;Driver={SQL Server};Server=伺服器名稱（本地電腦名）; Uid=sa;Pwd=; DataBase=資料庫名;LoginTimeOut=0“ 設定 Data1 連線屬性 With Data1 .DatabaseName = "" .Connect = ConStr .RecordSource = ”Select * From 資料表“ "取得資料來源的SQL語句 .Refresh End With 這樣就可以連線資料庫了 。
2、在程式中利用 ADO 的方式 Dim myCon As New ADODB.Connection Dim snRes As New ADODB.Recordset Dim ConStr$ ConStr="Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa; Password=; Data Source =伺服器名;Initial Catalog=資料庫名;" "建立資料連線 myCon.Open ConStr ‘建立資料集 snRes.Open "Select * From 表名",myCon, adOpenStatic, adLockReadOnly 這裡開啟資料記錄集時，可以選擇多種引數,可以參考一下幫助檔案...