求助 為何無法在access中插入數(shù)據(jù) [金字塔]
- 咨詢內(nèi)容：
求助,下面代碼中新建表的這部分沒問題.但是不知為何不能在access中插入數(shù)據(jù).而如果我建立成功表格后單獨(dú)將下面紅色的一行在access中執(zhí)行的話,是執(zhí)行成功的.請求幫忙解決.
Sub APPLICATION_Start() '設(shè)定access文件'AccessFilePath = "D:\*******\Asset.accdb" AccessFilePath = "D:\藝的文件夾\自編程序\風(fēng)控系列06 金字塔vbs文件\Asset.accdb"
'開始在ACCESS數(shù)據(jù)庫中新建表********************************************************************application.MsgOut "新建Access表"Set adoConn=CreateObject("Adodb.Connection")'連接數(shù)據(jù)庫（數(shù)據(jù)指向是金字塔安裝目錄下的test.mdb，也可以自己更改想要的路徑）'adoConn.Open"Provider=MicroSoft.Jet.OLEDB.4.0;Data Source=D:\藝的文件夾\自編程序\風(fēng)控系列06 金字塔vbs文件\DailyAsset.mdb"adoConn.Open"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & AccessFilePath '可以連接access2007數(shù)據(jù)庫格式
'查找表是否存在Dim RsSet Rs = adoConn.OpenSchema(20)Do While Not Rs.EOF If Rs("Table_Name") = "TreadingRecord" Then '找到表的操作。。 strSqldro="drop table TreadingRecord" adoConn.Execute(strSqldro) End If Rs.MoveNextLoopRs.CloseSet Rs = Nothing
'創(chuàng)建表 各列代表的意義分別是 交易時間,交易品種,交易狀態(tài)(買賣,買空,賣空,頭寸模型,風(fēng)險(xiǎn)百分比) strSqlcre="create table TreadingRecord (TreadeDateTime DateTime NOT NULL, TreadMarket varchar(10) NOT NULL, TreadeStatus varchar(10) NOT NULL,PositionSizeModle varchar(10) NOT NULL, PercentRisk real)" adoConn.Execute(strSqlcre)adoConn.Close'結(jié)束在ACCESS數(shù)據(jù)庫中新建表********************************************************************
'開始在ACCESS數(shù)據(jù)庫中插入數(shù)據(jù)********************************************************************
'打開數(shù)據(jù)庫 Set adoConn=CreateObject("Adodb.Connection") adoConn.Open"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & AccessFilePath '可以連接access2007數(shù)據(jù)庫格式 '在access數(shù)據(jù)庫中寫入記錄 strSqlcre="INSERT INTO TreadingRecord VALUES ('2009/1/4','CU13','Buy','FixedPR',.05) " adoConn.Execute(strSqlcre) application.MsgOut "SQL語句: "& strSqlcre adoConn.close application.MsgOut "結(jié)束"'結(jié)束在ACCESS數(shù)據(jù)庫中插入數(shù)據(jù)******************************************************************** End Sub - 金字塔客服： 解決了 應(yīng)該將函數(shù)名改為Sub APPLICATION_VBAStart()
有思路，想編寫各種指標(biāo)公式，程序化交易模型，選股公式，預(yù)警公式的朋友
可聯(lián)系技術(shù)人員 QQ: 1145508240 進(jìn)行 有償 編寫！（不貴！點(diǎn)擊查看價(jià)格！）
相關(guān)文章
-
沒有相關(guān)內(nèi)容
會員登錄/注冊