vb使用ado資料庫可以分為有源資料庫和無源資料庫，即是否使用了dsn資料來源，如下例：
1、在連線資料庫前首先要在vb選單中「工程」-「引用」從中選擇 microsoft activex data objects 2.6 library和 microsoft activex data objects recordset 2.6兩個元件，這是在連線資料前所必做的工作。
2、接下來定義ado的連線物件，如下所示：
set conn = new adodb.connection
set rs = new adodb.recordset
第一種方法採用的是無源的資料庫連線方法
conn.connectionstring = "driver=;server=jszx3-11;uid=sa;pwd=;database=wzc"
conn.connectiontimeout = 30
conn.open
rs.open "select 使用者名稱,密碼 from login where 使用者名稱='" & trim(combo1.text) & "' and 密碼='" & trim(text1.text) & "'", conn, adopenstatic, adlockreadonly, adcmdtext
if rs.eof = true and rs.bof then
m = msgbox("請重新登入", vbexclamation)
text1.text = ""
text1.setfocus
else
form1.hide
end if
rs.close
這是第二種方法連線資料庫的方法，這一種方法是採用有源的方法與資料庫連線的方法，**如下所示：
set conn = new adodb.connection
set rs = new adodb.recordset
conn.connectionstring = "dsn=login;uid=sa;pwd=;"
conn.connectiontimeout = 30
conn.open
rs.open "select 使用者名稱 from login", conn, adopenstatic, adlockreadonly, adcmdtext
dim i as string
for t = 0 to val(rs.recordcount) - 1
i = trim(rs.fields("使用者名稱").value)
rs.movenext
combo1.additem i
next t
rs.close
連線資料庫的方法很多很多，只要各位去勇敢的償試一下，就可以感覺資料庫的方法並不是很難，本人以前也很想做這方法的工作，只是學識不深，未能完成胸中大志，如今對這些方法的多少有一些了解，特意為那些初學者以供學習之用。
下面是連線資料庫具體**：
程式**
public conn as new adodb.connection
public rs as new adodb.recordset
public addflag as boolean
public function opencn() as boolean
dim mag as string
on error goto strerrmag
set conn = new adodb.connection
conn.connectiontimeout = 25
conn.provider = "sqloledb"
conn.properties("data source").value = "127.0.0.1" ''伺服器的名字
conn.properties("initial catalog").value = "chart" ''庫名
conn.properties("integrated security").value = "sspi" ''登陸型別
conn.open
opencn = true
addflag = true
exit function
strerrmag:
mag = "data can''t connect"
call msgbox(mag, vbokcancel, "error:data connect")
addflag = false
end
end function
public sub clocn()
on error resume next
if conn.state <> adstateclosed then conn.close
set conn = nothing
end sub
public function openrs(byval strsql as string) as boolean ''連線資料庫記錄集
dim mag as string
dim rpy as boolean
on error goto strerrmag
set rs = new adodb.recordset
if addflag = false then rpy = true
with rs
.activeconnection = conn
.cursorlocation = aduseclient
.cursortype = adopenkeyset
.locktype = adlockoptimistic
.open strsql
end with
addflag = true
openrs = true
exit function
strerrmag:
mag = "data not connect"
call msgbox(mag, vbokcancel, "error:connect")
openrs = false
end
end function
public sub clors()
on error resume next
if rs.state <> adstateclosed then rs.clone
set rs = nothing
end sub
VB連線SQL資料庫的方法
vb使用ado資料庫可以分為有源資料庫和無源資料庫，即是否使用了dsn資料來源，如下例 1 在連線資料庫前首先要在vb選單中 工程 引用 從中選擇 microsoft activex data objects 2.6 library和 microsoft activex data objects r...
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...