這幾天在做乙個資料採集的上位機軟體，設想把採集的資料存入資料庫（每次取樣1000個資料）。網上找了一下沒有很好的答案，今天花了點時間做了個試驗程式，**如下：（除錯通過）
'先在access表中建乙個字段型別為ole的字段
dim adoconn as new adodb.connection
dim listrs as new adodb.recordset
dim a(1000)
dim b(1000)
private sub form_load()
dim c as double
adoconn.open "連線資料庫字串。。。"
for i = 0 to 1000
c = -i / 100
'a()為要存的陣列，資料型別為文字。
'本想做二進位制的但是在vb中double資料用hex()轉換有問題，還沒找到簡潔的方法，無奈只好用文字格式（固定長度）。
'注意：必須固定長度
a(i) = iif(c >= 0, format(c, "+000.000"), format(c, "000.000"))
next
end sub
'完成後關閉物件
listrs.close
end sub
'從資料庫中讀出儲存的陣列
private sub command2_click()
strsql = "select * from a"
listrs.open strsql, adoconn, adopenstatic, adlockoptimistic
packagesize = 16 '每個資料的長度
lngactualsize = listrs.fields("testdata").actualsize '資料庫中二進位製字段的資料長度
lchunkcount = lngactualsize \ packagesize '求出資料的個數
'逐個讀出儲存在資料庫中的資料
for i = 0 to lchunkcount - 1
b(i) = listrs.fields("testdata").getchunk(packagesize)
next
for i = 0 to 1000
debug.print b(i)
next
listrs.close
end sub
資料庫新增步驟 vb6 0
一 定義相關量 乙個結果集 用來儲存結果 更新結果 第乙個字串 用來儲存 sql語句 查詢位置 乙個字串 用來儲存查詢函式的查詢狀態 dim mrc as adodb.recordset dim txtsql as string dim msgtext as string第二 驗證資料的有效性.1 ...
資料庫新增步驟 vb6 0
一 定義相關量 乙個結果集,用來儲存結果,更新結果 第乙個字串,用來儲存sql 語句,查詢位置 乙個字串,用來儲存查詢函式的查詢狀態 dim mrc as adodb.recordset dim txtsql as string dim msgtext as string 第二 驗證資料的有效性.1...
資料庫刪除記錄核心語句 解讀 vb6 0
str2 msgbox 是否刪除當前記錄?vbokonly vbexclamation,提示 if str2 vbok then mrc.movenext if mrc.eof then mrc.movefirst mybookmark mrc.bookmark mrc.movelast mrc.d...