以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  vba数据库的问题  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=174129)
--  作者：zm71212302
--  发布时间：2020/2/3 3:28:07
--  vba数据库的问题
数据库可以正常连接，请问如何判断数据库表已存在，因为在添加删除表之前需要有个判断，可如何返回这个逻辑条件没找到头绪，望老师帮助解答下哈。

dim adoConn,strSqlcre1,strSqlcre2
Set adoConn=CreateObject("Adodb.Connection")
\'连接数据库
dim report1,strSqlalt1,strSqlalt2
adoConn.Open"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=d:\\test.mdb"
Set Report1=MarketData.GetReportData("if00","zj")

\'创建表if00
\'插入字段
\'{－－－－－－－－－－这里想加个判断－－－－－－－－－－－－－－}
IF IF00表=FALSE THEN
\'添加表
strSqlalt1="alter table if00 add stockdate double"
strSqlalt2="alter table if00 add vclose double"
adoConn.Execute(strSqlalt1)
adoConn.Execute(strSqlalt2)

ELSE
MSGBOX "表已存在"

END IF
--  作者：yukizzc
--  发布时间：2020/2/3 11:51:43
--  

好像没办法查表，只有select insert支持这几个命令

查所有表的命令show database不能使用
--  作者：zm71212302
--  发布时间：2020/2/3 12:34:50
--  
好的，谢谢