vb数据库连接错误 “要求对象”

Mashlino_lily 2012-09-25 11:32:31

Dim Conn2 As ADODB.Connection
Set Conn2 = New ADODB.Connection
Conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Nongduku.mdb;Persist Security info=False"
Conn2.Execute "select * into tmptable from [excel 8.0;database=" & nongduku.xls & "].[sheet1$]"

Conn2.Execute "insert into nongdubiao(日期,时间,浓度) select日期,时间,浓度 from tmptable"
Conn2.Execute "drop tabel tmptable"
Set Conn2 = nonthing

本来是照书上抄的，只改了一下数据库名，运行到 conn2.execute" select。。。这一句时，总说“ 要求对象”，这是什么错误，这么改？

...全文

255 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

ttpsan550 2012-09-25

打赏
举报



dim sql as string 

sql = "if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[tmptable]') and    OBJECTPROPERTY(id, N'IsUserTable') = 1) drop table tmptable

Conn2.Execute sql

Mashlino_lily 2012-09-25

打赏
举报

还是不能删掉，总说 tmptable已存在

孤独剑_LPZ 2012-09-25

打赏
举报

改为
Conn2.Execute "delete from tmptable"

Mashlino_lily 2012-09-25

打赏
举报

Conn2.Execute "drop tabel tmptable" 语法错误

孤独剑_LPZ 2012-09-25

打赏
举报

出错那句前面加一句
Conn2.Execute "drop tabel tmptable"

Mashlino_lily 2012-09-25

打赏
举报

加上" & App.Path & 能运行了，又说tmptable 已存在，

Mashlino_lily 2012-09-25

打赏
举报

真邪门，上午试着不行，下午又行了，按照2楼说法执行不出错了

孤独剑_LPZ 2012-09-25

打赏
举报

mdb数据库不能用drop,所以会报错,每次把表清空即可
Dim Conn2 As ADODB.Connection
Set Conn2 = New ADODB.Connection
Conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Nongduku.mdb;Persist Security info=False"
Conn2.Execute "insert into tmptable (日期,时间,浓度) select s1,s2,s3 from [excel 8.0;database=" & App.Path & nongduku.xls & "].[sheet1$]"

Conn2.Execute "insert into nongdubiao(日期,时间,浓度) select日期,时间,浓度 from tmptable"
Conn2.Execute "delete from tmptable"
Set Conn2 = nonthing