简单的问题麻烦老师帮下忙 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → 简单的问题麻烦老师帮下忙

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

共有3584人关注过本帖树形打印复制链接主题：简单的问题麻烦老师帮下忙

zm71212302

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：论坛游侠帖子：201 积分：0 威望：0 精华：0 注册：2013/4/6 22:01:12

简单的问题麻烦老师帮下忙 发帖心情

Post By：2020/2/4 11:07:13 [只看该作者]

'Formula.GetBufDateData(i)可以在EXCEL中正常插入，可是到了数据库就没办法了，请问老师如何在数据库中插入stockdate时间啊，整了一晚上没整明白，站内的VBA教程下载不了，是否金子塔要放弃VBA了？

strSqlins="INSERT INTO if00 (stockdate, vclose) VALUES (Year(???????),'"&Formula.GetBufData("didu1",i)&"')"这句我该如何写哈

sub DataInsert()

'设置对象adoConn，进行连接

dim adoConn,strSqlcre1,strSqlcre2

Set adoConn=CreateObject("Adodb.Connection")

'连接数据库

dim report1,strSqlalt1,strSqlalt2,Grid,Formula,HistroyData,I,strSqlins

adoConn.Open"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=d:\test.mdb"

Set Grid = Technic.GetGridByName("Main")

set Formula = marketdata.STKINDI("if00","zj","xianxig()",0,5)

Set HistroyData = Formula.ParentGrid.GetHistoryData

for i =0 to HistroyData.Count-1

strSqlins="INSERT INTO if00 (stockdate, vclose) VALUES (Year(???????),'"&Formula.GetBufData("didu1",i)&"')"

adoConn.Execute(strSqlins)

zm71212302

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：论坛游侠帖子：201 积分：0 威望：0 精华：0 注册：2013/4/6 22:01:12

Post By：2020/2/4 13:22:32 [只看该作者]

卡到现在没解决，都休息啦？

zm71212302

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：论坛游侠帖子：201 积分：0 威望：0 精华：0 注册：2013/4/6 22:01:12

Post By：2020/2/4 14:04:55 [只看该作者]

为什么还没人呢？

yukizzc

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：21598 积分：0 威望：0 精华：1 注册：2010/7/31 16:35:30

Post By：2020/2/4 14:22:31 [只看该作者]

set qtzq = marketdata.GetHistoryMinuteData(code,market,ti)
  for i=0 to qtzq.Count-1
   strSqlins="INSERT INTO "&table&" (stockdate,stockPrice,stockvolume,stockamount,stockASKPRICE,stockASKVOL,stockBIDPRICE,stockBIDVOL) VALUES ('"&qtzq.Date(i)&"','"&qtzq.NewPrice(i)&"','"&qtzq.Volume(i)&"','"&qtzq.Amount(i)&"','"&qtzq.ASKPRICE(i)&"','"&qtzq.ASKVOL(i)&"','"&qtzq.BIDPRICE(i)&"','"&qtzq.BIDVOL(i)&"')"
   adoConn.Execute(strSqlins)
  next