Rss & SiteMap

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

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

标题:简单的问题麻烦老师帮下忙

1楼
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
2楼
zm71212302 发表于:2020/2/4 13:22:32
卡到现在没解决,都休息啦?
3楼
zm71212302 发表于:2020/2/4 14:04:55
为什么还没人呢?
4楼
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
5楼
zm71212302 发表于:2020/2/4 14:36:03
数据库stockdate如果为文本类型是可以正常写入的,如果是日期型就出问题了
6楼
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)

7楼
zm71212302 发表于:2020/2/4 14:41:01
首先还是要先谢谢板主的解答
8楼
zm71212302 发表于:2020/2/4 14:45:49
 #"&HistroyData.Date(i)&"#这样就出问题了……。如何将文本转换为日期型?
9楼
zm71212302 发表于:2020/2/4 15:04:26
老师在吗?
10楼
zm71212302 发表于:2020/2/4 16:32:29
我服了编程了,未知的错误太多了,太意外了,真是太意外了,整了一天总算是整明白了,他妈妈的是WINDOW系统日期长规则引起的,改成短的就OK了,我操他八ADO规范语言了
共10 条记录, 每页显示 10 条, 页签: [1]


Powered By Dvbbs Version 8.3.0
Processed in 0.01563 s, 2 queries.