'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
数据库stockdate如果为文本类型是可以正常写入的,如果是日期型就出问题了
这句是将HistroyData.Date(i)字符串写入到文本类型的stockdate字段中,如果叫它转换成日期类型再如何写入到数据库中,整了一天没整明白
strSqlins="INSERT INTO if00 (stockdate, vclose) VALUES ('"&HistroyData.Date(i)&"','"&Formula.GetBufData("didu1",i)&"')"
adoConn.Execute(strSqlins)
我服了编程了,未知的错误太多了,太意外了,真是太意外了,整了一天总算是整明白了,他妈妈的是WINDOW系统日期长规则引起的,改成短的就OK了,我操他八ADO规范语言了