您的位置首页百科问答

vb连接access数据库实例

vb连接access数据库实例

工程-引用-勾选 Microsoft Active Data Objects 2.6 Library代码部分dim cn as new adodb.connectiondim rs as adodb.recordsetprivate sub form_load()cn.open “provider=microsoft.jet.oledb.4.0;data source=” & app.path & “\123.mdb”春毕set rs=new adodb.recordsetrs.open“select * from 数据库字段名 where 数据库字段名=`” & trim(text1.text) & “`”,cnend subprivate sub command_clickif rs.eof=false then msgbox rs(“数据庆盯库字段名”)end sub手机打的可能有错扒差芹!