以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  简单的问题麻烦老师帮下忙  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=174143)
--  作者：zm71212302
--  发布时间：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)
Next
--  作者：zm71212302
--  发布时间：2020/2/4 13:22:32
--  
卡到现在没解决，都休息啦？
--  作者：zm71212302
--  发布时间：2020/2/4 14:04:55
--  
为什么还没人呢？
--  作者：yukizzc
--  发布时间：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
--  作者：zm71212302
--  发布时间：2020/2/4 14:36:03
--  
数据库stockdate如果为文本类型是可以正常写入的，如果是日期型就出问题了
--  作者：zm71212302
--  发布时间：2020/2/4 14:40:34
--  
这句是将HistroyData.Date(i)字符串写入到文本类型的stockdate字段中，如果叫它转换成日期类型再如何写入到数据库中，整了一天没整明白
strSqlins="INSERT INTO if00 (stockdate, vclose) VALUES (\'"&HistroyData.Date(i)&"\',\'"&Formula.GetBufData("didu1",i)&"\')"
adoConn.Execute(strSqlins)
--  作者：zm71212302
--  发布时间：2020/2/4 14:41:01
--  
首先还是要先谢谢板主的解答
--  作者：zm71212302
--  发布时间：2020/2/4 14:45:49
--  
 #"&HistroyData.Date(i)&"#这样就出问题了……。如何将文本转换为日期型？
--  作者：zm71212302
--  发布时间：2020/2/4 15:04:26
--  
老师在吗？
--  作者：zm71212302
--  发布时间：2020/2/4 16:32:29
--  
我服了编程了，未知的错误太多了，太意外了，真是太意外了，整了一天总算是整明白了，他妈妈的是WINDOW系统日期长规则引起的，改成短的就OK了，我操他八ADO规范语言了