公式模型编写问题提交-[原创]在一分钟周期上，当前周期结束时如果获取当前周期的最高价、最低价、开盘价、收盘价、成交量、时间、日期。金字塔客服中心 - 专业程序化交易软件提供商

DEBUGOUT(\'开始执行=%.0f\',OPEN);

//myClose := CLOSE;

//myOpen := OPEN;

//myHigh := HIGH;

//myLow := LOW;

//myVol := VOL;

//myTime := TIME;

//myDate := DATE;

if timetot0(dynainfo(207))=time0-1 then begin

extgbdataset(\'myClose\', CLOSE);

extgbdataset(\'myOpen\', open);

extgbdataset(\'myHigh\', high);

extgbdataset(\'myLow\', low);

extgbdataset(\'myVol\', vol);

extgbdataset(\'myTime\', time);

extgbdataset(\'myDate\', date+19000000);

end

myCloses =ffl.vardata("myClose")

myClose = myCloses(2)

myOpens =ffl.vardata("myOpen")

myOpen = myOpens(2)

myHighs =ffl.vardata("myHigh")

myHigh = myHighs(2)

myLows =ffl.vardata("myLow")

myLow = myLows(2)

myVols =ffl.vardata("myVol")

myVol = myVols(2)

myTimes =ffl.vardata("myTime")

myTime = myTimes(2)

myDates =ffl.vardata("myDate")

myDate = myDates(2)

msgbox myDate

Dim conn

Dim Rst

Dim strCnn

Const strC

Set conn = CreateObject("adodb.connection")

conn.Open strConn

\'查看是否连接成功，成功状态值为1

\'msgbox Conn.state

\'If Conn.State = 0 Then

\' msgbox "连接数据库失败"

\'else

\' msgbox "连接数据库成功"

\'End If

Set Rst =CreateObject("ADODB.Recordset")

Rst.open "insert into spr_candle_line(high,low,opens,closes,vol,times,dates) values("&myHigh&","&myLow&","&myOpen&","&myClose&","&myVol&","&myTime&","&myDate&")",conn

\'Rst.open "insert into spring_test(test_no) values("&myClose&")",conn

\'msgbox "数据库插入成功"

\'Rst.open "select test_no from spring_test",conn

\'While not Rst.eof \'

\' test_no = Rst("test_no").value

\' msgbox test_no

\' Rst.movenext

\'wend

\'Rst.open "update spring_test set test_no = 9999999",conn

\'Rst.close \'关闭记录集

Set Rst=nothing \'释放对象

conn.close \'关闭连接

Set cnn=nothing \'释放对象

DEBUGOUT(\'执行结束=%.0f\',CLOSE)