将数据导入SQLServer中,不知道为什么以下代码不能正常运行。 [金字塔]
- 咨询内容:
	
	请教:我想将数据导入SQLServer中,不知道为什么以下代码不能正常运行
 Set adoConn=CreateObject("Adodb.Connection")
 '连接数据库
 cnnSting="Provider=SQLOLEDB;Data Source=EVE_ZHENG\sqlexpress;Initial Catalog=securityDB;Persist Security Info=True;User ID=sa;Password=steward1"
 adoConn.Open cnnSting
 MsgBox cnnSting
 '读取合约分钟线数据
 Set HistroyData = marketdata.GetHistoryData("ag00","sq",0)'若要是分钟这里填0,日线填5 上期所=SQ,大期所=DQ,郑期所=ZQ
 for i = HistroyData.count-1 to 1 step -1
 strSql="insert into datam1(品种代码,交易日期,时,分,o,h,l,c,成交量)values('AG00','" & HistroyData.date(i)
 strSql=strSql & "'," & mid(HistroyData.date(i),12,2) &"," & mid(HistroyData.date(i),114,2) &"," & HistroyData.Open(i) & "," & HistroyData.High(i) & "," & HistroyData.Low(i) & "," & HistroyData.Close(i)
 strSql=strSql & "," & HistroyData.Volume(i) & ")"
 MsgBox strSql
 adoConn.Execute strSql
 最后一个MSGBOX 没有显示
 
-  金字塔客服:
	
	搞定了,是 Set HistroyData = marketdata.GetHistoryData("ag00","sq",0)'若要是分钟这里填0,日线填5 上期所=SQ,大期所=DQ,郑期所=ZQ 没有得到相关的数据。 
有思路,想编写各种指标公式,程序化交易模型,选股公式,预警公式的朋友
可联系技术人员 QQ: 1145508240  进行 有偿 编写!(不贵!点击查看价格!)
                        
相关文章
- 
                        没有相关内容
                       

 
                     会员登录/注册
会员登录/注册