中文字幕av无码不卡免费_蜜臀AV无码精品人妻色欲_亚洲成AV人片在线观看无码不卡_无码专区天天躁天天躁在线

您現在的位置:程序化交易>> 期貨公式>> 金字塔等>> 其他期貨軟件知識>>正文內容

數據庫連接丟失,請教原因 [金字塔]

  • 咨詢內容:


    圖片點擊可在新窗口打開查看此主題相關圖片如下:未命名.jpg
    圖片點擊可在新窗口打開查看

    相關代碼如下:

    public conn,SQL,rs,oHistoryData,cIF,lUpdate,ifoldvol,sholdvol,szoldvol
    set conn = CreateObject("ADODB.connection")
    conn.C
    set rs = createObject("ADODB.recordSet")

     

    Private sub updatedata_m1(cmarket,cstockcode)
          ......

          SQL ="update "&table&" set o="&oHistoryData.open(ggi)&",h="&oHistoryData.high(ggi)&",l="&oHistoryData.low(ggi)&",c="&oHistoryData.close(ggi)&",vol="&oHistoryData.volume(ggi)&" where timemark=cast('"&oHistoryData.date(ggi)&"' as timestamp)"
          conn.execute(SQL)

          ......
    end sub

     

    當調用updatedata_m1時,到conn.execute(SQL) 就出如圖錯誤。而昨天下午調試還運行好好的。

     

  • 金字塔客服: 樓主的sql語句是否正確,并且要確保有數據庫文件才行

     

  • 用戶回復: 以下是引用Leon在2012-4-16 13:26:26的發言:
    樓主的sql語句是否正確,并且要確保有數據庫文件才行

    語句是正確的。對連接字串的定義論壇總是拷不上,也是測試成功的。同樣的代碼也是曾經成功寫過數據的。

    但VBS里總是時不時出怪模怪樣的毛病,頭都大了

     

  • 網友回復: 數據庫你用的什么,盡可能將代碼發的全一些

     

  • 網友回復:

    數據庫用的是Firebird

    下為全部代碼:

    public conn,SQL,rs,oHistoryData,cIF,lUpdate,ifoldvol,sholdvol,szoldvol
    lUpdate=False '在ReportNotify()中是否更新數據庫
    ifoldvol=0
    sholdvol=0
    szoldvol=0
    set conn = CreateObject("ADODB.connection")
    conn.C
    set rs = createObject("ADODB.recordSet")
    conn.open  '本來設置的是需要才打開,但出了問題后就放在這里打開,然后在窗體的UNLOAD中關閉,不過問題依舊

    sub Application_VBAStart()
      Call Application.SetTimer(1,0)
      TransData.show
     
    end sub

    Sub MARKETDATA_ReportNotify(RD)
      if not lUpdate then exit sub
      select case rd.label
        case cIF
          if rd.volume=ifoldvol then exit sub
          SQL ="insert into ZJIF00B1(timemark,p,vol) values (cast('"&rd.date&"' as timestamp),"&rd.newprice&","&(rd.volume-ifoldvol)&")"
          conn.execute(sql)
          ifoldvol=rd.volume
        case "399001"
          if rd.volume=szoldvol then exit sub
          SQL ="insert into SZ399001B1(timemark,p,vol) values (cast('"&rd.date&"' as timestamp),"&rd.newprice&","&(rd.volume-ifoldvol)&")"
          conn.execute(sql)
          szoldvol=rd.volume
        case "000001"
          if rd.volume=sholdvol then exit sub
          SQL ="insert into SH000001B1(timemark,p,vol) values (cast('"&rd.date&"' as timestamp),"&rd.newprice&","&(rd.volume-ifoldvol)&")"
          conn.execute(sql)
          sholdvol=rd.volume
      END SELECT   
    end sub

    Private Sub TransData_cmdStart_click()
      if TransData_cmdStart.caption="Start Transfer" then
        Call Application.SetTimer(1,0)
        TransData_cmdStart.caption="End Transfer" 
        'conn.open 
        '更新主力合約
        call getIf(cIF)
        SQL ="update maincontract set stockcode='"&cIF&"' where market='ZJ'"
        conn.execute(SQL)
       
        '首先補數據
        call Transfer()
       
        '二次補數據,因為第一次耗時多,造成部分實時數據又未補上
        call Transfer()

        '注冊行情,開始自動寫數據
        call marketdata.RegReportNotify(cIF,"ZJ")
        call marketdata.RegReportNotify("399001","SZ")
        call marketdata.RegReportNotify("000001","SH")
        lUpdate=True
        '設置觸發器
        Call Application.SetTimer(1,8000)
       

      else
        '取消品種注冊
        call marketdata.unRegReportNotify(cIF,"ZJ")
        call marketdata.unRegReportNotify("399001","SZ")
        call marketdata.unRegReportNotify("000001","SH")
        lUpdate=False
        '取消觸發器
        Call Application.SetTimer(1,0)
        'conn.close
        TransData_cmdStart.caption="Start Transfer"
      end if
     
    end sub


    Private sub Transfer()
      '獲得數據庫已更新時間
      '更新M1
      call updatedata_m1("SZ","399001")
      call updatedata_m1("SH","000001")
      call updatedata_m1("ZJ",cIF) 
     
      '更新筆
      if time()>#09:30:00# then
        call updatedata_B1("SZ","399001")
        call updatedata_B1("SH","000001")
      end if
      if time()>#09:15:00# then
        call updatedata_B1("ZJ",cIF) 
      end if
    end sub

    Private sub updatedata_m1(cmarket,cstockcode)
      dim lasttime,table,ggi,gi
      ggi=0
      table=cmarket&cstockcode&"M1"
      if cmarket="ZJ" then table="ZJIF00M1"
      call getdatatime(table,lasttime)
      set oHistoryData = marketdata.GethistoryData(cstockcode,cmarket,0) 
      if not isnull(lasttime) then
        for gi=1 to oHistoryData.count-1 
          if oHistoryData.date(gi)>=lasttime then
            ggi=gi
            exit for
          end if
        next
        if ggi=0 then exit sub
        if oHistoryData.date(ggi)<dateadd("s",40,lasttime) then
          SQL ="update "&table&" set o="&oHistoryData.open(ggi)&",h="&oHistoryData.high(ggi)&",l="&oHistoryData.low(ggi)&",c="&oHistoryData.close(ggi)&",vol="&oHistoryData.volume(ggi)&" where timemark=cast('"&oHistoryData.date(ggi)&"' as timestamp)"
          conn.execute(SQL)
          ggi=ggi+1   
        end if
      end if
      if ggi<oHistorydata.count-1 then
        for gi=ggi to oHistoryData.count-1
          SQL ="insert into "&table&"(timemark,o,h,l,c,vol) values (cast('"&oHistoryData.date(gi)&"' as timestamp),"&oHistoryData.open(gi)&","&oHistoryData.high(gi)&","&oHistoryData.low(gi)&","&oHistoryData.close(gi)&","&oHistoryData.volume(gi)&")"
          conn.execute(sql)
        next
      end if
    end sub

    Private sub miniupdatedata_m1(cmarket,cstockcode)
      dim lasttime,table,gi,ggi,stockcode
      ggi=0
      table=cmarket&cstockcode&"M1" 
      stockcode=cstockcode
      '從newtime表中查最新數據
      if cmarket="ZJ" then
        stockcode="IF00"
        table="ZJIF00M1"
      end if
     
      SQL="SELECT timemark as tlast FROM newtime where stockcode='"&stockcode&"' and cyc='M1'"
      rs.open SQL,conn,0,1
      lasttime=rs.Fields("tlast")
      rs.close
      set oHistoryData = marketdata.GethistoryData(cstockcode,cmarket,0) 
      for gi=oHistoryData.count-1 to 0 step -1
        'oHistoryData.date(gi)是否會有條記錄與lasttime完全一致?
        if oHistoryData.date(gi)<=lasttime then
          ggi=gi
          exit for
        end if
      next
      for gi=ggi to oHistoryData.count-1 
        if oHistoryData.date(gi)<dateadd("s",40,lasttime) then
          SQL ="update "&table&" set o="&oHistoryData.open(gi)&",h="&oHistoryData.high(gi)&",l="&oHistoryData.low(gi)&",c="&oHistoryData.close(gi)&",vol="&oHistoryData.volume(gi)&" where timemark=cast('"&oHistoryData.date(gi)&"' as timestamp)"
        else
          SQL ="insert into "&table&"(timemark,o,h,l,c,vol) values (cast('"&oHistoryData.date(gi)&"' as timestamp),"&oHistoryData.open(gi)&","&oHistoryData.high(gi)&","&oHistoryData.low(gi)&","&oHistoryData.close(gi)&","&oHistoryData.volume(gi)&")"
        end if
        conn.execute(SQL)
      next  
    end sub

    Private sub updatedata_B1(cmarket,cstockcode)
      dim lasttime,table,ggi,gi
      ggi=0
      table=cmarket&cstockcode&"B1"
      if cmarket="ZJ" then table="ZJIF00B1"
      call getdatatime(table,lasttime) 
      set oHistoryData= marketdata.GetMinuteData(cstockcode,cmarket)
     
      if not isnull(lasttime) then
        for gi=oHistoryData.count-1 to 1  step -1
          if oHistoryData.date(gi)<=lasttime then
            ggi=gi
            exit for
          end if
        next
      end if
     
      if ggi<oHistorydata.count-1 then
        if ggi=0 then
          SQL ="insert into "&table&"(timemark,p,vol) values (cast('"&oHistoryData.date(0)&"' as timestamp),"&oHistoryData.newprice(0)&","&oHistoryData.volume(0)&")"
          conn.execute(sql)
          ggi=ggi+1
        end if
        for gi=ggi to oHistoryData.count-1
          SQL ="insert into "&table&"(timemark,p,vol) values (cast('"&oHistoryData.date(gi)&"' as timestamp),"&oHistoryData.newprice(gi)&","&(oHistoryData.volume(gi)-oHistoryData.volume(gi-1))&")"
          conn.execute(sql)
        next
      end if
      select case cmarket
        case "SH"
          sholdvol=oHistoryData.volume(oHistoryData.count-1)
        case "SZ"
          szoldvol=oHistoryData.volume(oHistoryData.count-1)
        case "ZJ"
          ifoldvol=oHistoryData.volume(oHistoryData.count-1)
      END SELECT 
    end sub

    private sub TransData_load()
        call marketdata.unRegReportNotify(cIF,"ZJ")
        call marketdata.unRegReportNotify("000001","SH")
        call marketdata.unRegReportNotify("399001","SZ")
        lUpdate=False
        '取消觸發器
        Call Application.SetTimer(1,0) 

       
       
    end sub

    private sub TransData_unload()
        call marketdata.unRegReportNotify(cIF,"ZJ")
        call marketdata.unRegReportNotify("000001","SH")
        call marketdata.unRegReportNotify("399001","SZ")
        lUpdate=False
        '取消觸發器
        Call Application.SetTimer(1,0) 
        'if TransData_cmdStart.caption="End Transfer" then
          conn.close
        'end if
        set conn=nothing
        set rs=nothing
       
    end sub


    Sub GetIF(byref MainIF)
      '得到期指主力合約
      Dim MaxVolume,count,i,report1
      MaxVolume=0
      '得到市場所有品種
      Count = MarketData.GetReportCount("ZJ")
      For i = 0 To Count-1
        Set Report1 = MarketData.GetReportDataByIndex("ZJ",i)
        if Left(Report1.Label,2) = "IF" Then
          '只處理有效合約
          if Right(Report1.Label,2) >= "01" And Right(Report1.Label,2) <= "12" Then
            If Report1.Volume > MaxVolume Then
              MainIF = Report1.Label
              MaxVolume = Report1.Volume
            End if
          end if
        End if
      Next
    End Sub

    sub getdatatime(ctmptable,ByRef tlasttime)
      SQL="SELECT MAX(timemark) as tlast FROM "&ctmptable
      rs.open SQL,conn,0,1
      tlasttime=rs.Fields("tlast")
      rs.close
    end sub

    Sub APPLICATION_Timer(ID)
      if ID=1 then
        if time()<#09:14:59# or (time()>#11:30:59# and time()<#12:59:59#) or time()>#15:15:59# or weekday(date())=1 or weekday(date())=7 then  '非交易時間
          exit sub
        end if
        call miniupdatedata_m1("SZ","399001")
        call miniupdatedata_m1("ZJ",cIF)
        call miniupdatedata_m1("SH","000001")
      end if      
    End Sub


【字體: 】【打印文章】【查看評論

相關文章

    沒有相關內容
中文字幕av无码不卡免费_蜜臀AV无码精品人妻色欲_亚洲成AV人片在线观看无码不卡_无码专区天天躁天天躁在线

亚洲国产精品电影| 在线性视频日韩欧美| 蜜桃av久久久亚洲精品| 先锋亚洲精品| 亚洲在线观看视频| 一区二区三区免费在线观看| 亚洲理论在线| 亚洲精品视频中文字幕| 91久久精品国产91性色tv| 在线观看一区| 在线观看免费视频综合| 永久免费毛片在线播放不卡| 狠狠色综合一区二区| 国内精品99| 韩日成人在线| 精品电影在线观看| 在线成人亚洲| 最新国产拍偷乱拍精品| 亚洲蜜桃精久久久久久久| 99riav1国产精品视频| 亚洲每日在线| 一本色道久久综合亚洲精品按摩| 99国产精品国产精品毛片| 99re6热只有精品免费观看 | 黄色精品网站| 一区视频在线看| 在线免费精品视频| 亚洲日本aⅴ片在线观看香蕉| 亚洲精品在线二区| 日韩午夜激情电影| 亚洲深夜av| 亚洲欧美成人网| 久久av免费一区| 久久一区二区三区av| 欧美大片专区| 欧美新色视频| 国产一区二区三区在线播放免费观看 | 午夜在线a亚洲v天堂网2018| 欧美在线观看一区二区| 久久免费视频在线| 欧美第一黄网免费网站| 国产精品成人一区| 一区二区三区中文在线观看 | 亚洲欧洲99久久| 亚洲电影在线免费观看| 国色天香一区二区| 国产视频精品va久久久久久| 欧美日韩麻豆| 经典三级久久| 在线欧美小视频| 亚洲人成亚洲人成在线观看图片 | 欧美日韩在线影院| 国产亚洲免费的视频看| 1000部国产精品成人观看| 夜夜嗨av一区二区三区四季av| 亚洲女人天堂av| 免费成人av| 国产精品欧美一区喷水| 亚洲国产三级| 午夜久久久久| 欧美a级片一区| 国产精品亚洲一区| 最新日韩在线| 欧美在线在线| 欧美日韩中文字幕| 伊人久久成人| 一区二区三区视频观看| 久久久视频精品| 欧美性猛片xxxx免费看久爱| 亚洲高清二区| 亚洲一区二区三区免费视频| 蜜臀91精品一区二区三区| 国产精品色网| 日韩网站在线观看| 久久精品国产清高在天天线| 欧美日韩亚洲高清一区二区| 韩国亚洲精品| 午夜在线一区二区| 欧美日本在线播放| 狠狠综合久久| 性欧美超级视频| 欧美日韩亚洲视频| 91久久在线观看| 欧美在线一二三四区| 欧美日韩视频在线一区二区| 激情综合亚洲| 欧美一区二视频| 国产精品www网站| 亚洲黄色av| 久久久久久午夜| 国产欧美一区视频| 亚洲一区二区三区欧美| 欧美精品在线极品| 亚洲国产精品成人久久综合一区| 久久国产毛片| 国产伦精品一区二区三| 亚洲神马久久| 欧美日韩精品免费看| 亚洲欧洲一区二区三区| 久久综合久久久| 国模精品娜娜一二三区| 欧美一区二区私人影院日本| 国产精品一卡二卡| 亚洲一区久久久| 欧美午夜精品理论片a级按摩| 亚洲精品视频在线观看网站| 你懂的视频欧美| 在线成人中文字幕| 久久久久久夜精品精品免费| 国产在线日韩| 久久精品一区二区三区不卡牛牛| 国产精品亚洲综合一区在线观看| 亚洲在线视频| 国产精品毛片a∨一区二区三区|国| 日韩亚洲欧美在线观看| 欧美日韩国产123| 亚洲区一区二| 欧美国产先锋| 日韩视频在线观看一区二区| 欧美日韩在线三区| 亚洲一区免费观看| 国产精品一区=区| 久久成人精品电影| 黑人中文字幕一区二区三区| 久久久久久久久一区二区| 狠狠综合久久av一区二区小说 | 欧美成人免费全部| 亚洲激情六月丁香| 欧美激情一区二区三区全黄| 亚洲免费av电影| 欧美剧在线免费观看网站| 夜夜嗨av一区二区三区网站四季av | 亚洲高清在线| 欧美激情精品久久久| 亚洲精品在线免费观看视频| 欧美日韩国产一区精品一区| 亚洲视频电影在线| 国产精品日韩欧美一区二区三区| 翔田千里一区二区| 激情丁香综合| 欧美激情一区二区三区高清视频| 99国产精品99久久久久久| 国产精品日韩精品欧美精品| 久久久精品国产免大香伊| 亚洲成色精品| 欧美日韩国产亚洲一区| 午夜免费日韩视频| 激情久久中文字幕| 欧美精品一线| 亚洲欧美欧美一区二区三区| 国内精品久久久久国产盗摄免费观看完整版| 久久久在线视频| 日韩午夜电影在线观看| 国产麻豆精品theporn| 两个人的视频www国产精品| 亚洲美女福利视频网站| 国产精品一二三视频| 免费观看久久久4p| 亚洲视频久久| 狠狠久久五月精品中文字幕| 欧美激情1区2区| 亚洲男人第一网站| 在线精品视频一区二区| 欧美日韩亚洲一区二区三区四区| 性色av一区二区三区| 亚洲国产成人久久综合一区| 欧美午夜影院| 另类天堂视频在线观看| 亚洲无限av看| 影音先锋中文字幕一区| 欧美视频一区二区| 久久尤物视频| 亚洲综合视频1区| 亚洲国产日韩欧美综合久久| 国产美女在线精品免费观看| 欧美黑人一区二区三区| 午夜亚洲性色视频| 亚洲毛片视频| 永久555www成人免费| 国产精品国产三级国产普通话三级| 另类av一区二区| 午夜精品免费| 亚洲免费观看| 在线观看亚洲精品| 国产欧美一区二区色老头| 欧美日韩亚洲高清| 女生裸体视频一区二区三区| 久久av资源网站| 亚洲午夜在线视频| 亚洲茄子视频| 在线播放视频一区| 国产日韩精品久久| 欧美午夜激情小视频| 欧美精品激情| 免费观看在线综合| 久久久久国色av免费观看性色| 亚洲欧美文学| 宅男精品视频| 亚洲裸体视频| 亚洲精品五月天|