開啟vb6.0,新建工程sql_data,新建乙個exe，並新增乙個模組。如圖
。一：新增引用和部件(如下兩圖)藍色的兩個，是要選中打勾的。
注意，乙個是「引用」，乙個是「部件」。
二：新增乙個模組 data_sql，並把圖下面的複製貼上到模組中。 '連線sql的模組
public conn as adodb.connection
public rs as adodb.recordset
public addflag as boolean '宣告部分
public function opencn(byval cip as string, byval users as string, byval pw as string) 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 = cip '伺服器的名字
conn.properties("initial catalog").value = "pubs" '庫名
'conn.properties("integrated security").value = "sspi" '登陸型別
conn.properties("user id").value = users 'sql庫名
conn.properties("password").value = pw '密碼
'sql = "provider=sqloledb.1;persist security info=false;user id=sa;password=;initial catalog=pubs;data source=127.0.0.1" '如果不用這個模組也行可以，這一句便是常用的引擎。
'conn.connectionstring = sql
conn.open
opencn = true
if conn.state = 1 then addflag = true
exit function
strerrmag:
mag = "data can't connect"
call msgbox(mag, vbokonly, "error:data connect")
addflag = false
exit function '連線錯誤訊息
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
'end '將記錄集給rs
exit function
strerrmag:
mag = "data not connect"
call msgbox(mag, vbokonly, "error:connect")
openrs = false
end'exit function '連線錯誤訊息
end function
public sub clors()
on error resume next
if rs.state <> adstateclosed then rs.clone
set rs = nothing '釋放記錄集
end sub
把它放入到模組檔案中，以備呼叫。
private sub command1_click()
a = trim(text1.text)
b = trim(text2.text)
c = trim(text3.text)
call opencn(a, b, c)
if addflag = true then msgbox ("ok")
call openrs("select * from jobs")
set datagrid1.datasource = rs
'rs.close
end subprivate sub command2_click()
unload me
end sub
四：執行時的(下面兩圖) 到了這一步，乙個簡單的vb連線sql的例子就完成了
sql, vb
sql資料庫中自動記錄時間
vb+datagrid1的應用
VB連線SQL資料庫的方法
vb使用ado資料庫可以分為有源資料庫和無源資料庫，即是否使用了dsn資料來源，如下例 1 在連線資料庫前首先要在vb選單中 工程 引用 從中選擇 microsoft activex data objects 2.6 library和 microsoft activex data objects r...
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中資料訪...