vb如何引用ab資料庫

① VB濡備綍璋冪敤Access鏁版嵁搴擄紵

棣栧厛,鎴戜滑闇瑕佸紩鐢ˋDO.鍏蜂綋鐨勬柟娉曟槸,鍦"宸ョ▼" -- "寮曠敤" 涓,鎵懼埌"Microsoft ActiveX Data Object *.* Library",榪欓噷鐨"*.*"鏄鎸囩殑鏃禔DO鐨鐗堟湰鍙,涓鑸鏉ヨ,搴旂敤紼嬪簭鎴ActiveX鎺т歡閮藉叿鏈夊悜涓嬪吋瀹規,鎵浠ユ垜浠灝藉彲鑳介夋嫨姣旇緝鏂扮殑鐗堟湰.浠ョ『淇濈▼搴忓湪鑳借瘑鍒鏃х増鏈珹ccess鐨勫悓鏃,涔熻兘璇嗗埆杈冩柊鐗堟湰鐨凙ccess.
鐒跺悗鎴戜滑闇瑕佸湪紼嬪簭涓鍒涘緩涓涓瀵硅薄.灝卞ソ姣旀垜浠鍦ㄧ獥浣撲笂娣誨姞涓涓狥ileBox鎵嶈兘鐪嬪埌鏂囦歡鍚嶄竴鏍,鍙鏈夊壋寤轟簡ADO瀵硅薄,鎴戜滑鎵嶈兘澶熻塊棶鏁版嵁搴.甯哥敤鐨勫硅薄鏈変袱涓,Connection鍜孯ecordset.
鍒涘緩榪欎袱涓瀵硅薄鐨勫叿浣撴柟娉曟槸:
1.鍦ㄥ紩鐢ㄥ悗,浣跨敤New鍏抽敭瀛,濡
Private Conn As New ADODB.Connection
Private Reco As New ADODB.Recordset
2.鍦ㄦ病寮曠敤鏃,鐢–reateObject鍒涘緩瀵硅薄:
Dim Conn,Reco
Set Conn = CreateObject("ADODB.Connection")
Set Reco = CreateObject("ADODB.Recordset")
鍒涘緩浜嗗硅薄涔嬪悗,涓嬩竴姝ユ垜浠瑕佸仛鐨勫氨鏄鎵撳紑鏁版嵁搴撲簡.
鍏堢湅涓嬮潰鐨勪唬鐮,鍙浠ユ垚鍔熺殑鎵撳紑鏁版嵁搴.
Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Main.mdb"
榪欏彞浠ｇ爜鎵撳紑浜咲鐩樹腑鐨凪ain.mdb榪欎釜鏁版嵁搴.
Connection.Open鏂規硶鐨勭涓涓鍙傛暟鏄榪炴帴浠ｇ爜,瀹冨皢浼犻掔粰緋葷粺鐨勬暟鎹搴撳紩鎿.鍓嶅崐閮ㄥ垎"Provider= Microsoft.Jet.OLEDB.4.0",瀹冭〃紺轟簡鏁版嵁搴撶殑綾誨瀷.涓嶅悓鐨勬暟鎹搴撳彲鑳戒細涓嶅悓.鍚庡崐鍙"Source=d:\main.mdb"瀹冭〃紺轟簡鏁版嵁搴撴墍鍦ㄧ殑緇濆硅礬寰.
鎵撳紑鏁版嵁搴撲箣鍚,榪樿佹墦寮琛.鍋囧傛暟鎹搴撲腑鏈変竴涓琛,琛ㄥ悕涓"Users",瀛楁墊湁涓や釜,涓涓涓鐢ㄦ埛鍚,涓涓涓哄瘑鐮.閭ｄ箞鐪嬩互涓嬩唬鐮.
1.鎯寵繑鍥"Users"涓,[鐢ㄦ埛鍚峕涓"鍘誨勾鐑熻姳"鐨刐瀵嗙爜]
Recordset.open "Select 瀵嗙爜 From Users Where 鐢ㄦ埛鍚='鍘誨勾鐑熻姳'",Connection,1,1

涔嬪悗鎴戜滑灝卞彲浠ユ妸鐢ㄦ埛杈撳叆鐨勫瘑鐮佽繘琛屾瘮杈,鐪嬫槸鍚﹀厑璁哥櫥褰.
If Recordset.eof and Recordset.bof then
Msgbox "鐢ㄦ埛涓嶅瓨鍦!",16
Else
If PassWord =Recordset("瀵嗙爜").value then
msgbox "鐧誨綍鎴愬姛!",64
Else
msgbox "瀵嗙爜閿欒!",32
End If
End If
Recordset.Close
2.鍋囪続dmin宸茬粡鎴愬姛鐧誨綍緋葷粺,鎴戜滑鎯蟲妸鎵鏈夌殑鐢ㄦ埛鍚嶅拰瀵嗙爜閮芥樉紺哄嚭鏉
Recordset.open "Select * From Users",Connection,1,1
榪欐椂,琛ㄥ凡緇忚鎵撳紑,鎴戜滑灝辯敤浠ヤ笅浠ｇ爜鎶婂畠鏄劇ず鍑烘潵.
Do whlie Not Recordset.eof
Print "鐢ㄦ埛鍚: " & Recordset("鐢ㄦ埛鍚").value & "瀵嗙爜: " & Recordset("瀵嗙爜").value
Recordset.MoveNext
Loop
Recordset.Close
鐢變互涓婁唬鐮佺ず渚嬪彲浠ョ湅鍑,鎵撳紑琛ㄦ椂,鍙浠ュ彧鎵撳紑鍏朵腑鐨勪竴涓瀛楁,涔熷彲浠ユ墦寮鎵鏈.絎涓涓鍙傛暟鏄瘲QL璇鍙.
Select [瀛楁靛悕] From 琛ㄥ悕 [Where 鏉′歡]
榪欓噷鐨勬潯浠跺彲浠ョ渷鐣.涓斿瓧孌靛悕涔熷彲浠ョ敤"*"鏉ヤ唬鏇挎墍鏈夊瓧孌.
闇瑕佹敞鎰忕殑鏄,濡傛灉浣犵敤(1)涓鐨勬柟娉曟墦寮,閭ｄ箞(2)鍚庨潰鏄劇ず鐨勪唬鐮佸氨涓嶈兘鍐嶇敤鍦(1)涓.鍥犱負(1)閲屽苟娌℃湁鎵撳紑[鐢ㄦ埛鍚峕瀛楁,鎵浠ヨ繖涓鍙Recordset("瀵嗙爜")灝辨病鏈夊煎瓨鍦,榪樻湁鍙鑳藉嚭閿.
鍚庨潰鐨勬潯浠,鍙浠ョ敤"="銆">"銆"<"絳榪愮畻絎.姣斿 "Where ID > 32".(榪欓噷鍋囪綶ID]涓烘暟瀛楀瀷.)

榪欐槸鎵撳紑鐨勯儴鍒.絎浜屼釜寰堥噸瑕佺殑閮ㄥ垎灝辨槸鏌ヨ㈣板綍.
鏁版嵁搴撳畠騫朵笉鏄鎶婃墍鏈夎板綍鍏ㄩ儴鏀懼埌涓涓鍙橀噺涓澶囩敤鐨.鑰屾槸浠"褰撳墠璁板綍"鐨勫艦寮忔潵榪斿洖涓涓鍊.鎵浠ユ垜浠鎯充粠涓鎵懼埌鏈夌敤鐨勪俊鎮,灝卞繀欏昏佸逛俊鎮榪涜屽畾浣/絳涢.
瀹氫綅:
縐誨姩鍒頒笅涓鏉 Recordset.MoveNext
縐誨姩鍒頒笂涓鏉 Recordset.MovePrevious
縐誨姩鍒版渶鍚庝竴鏉 Recordset.MoveLast
縐誨姩鍒扮涓鏉 Recordset.MoveFrist
縐誨姩鍒版煇涓鏉 Recordset.Move Number
絳涢:
Recordset.Find "鏉′歡"
濡:[鐢ㄦ柟娉(2)鎵撳紑琛ㄤ箣鍚嶿
Private Sub Command1_Click()
Recordset.Find "鐢ㄦ埛鍚=" & "text1.text"
If Recordset.Eof <> True Then
Msgbox "璇ョ敤鎴風殑瀵嗙爜鏄:" & Recordset("瀵嗙爜").value,64
Else
Msgbox "鏈鎵懼埌璇ョ敤鎴風殑璧勬枡!",16
End If
End Sub
MoveNext 鍙鏈夊綋Eof涓嶄負True鏃,鎵嶅彲鐢,鍚﹀垯鍙戠敓閿欒.鑰孧ovePrevious鍒氭槸Bof涓嶄負True鏃....
鑰屽彧瑕丒of 鍜 Bof涓鏈変竴涓涓嶄負鐪熸椂,涔熷氨鏄璇村彧瑕佹湁涓鏉¤板綍鏃,瀹冨氨鍙浠ヤ嬌鐢.

Find 鏂規硶涓鐨勬潯浠跺拰Open鏃剁殑絎涓涓鍙傛暟涓鐨勬潯浠惰〃榪版柟娉曟槸瀹屽叏涓鑷寸殑.褰撳湪宸叉墦寮鐨勮板綍闆嗕腑,鎵句笉鍒拌ヨ板綍鏃,Eof涓篢rue.鎵懼埌鍒欏綋鍓嶇殑鍊煎氨鏄絎﹀悎鏉′歡鐨勮板綍.

絎涓変釜閮ㄥ垎灝辨槸娣誨姞/淇鏀硅板綍.
淇鏀硅板綍寰堢畝鍗,鍏堟寜浠ヤ笂鐨勬柟娉曟壘鍒扮浉鍏寵板綍涔嬪悗,緇欒板綍璧嬪煎氨鍙浠ヤ簡.
姣斿:[(淇鏀瑰瘑鐮)鎸夋柟娉(1)鎵撳紑琛ㄤ箣鍚嶿
Recordset("瀵嗙爜").value = "123456"
Recordset.Updata
闇瑕佹敞鎰忕殑灝辨槸,鍦ㄤ慨鏀瑰畬鎴愬悗,瑕佽皟鐢║pdata鏂規硶,榪欐牱淇鏀規墠鑳界敓鏁.
鑰屾坊鍔犺板綍鍒欏彲浠ョ敤浠ヤ笅浠ｇ爜鏉ュ疄鐜:
Recordset.addnew
Recordset("鐢ㄦ埛鍚").value = "Admin"
Recordset("瀵嗙爜").value = "Admin"
Recordset.Updata
榪欓噷,鍏堣佽皟鐢ˋddnew鏂規硶,澧炲姞涓鏉℃柊璁板綍,鐒跺悗瀵硅繖涓鏂拌板綍涓鐨勫悇瀛楁佃祴鍊,鏈鍚庡啀璋冪敤Updata鏂規硶.
鍒拌繖閲屽氨宸涓嶅氫簡,鏈鍚庤翠竴涓嬩笂闈㈡彁鍒扮殑鍑犱釜鏂規硶.
Recordset.Open SQL璇鍙,鏁版嵁婧,娓告爣綾誨瀷,鎵撳紑鏂規硶
SQL璇鍙ヤ笉鐢ㄨ翠簡,灝辨槸Select閭ｅ暐鐨,鐩鐨勫氨鏄鎸夎佹眰浠庤〃涓榪斿洖鏁版嵁
鏁版嵁婧愬氨鏄涓涓鎵撳紑涔嬪悗鐨凜onnection瀵硅薄.
鍘諱粬濡堢殑娓告爣綾誨瀷,濉1灝卞彲浠ヤ簡 [鍋風瑧ing]
鎵撳紑鏂規硶瀵瑰簲浜嗗嚑涓甯告暟,鍏蜂綋鍝鍑犱釜鍙浠ヤ粠瀵硅薄嫻忚堝櫒閲岀湅.
瀵瑰簲鏁板肩殑鎰忎箟:
1 鍙璇 2 鐙鍗 3 鍙鍐 4 鑷宸插彲鍐,鍒浜哄彲璇
Connection.open 榪炴帴浠ｇ爜,鏈嶅姟鍣ㄧ敤鎴峰悕,瀵嗙爜
榪欓噷鐨勮繛鎺ヤ唬鐮佸氨涓嶅湪澶氳翠簡,鏈嶅姟鍣ㄧ敤鎴峰悕,瀵嗙爜鍙鏈夊湪榪炴帴榪滅▼鏁版嵁搴撴椂鎵嶇敤鍒.

② 濡備綍鍦╒B涓寮曠敤ADO

鍦╒B6.0涓寮曠敤ADO錛

• 閫氳繃閫夋嫨鈥滃伐紼嬧濊彍鍗曚腑鐨勨滃紩鐢...鈥濇潵涓 ADO 瀵硅薄搴撴坊鍔犱竴涓寮曠敤錛岀劧鍚庡湪鈥滃紩鐢...鈥濆硅瘽妗嗕腑閫夋嫨 Microsoft ActiveX Data Objects 2.0 Library

  

• 鐐逛笂鍥劇『瀹氥傚伐紼嬪氨寮曠敤浜咥DO銆

• 榪愯屼唬鐮佺ず渚嬶細

  Private Sub Command1_Click()

  Dim cn As New ADODB.Connection '瀹氫箟鏁版嵁搴撶殑榪炴帴

  Dim rs As New ADODB.Recordset '澹版槑涓涓 Recordset 瀵硅薄鍙橀噺

  Dim sql As String

  
  

  sql = "select * from jishijilu"

  cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "wd.mdb;Persist Security Info=False"

  cn.Open

  rs.CursorLocation = adUseClient

  rs.Open sql, cn, adOpenDynamic, adLockOptimistic

  Set DataGrid1.DataSource = rs

  End Sub

• 寮曠敤ADO鐨勬渶綆鏂規硶鏄鏂板緩涓涓鏁版嵁宸ョ▼錛屽畠浼氳嚜鍔ㄥ紩鐢ˋDO鍜屽姞杞紸DO鏁版嵁鎺т歡鍜岀浉鍏寵〃鏍兼帶浠躲
  

③ VB怎麼調用資料庫數據

VB可將Sql結構化查詢語句賦值Ado(ActiveX 數據對象)或ADO Data 控制項，訪問和操作資料庫。

ADO (ActiveX 數據對象)，這項新的數據訪問技術的特性包括：更簡單的對象模型；與其它 Microsoft 和非 Microsoft 的技術更好的集成；為本地和遠程數據數據提供的通用介面；可遠程訪問的和斷開的記錄集；用戶可訪問的數據綁定介面；以及層次結構的記錄集。

ADO Data 控制項， 這是一種新的、OLEDB 識別的數據源控制項，其功能與內部的 Data 控制項和 Remote Data 控制項十分相似，通過這種方式允許用戶用最少的代碼來創建資料庫應用程序。

Visual Basic 6.0 中，已經可以將任何 ADO/OLE DB 數據源綁定到任何 ADO/OLE DB 數據使用者上。在運行時，可以設置控制項的 DataSource 屬性來將控制項動態地綁定到數據源。可以創建用作數據源和數據使用者的類，並且通過新的 BindingsCollection 對象將這些類綁定在一起。可以創建與 ADO 數據控制項相似的、用作數據源的用戶控制項。還可以創建與 DataGrid 控制項相似的、復雜綁定的用戶控制項。

以下是經ADO (ActiveX 數據對象)訪問Access資料庫的實例代碼：

DimcnnAsNewConnection
DimrsAsNewRecordset
DimsqlAsString
DimARR
cnn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:wdOld.mdb;PersistSecurityInfo=False"
sql="select故障名稱fromguzhang_bm"
rs.Opensql,cnn
Combo1.Text="故障名稱"
DoWhileNotrs.EOF
Combo1.AddItemrs("故障名稱")
rs.MoveNext'打開表
Loop
rs.Close
cnn.Close

以下是使用ADO Data 控制項訪問Access資料庫德實例代碼：

Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"wd.mdb;PersistSecurityInfo=False"
Adodc1.RecordSource="select*fromjishijilu"'whereshijianlike'%8112%'Andgyh_riqilike'%10%'"
Adodc1.Refresh
SetMSHFlexGrid1.DataSource=Adodc1
MSHFlexGrid1.Row=1
MSHFlexGrid1.ColSel=MSHFlexGrid1.Cols-1