Rss & SiteMap

金字塔客服中心 - 专业程序化交易软件提供商 http://www.weistock.com/bbs/

专业程序化软件提供商
共3 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:vba数据库的问题

1楼
zm71212302 发表于:2020/2/3 3:28:07
数据库可以正常连接,请问如何判断数据库表已存在,因为在添加删除表之前需要有个判断,可如何返回这个逻辑条件没找到头绪,望老师帮助解答下哈。

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

2楼
yukizzc 发表于:2020/2/3 11:51:43

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

查所有表的命令show database不能使用

3楼
zm71212302 发表于:2020/2/3 12:34:50
好的,谢谢
共3 条记录, 每页显示 10 条, 页签: [1]


Powered By Dvbbs Version 8.3.0
Processed in 0.09375 s, 4 queries.