首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

小弟我在利用VB编程想把Excel表中的数据导入到Access数据库中,程序是照书上的,但是提示实时异常“424”“要求对象”

2012-03-30 
我在利用VB编程想把Excel表中的数据导入到Access数据库中,程序是照书上的,但是提示实时错误“424”“要求对象

我在利用VB编程想把Excel表中的数据导入到Access数据库中,程序是照书上的,但是提示实时错误“424”“要求对象”?
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.Open "provider=microsoft.jet.OLEDB.4.0;data source=" & App.Path & "\yuanziguangpushujuku.mdb;persist security info=false"
conn.Execute "select * into tmptable from[excel 8.0;database=" & cechushuju1.xls & "].[sheet1]"
conn.Execute "insert into yuanziguangpushujubiao(姓名,籍贯,性别,学历,面貌) select 姓名,籍贯,性别,学历,面貌 from tmptable"
conn.Execute "drop tabel tmptable"
Set conn = Nothing

急用,能快点帮我解决一下吗?谢谢了

[解决办法]

VB code
'在菜单:工程->引用 里面找 Microsoft ActiveX Data Object 2.8 Library'在菜单:工程->引用 里面找 Microsoft EXCEL 11.0 Library
[解决办法]
表yuanziguangpushujubiao在吗?
[解决办法]
从EXCEL导入ACCESS最好的方法还是使用access对象,而不是数据库方式:
首先工程添加access对象(就像引用excel对象一样)
Dim ACC As New Access.Application
ACC.OpenCurrentDatabase DBName '使用access对象打开目标数据库文件,如:c:\test.mdb
ACC.DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Sheet1", DestinationName, True, "Source!" 
就这样,楼主自己修改一下参数,已适应你自己的excel页名称和数据库表名称,详细参数介绍请google

[解决办法]
导出则是:
ACC.DoCmd.OutputTo acOutputTable, "Sheet3", acFormatXLS, DestinationName '从数据库导出到excel文件
ACC.CloseCurrentDatabase '关闭数据库
ACC.Quit '关闭对象
Set ACC = Nothing

当然,你的电脑上得安装ACCESS

热点排行