怎样判断一个access数据库中某个表是否存在的方法

wushuiyou 2012-03-29 07:52:07
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & App.Path & "\storage.accdb" & ";Persist Security Info=False"
Set rs = cn.OpenSchema(adSchemaTables)

Do Until rs.EOF
If rs!TABLE_NAME = Text3.Text Then
MsgBox "存在此表名"
Else
Call db.Execute("select * into " & Text3.Text & " From [Sheet1$] In '" & sPath & "' 'excel 8.0;'")
MsgBox "导出成功", vbOKOnly, "提示"
db.Close
Set db = Nothing
Exit Do
End If
rs.MoveNext
Loop
改了,可是为什么不执行Else后面的语句呢?
...全文
103 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
oshi002 2012-06-15
哦,这样的问题啊。看看。
回复
wushuiyousheng 2012-03-30
If rs!TABLE_NAME <> Text3.Text Then
Dim db1 As New ADODB.Connection
db1.Open "Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & App.Path & "\storage.accdb" & ";Persist Security Info=False"
Call db1.Execute("select * into " & Text3.Text & " From [Sheet1$] In '" & sPath & "' 'excel 8.0;'")
db1.Close
MsgBox "导出成功", vbOKOnly, "提示"

Set db = Nothing

End If


Do Until rs.EOF
If rs!TABLE_NAME = Text3.Text Then
MsgBox "存在此表名"
Exit Do
End If
rs.MoveNext
Loop
回复
SuperLampard 2012-03-30
不明白楼主的意思,可否详细点?
回复
相关推荐
发帖

1187

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2012-03-29 07:52
社区公告
暂无公告