一、用data控件進行數(shù)據(jù)庫鏈接，可以這樣：
在form_load()過程中放入：
EndIf
data1.databasename=str&"/數(shù)據(jù)庫名"
data1.recordsource="數(shù)據(jù)表名"
data1.refresh
subend
這幾句話的意為，打開當前程序運行的目錄下的數(shù)據(jù)庫。
你只要保證你的數(shù)據(jù)庫在你程序所在的目錄之下就行了。
二、利用adodc（ADODataControl)進行數(shù)據(jù)庫鏈接：
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進行數(shù)據(jù)庫鏈接
可在過程中放入：
OnErrorResumeNext
IfDataEnvironment1.rsCommand1.State<>adStateClosedThen
DataEnvironment1.rsCommand1.Close'如果打開，則關(guān)閉
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"數(shù)據(jù)表名",conn,adopenkeyset.adlockpessimistic
用完之后關(guān)閉數(shù)據(jù)庫：
conn.close
setconn=nothing->
新聞熱點
疑難解答
