敲学生的时候,代码基本是模仿源码,对于源码连接数据库的方法也是一知半解,现在敲机房,没有源码,就需要学会熟练的连接数据库。
对比学生连接数据库的方法,不难发现,其实就是一个固定的语句:txtSQL= "select * from 数据库表名 ",如果要
锁定到查询的行:txtSQL= "select * from 数据库名 where 数据库关键字 = '" & 关键字 "'"。然后接上一句:Set mrc=ExecuteSQL(txtSQL,MsgText)。如图
Dim txtSQL,MsgText As String
Dim mrc As ADODB.Recordset
txtSQL= "select * from User_Info where userID = '" & txtUserName.T