1樓：馮益斌
說說思路：
這個顯然要用ado
1、連線資料庫，得到連線物件conn
2、用下面的select語句開啟表，將資料讀入recordsetset rs=conn.execute("select * from 表名")
3、用迴圈將資料讀入二維陣列arr
row=0
while not rs.eof
arr[row,0]=rs["id"]
arr[row,1]=rs["year"]arr[row,2]=rs["mon"]
arr[row,3]=rs["1"]
arr[row,4]=rs["2"]
......
...row=row+1
wend
2樓：匿名使用者
vb6.0可用ado data 控制項訪問和運算元據庫，讀取資料表的資料，通過巢狀迴圈將資料表內容賦值給乙個二維陣列。
ado data 控制項，這是一種新的、oledb 識別的資料來源控制項，其功能與內部的 data 控制項和 remote data 控制項十分相似，通過這種方式允許使用者用最少的**來建立資料庫應用程式。在執行時，可以設定控制項的recordsource 屬性來實現sql結構化查詢語句滿足需要的查詢條件。
結構化查詢語言(structured query language)簡稱sql，是一種特殊目的的程式語言，是一種資料庫查詢和程式語言，用於訪問資料以及查詢、更新和管理關係資料庫系統
for...next 語句，以指定次數來重複執行一組語句。
可以將乙個 for...next 迴圈放置在另乙個 for...next
迴圈中，組成巢狀迴圈。
以下是具體**例項：
option explicit
dim zh_bm(11, 1500)
dim zsl as integer
dim i as integer
dim j as integer
dim sqlstr as string
private sub form_load()
adodc1.connectionstring = "provider=microsoft.jet.
oledb.4.0;data source=d:
\data_ref\db1.mdb;persist security info=false"
sqistr = "select * from mdlk_sj where 銷售='n' order by 碼單號"
adodc1.recordsource = sqlstr
adodc1.refresh
zsl = adodc1.recordset.recordcount '獲取查詢得到的資料記錄總數
adodc1.recordset.movefirst '移動記錄到首條記錄
for i = 0 to zsl - 1
for j = 0 to 11
zh_bm(j, i) = adodc1.recordset(j) '將各字段值賦值給二維陣列
next j
adodc1.recordset.movenext
next i
end sub
vb操作access資料庫，如何判斷表中是否存在某欄位
1.加個adodc空間 2.這個空間的資料來源連結到access 3.令 adodc1.recordsource select from table where 欄位 xx table是你的表名，xx是你要查詢的內容 adodc1.refresh if adodc1.recordset.record...
VB查詢ACCESS資料庫問題
正確的寫法應該是 s select express from filetype where name text1.text sqlext s 在s中使用單引號把文字內容括起來，使s成為例如 select express from filetype where name test 返回到textbox...
用vb在access資料庫中建立檢視（就是建立個查詢
路子沒什麼問題。你一步一步的試驗吧。從 create view query4 as select from ad order details 開始。一條一條的往上加，看看加誰會出錯。 你的 沒反應 是什麼意思呢？修改表結構本來就不會有返回值，你只要檢查該查詢是否建立就可以了。如果你要執行該查詢，在建...