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


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

   

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

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

主题：简单的问题麻烦老师帮下忙
美女呀，离线，留言给我吧！
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)
Next
 回到顶部
美女呀，离线，留言给我吧！
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 [显示全部帖子]

为什么还没人呢？

 回到顶部
美女呀，离线，留言给我吧！
zm71212302
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：201 积分：0 威望：0 精华：0 注册：2013/4/6 22:01:12 		  发帖心情 Post By：2020/2/4 14:36:03 [显示全部帖子]

数据库stockdate如果为文本类型是可以正常写入的，如果是日期型就出问题了

 回到顶部
美女呀，离线，留言给我吧！
zm71212302
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：201 积分：0 威望：0 精华：0 注册：2013/4/6 22:01:12 		  发帖心情 Post By：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
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：201 积分：0 威望：0 精华：0 注册：2013/4/6 22:01:12 		  发帖心情 Post By：2020/2/4 14:41:01 [显示全部帖子]

首先还是要先谢谢板主的解答

 回到顶部
美女呀，离线，留言给我吧！
zm71212302
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：201 积分：0 威望：0 精华：0 注册：2013/4/6 22:01:12 		  发帖心情 Post By：2020/2/4 14:45:49 [显示全部帖子]

 #"&HistroyData.Date(i)&"#这样就出问题了……。如何将文本转换为日期型？

 回到顶部
美女呀，离线，留言给我吧！
zm71212302
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：201 积分：0 威望：0 精华：0 注册：2013/4/6 22:01:12 		  发帖心情 Post By：2020/2/4 15:04:26 [显示全部帖子]

老师在吗？

 回到顶部
美女呀，离线，留言给我吧！
zm71212302
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：201 积分：0 威望：0 精华：0 注册：2013/4/6 22:01:12 		  发帖心情 Post By：2020/2/4 16:32:29 [显示全部帖子]

我服了编程了，未知的错误太多了，太意外了，真是太意外了，整了一天总算是整明白了，他妈妈的是WINDOW系统日期长规则引起的，改成短的就OK了，我操他八ADO规范语言了

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 00.01563 秒, 6 次数据查询