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


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

   

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


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

主题:VBA数据库操作出问题

帅哥哟,离线,有人找我吗?
天涯doa
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:43 积分:1 威望:0 精华:0 注册:2013/3/9 23:18:00
VBA数据库操作出问题  发帖心情 Post By:2016/3/11 18:24:19 [只看该作者]

想利用VBA进行动态的数据存取,那么数据库的表名就是不断变化的

以下内容为程序代码:

1 TCCODE="600848"
2 strSqlalt2="alter table " & TCCODE & " add open single"
3 adoConn.Execute(strSqlalt2)

在上面代码中变量代替表名,然后测试向里面插入字段,结果金字塔报错,说字段定义语法不正确,print一下结果是

alter table 600000 add open single ,没看出是哪里出问题了啊

数据库的连接什么的都是正常的,已经蒙了,求版主帮忙!


 回到顶部
帅哥哟,离线,有人找我吗?
马良
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:1516 积分:229 威望:0 精华:0 注册:2012/3/30 12:40:56
  发帖心情 Post By:2016/3/11 21:58:04 [只看该作者]

在数据库中直接执行sql语句看是否通过那?

 回到顶部
帅哥哟,离线,有人找我吗?
马良
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:1516 积分:229 威望:0 精华:0 注册:2012/3/30 12:40:56
  发帖心情 Post By:2016/3/11 21:59:33 [只看该作者]

先用排除法试试

 回到顶部
帅哥哟,离线,有人找我吗?
天涯doa
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:43 积分:1 威望:0 精华:0 注册:2013/3/9 23:18:00
  发帖心情 Post By:2016/3/12 11:11:52 [只看该作者]

试了,在access里执行alter table 600000 add open single 这个sql语句是可以的

然后又测试了下

strSqlalt2=“alter table 600000 add open single

adoConn.Execute(strSqlalt2)

也是可以的,然后就彻底不会了....


 回到顶部
帅哥哟,离线,有人找我吗?
天涯doa
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:43 积分:1 威望:0 精华:0 注册:2013/3/9 23:18:00
  发帖心情 Post By:2016/3/12 11:57:42 [只看该作者]

发现个问题,不知道算不算bug,用下面代码加字段时,第一个可以加,到第二句就报错,然后把字段名改成中文就可以顺利执行。
                   strSqlalt3="alter table " & TCCODE & " add High double"
                   adoConn.Execute(strSqlalt3)
                   strSqlalt4="alter table " & TCCODE & " add Low double"
                   adoConn.Execute(strSqlalt4)
                   strSqlalt5="alter table " & TCCODE & " add Close single"
                   adoConn.Execute(strSqlalt5)
                   strSqlalt6="alter table " & TCCODE & " add VOL double"
                   adoConn.Execute(strSqlalt6)
                   strSqlalt1="alter table " & TCCODE & " add stockdate date"
                   adoConn.Execute(strSqlalt1)

 

被玩的不要不要的图片点击可在新窗口打开查看


 回到顶部