如:
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
這裏打開數據記錄集時,可以選擇多種參數,可以參考壹下幫助文件...