我個人因為經常作一些資料庫方面的程式，對於程式間如何與資料庫進行介面的問題之煩是深有體會，因為vb在資料庫鏈結的時候，一般是靜態，即資料庫存放的路徑是固定的，如用vb的data，adodc,dataenvironment 等到作資料庫鏈結時，如果存放資料庫的路徑被改變的話，就會找不到路經，真是乙個特別煩的事。
在form_load()過程中放入：
private form_load()
dim str as string '定義
if right(str, 1) <> "\" then
str = str + "\"
end if
data1.databasename=str & "\資料庫名"
data1.recordsource="資料表名"
data1.refresh
sub end
這幾句話的意為，開啟當前程式執行的目錄下的資料庫。
你只要保證你的資料庫在你程式所在的目錄之下就行了。
private form_load ()
dim str as string '定義
if right(str, 1) <> "\" then
str = str + "\"
end if
str = "provider=microsoft.jet.oledb.3.51;persist security info=false;data source=" & str & "\tsl.mdb"
adodc1.connectionstring = str
adodc1.commandtype = adcmdtext
adodc1.recordsource = "select * from table3"
adodc1.refresh
end sub
三、利用dataenvironment進行資料庫鏈結
可在過程中放入：
on error resume next
if dataenvironment1.rscommand1.state <> adstateclosed then
dataenvironment1.rscommand1.close '如果開啟，則關閉
end if
'i = inputbox("請輸入友人編號:", "輸入")
'if i = "" then exit sub
dataenvironment1.rscommand1.open "select * from table3 where 編號='" & i & "'"
'set datareport2.datasource = dataenvironment1
'datareport2.datamember = "command1"
'datareport2.show
end sub
四、利用ado(activex data objects)進行程式設計：
建立連線：
dim conn as new adodb.connection
dim rs as new adodb.recordset
dim str
if right(str, 1) <> "\" then
str = str + "\"
end if
str = "provider=microsoft.jet.oledb.3.51;persist security info=false;data source=" & str & "\tsl.mdb"
conn.open str
rs.cursorlocation=aduseclient
rs.open "資料表名",conn,adopenkeyset.adlockpessimistic
用完之後關閉資料庫：
conn.close
set conn=nothing
VB遠端連線資料庫字段設定
1 連線字串為 provider sqloledb.1 password 密碼 persist security info true user id 使用者名稱 initial catalog 資料庫名稱data source 遠端主機ip 2 1.引用ado 2.定義連線 dim conn as ...
VB與資料庫 資料庫連線
話說學生管理系統和機房收費系統都完成了，再回來說資料庫的連線真的好嗎？貌似不太好，但是誰讓自己欠賬了呢 除了還，還能有更好的解決方法嗎？前幾天說 紅皮書 中的七個物件。當時的反應哪七個，腦子完全一片空白，不知所云。所以找出來，再看看吧。vb6.0與sqlserver有源資料庫連線，vb6.0中資料訪...
VB連線ORACLE資料庫
開啟資料庫 public sub openoradb on error goto toexit oradb open false set oradb new adodb.connection oraconstr provider oraoledb.oracle.1 password strorapw...