欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → vba数据库的问题

   

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。    

  共有2883人关注过本帖树形打印复制链接

主题：vba数据库的问题
美女呀，离线，留言给我吧！
zm71212302
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：201 积分：0 威望：0 精华：0 注册：2013/4/6 22:01:12 		vba数据库的问题  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
yukizzc
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：21598 积分：0 威望：0 精华：1 注册：2010/7/31 16:35:30 		  发帖心情 Post By：2020/2/3 11:51:43 [只看该作者]

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

查所有表的命令show database不能使用
 回到顶部
美女呀，离线，留言给我吧！
zm71212302
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：201 积分：0 威望：0 精华：0 注册：2013/4/6 22:01:12 		  发帖心情 Post By：2020/2/3 12:34:50 [只看该作者]

好的，谢谢

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.12500 秒, 5 次数据查询