vb mysql 查询_vb中用sql语句查询数据库

给你个完整的吧。Dimrs1AsNewADODB.Recordset'定义数据集对象

DimcnnAsNewADODB.Connection'定义数据连接

PrivateSubConnx()'数据库连接下面的123.mdb换成自己的数据库

OnErrorResumeNext

cnn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=123.mdb;PersistSecurityInfo=False"

IfErrThen

Err.Clear:cnn.Close

MsgBox"数据库连接出错！"

ExitSub

EndIf

EndSub

PrivateSubComman1_Click()

connx'打开数据库连接

rs1.Open"select*fromscwheresno='"&text1.text&"'andsco='"&text2.text&"'",cnn,adOpenKeyset,adLockOptimistic

Ifrs1.BOFThen

MsgBox"学员密码错误！"

Else

form2.show

EndIf

EndSub