一、用data控件進行數據庫鏈接，可以這樣：
在form_load()過程中放入：
EndIf
data1.databasename=str&"/數據庫名"
data1.recordsource="數據表名"
data1.refresh
subend
這幾句話的意為，打開當前程序運行的目錄下的數據庫。
你只要保證你的數據庫在你程序所在的目錄之下就行了。
二、利用adodc（ADODataControl)進行數據庫鏈接：
privateform_load()
DimstrAsString'定義
str=App.Path
IfRight(str,1)<>"/"Then
str=str "/"
EndIf
str="Provider=Microsoft.Jet.OLEDB.3.51;PersistSecurityInfo=False;DataSource="&str&"/tsl.mdb"
Adodc1.ConnectionString=str
Adodc1.CommandType=adCmdText
Adodc1.RecordSource="select*fromtable3"
Adodc1.Refresh
endsub
三、利用DataEnvironment進行數據庫鏈接
可在過程中放入：
OnErrorResumeNext
IfDataEnvironment1.rsCommand1.State<>adStateClosedThen
DataEnvironment1.rsCommand1.Close'如果打開，則關閉
EndIf
'i=InputBox("請輸入友人編號:","輸入")
'Ifi=""ThenExitSub
DataEnvironment1.Connection1.OpenApp.Path&"/userdatabase/tsl.mdb"
DataEnvironment1.rsCommand1.Open"select*fromtable3where編號='"&i&"'"
'SetDataReport2.DataSource=DataEnvironment1
'DataReport2.DataMember="command1"
'DataReport2.show
endsub
四、利用ADO(ActiveXDataObjects)進行編程：
建立連接：
dimconnasnewadodb.connection
dimrsasnewadodb.recordset
dimstr
str=App.Path
IfRight(str,1)<>"/"Then
str=str "/"
EndIf
str="Provider=Microsoft.Jet.OLEDB.3.51;PersistSecurityInfo=False;DataSource="&str&"/tsl.mdb"
conn.openstr
rs.cursorlocation=aduseclient
rs.open"數據表名",conn,adopenkeyset.adlockpessimistic
用完之后關閉數據庫：
conn.close
setconn=nothing
以上代碼在VB6，win98上運行通過，如有問題請發郵件給我：
作者：張振興
E_mail:xingyun0615@sina.com
新聞熱點
疑難解答
