从VB界面弄个框导入数据库的MDB文件怎么做？

来源：百度知道 编辑：UC知道 时间：2024/05/14 06:19:58
现在我用access7.0建了个数据库X.mdb文件
我想在VB界面弄个什么框框的东西，用来导入x.mdb文件，我具体该怎么做
最好有代码，
我是菜鸟，别骂我。OK
帮忙到底高分送！谢谢
我不想用ADODC等控件来连接数据库，

你的意思是吧数据库的数据导入vb框中？

中选中 Microsoft ActiveX Data Object 2.5 library 

代码

function ExecuteSQL( byval strSQL as string ) as ADODB.recordset

on error goto ErrorTary

dim objRecordset as adodb.Recordset

dim objConnection as adodb.connection

dim strArr() as string

set objconnection=new adodb.connection

objconnection.connectionstring="Microsoft.Jet.OLEDB.4.0;Data source=" & app.path & "\x.mdb"

objconnection.open

strarr=split(strSQL)

if instr("DELETE,INSERT,UPDATE",ucase(strarr(0))) then

   objconnection.execute strsql

else

   set objrecordset=new adodb.objrecordset

   objrecordset.open trim(strsql),objconnection,adOpe