① 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"
杩椤彞浠g爜镓揿紑浜咲鐩树腑镄凪ain.mdb杩欎釜鏁版嵁搴.
Connection.Open鏂规硶镄勭涓涓鍙傛暟鏄杩炴帴浠g爜,瀹冨皢浼犻掔粰绯荤粺镄勬暟鎹搴揿紩镎.鍓嶅崐閮ㄥ垎"Provider= Microsoft.Jet.OLEDB.4.0",瀹冭〃绀轰简鏁版嵁搴撶殑绫诲瀷.涓嶅悓镄勬暟鎹搴揿彲鑳戒细涓嶅悓.钖庡崐鍙"Source=d:\main.mdb"瀹冭〃绀轰简鏁版嵁搴撴墍鍦ㄧ殑缁濆硅矾寰.
镓揿紑鏁版嵁搴扑箣钖,杩樿佹墦寮琛.锅囧傛暟鎹搴扑腑链変竴涓琛,琛ㄥ悕涓"Users",瀛楁垫湁涓や釜,涓涓涓鐢ㄦ埛钖,涓涓涓哄瘑镰.闾d箞鐪嬩互涓嬩唬镰.
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
杩欐椂,琛ㄥ凡缁忚镓揿紑,鎴戜滑灏辩敤浠ヤ笅浠g爜鎶婂畠鏄剧ず鍑烘潵.
Do whlie Not Recordset.eof
Print "鐢ㄦ埛钖: " & Recordset("鐢ㄦ埛钖").value & "瀵嗙爜: " & Recordset("瀵嗙爜").value
Recordset.MoveNext
Loop
Recordset.Close
鐢变互涓娄唬镰佺ず渚嫔彲浠ョ湅鍑,镓揿紑琛ㄦ椂,鍙浠ュ彧镓揿紑鍏朵腑镄勪竴涓瀛楁,涔熷彲浠ユ墦寮镓链.绗涓涓鍙傛暟鏄疭QL璇鍙.
Select [瀛楁靛悕] From 琛ㄥ悕 [Where 𨱒′欢]
杩欓噷镄勬浔浠跺彲浠ョ渷鐣.涓斿瓧娈靛悕涔熷彲浠ョ敤"*"𨱒ヤ唬镟挎墍链夊瓧娈.
闇瑕佹敞镒忕殑鏄,濡傛灉浣犵敤(1)涓镄勬柟娉曟墦寮,闾d箞(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鏂规硶,杩欐牱淇鏀规墠鑳界敓鏁.
钥屾坊锷犺板綍鍒椤彲浠ョ敤浠ヤ笅浠g爜𨱒ュ疄鐜:
Recordset.addnew
Recordset("鐢ㄦ埛钖").value = "Admin"
Recordset("瀵嗙爜").value = "Admin"
Recordset.Updata
杩欓噷,鍏堣佽皟鐢ˋddnew鏂规硶,澧炲姞涓𨱒℃柊璁板綍,铹跺悗瀵硅繖涓鏂拌板綍涓镄勫悇瀛楁佃祴鍊,链钖庡啀璋幂敤Updata鏂规硶.
鍒拌繖閲屽氨宸涓嶅氢简,链钖庤翠竴涓嬩笂闱㈡彁鍒扮殑鍑犱釜鏂规硶.
Recordset.Open SQL璇鍙,鏁版嵁婧,娓告爣绫诲瀷,镓揿紑鏂规硶
SQL璇鍙ヤ笉鐢ㄨ翠简,灏辨槸Select闾e暐镄,鐩镄勫氨鏄鎸夎佹眰浠庤〃涓杩斿洖鏁版嵁
鏁版嵁婧愬氨鏄涓涓镓揿紑涔嫔悗镄凛onnection瀵硅薄.
铡讳粬濡堢殑娓告爣绫诲瀷,濉1灏卞彲浠ヤ简 [锅风瑧ing]
镓揿紑鏂规硶瀵瑰簲浜嗗嚑涓甯告暟,鍏蜂綋鍝鍑犱釜鍙浠ヤ粠瀵硅薄娴忚埚櫒閲岀湅.
瀵瑰簲鏁板肩殑镒忎箟:
1 鍙璇 2 镫鍗 3 鍙鍐 4 镊宸插彲鍐,鍒浜哄彲璇
Connection.open 杩炴帴浠g爜,链嶅姟鍣ㄧ敤鎴峰悕,瀵嗙爜
杩欓噷镄勮繛鎺ヤ唬镰佸氨涓嶅湪澶氲翠简,链嶅姟鍣ㄧ敤鎴峰悕,瀵嗙爜鍙链夊湪杩炴帴杩灭▼鏁版嵁搴撴椂镓岖敤鍒.
② 濡备綍鍦╒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