从VB界面弄个框导入数据库的MDB文件怎么做？ 100
我想在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,adOpenKeyset ,adLockOptimistic
set executeSQL=objrecordset
end if
set objrecordset=nothing
set objconnection=nothing
exit function
ErrorTray:
set objrecordset=nothing
set objconnection=nothing
end function
引用
dim objrecordset as adodb.recordset
dim strSQL as string
strsql="（此处输入SQL语言)"
set objrecordset=executesql(strsql)
有关SQL语言请查阅：
http://www.w3school.com.cn/sql/sql_update.asp
1、 用打开对话家框 得到要导入文件的 路径
2、用ado 文件打开数据库
3、用ado 目标打开数据库
4、用for循环 读出元数据
5、用 instr 插入目标数据库
