1樓：隨風v隨夢
如果對保密要求不是很高的話，推薦用二進位制檔案進行儲存（就是txt檔案稍微改下字尾如：1.mpd），操作都比較方便。
附上自己收集的資料庫操作**：
引用microsoft activex data objects 2.8 library
'*****==連線access*****==
set rs = new connection
rs.cursorlocation = aduseclient
rs.open "provider=microsoft.jet.oledb.4.0;data source=s:\sf1.mdb;" '資料檔案的地址
'rs.close
'*****==讀取access的記錄數*****==
set rs = new connection
rs.cursorlocation = aduseclient
rs.open "provider=microsoft.jet.
oledb.4.0;data source=s:
\sf1.mdb;jet oledb:database password=密碼" '資料檔案的地址
set data1 = new recordset
sql = "select * from sf2"
data1.open sql, rs, adopendynamic, adlockoptimistic
msgbox data1.recordcount '得到記錄數
data1.close
rs.close
'*****====讀取第n行的第m列的資料*****====
set rs = new connection
rs.cursorlocation = aduseclient
rs.open "provider=microsoft.jet.oledb.4.0;data source=s:\sf1.mdb;" '資料檔案的地址
sql = "select * from sf2 where id=n"
set data1 = new recordset
data1.open sql, rs, adopendynamic, adlockoptimistic
msgbox data1(m) '得到資料
data1.close
rs.close
'*****===讀取連續一列的資料*****==
set rs = new connection
rs.cursorlocation = aduseclient
rs.open "provider=microsoft.jet.oledb.4.0;data source=s:\sf1.mdb;" '資料檔案的地址
sql = "select * from sf2 where 項 =\like '條件'"
set data1 = new recordset
data1.open sql, rs, adopendynamic, adlockoptimistic
do while not data1.eof
msgbox data1(n)
data1.movenext
loop
'*****==新增新紀錄
set rs = new connection
rs.cursorlocation = aduseclient
rs.open "provider=microsoft.jet.oledb.4.0;data source=s:\sf1.mdb;" '資料檔案的地址
sql = "select * from sf2 where id=n"
set data1 = new recordset
data1.open sql, rs, adopendynamic, adlockoptimistic
with data1.recordset
.addnew
.fields("項"\數字).value=變數
.updata
.refresh
end with
data1.close
rs.close
'*****===更新第n行的第m列的資料
set rs = new connection
rs.cursorlocation = aduseclient
rs.open "provider=microsoft.jet.oledb.4.0;data source=s:\sf1.mdb;" '資料檔案的地址
sql = "select * from sf2 where id=n"
set data1 = new recordset
data1.open sql, rs, adopendynamic, adlockoptimistic
data1(m) = "資料\變數" '寫入資料
data1.updata
data1.close
rs.close
'*****==查詢資料*****=
set rs = new connection
rs.cursorlocation = aduseclient
rs.open "provider=microsoft.jet.oledb.4.0;data source=s:\sf1.mdb;" '資料檔案的地址
sql = "select * from sf2 where" + "項='表示式'\項 like '表示式'"
set data1 = new recordset
data1.open sql, rs, adopendynamic, adlockoptimistic
msgbox data1(n) 'n=0為id
data1.close
rs.close
具體請檢視例子：
private sub form_load()
set rs = new connection
set data1 = new recordset
rs.cursorlocation = aduseclientrs.open "provider=microsoft.
jet.oledb.4.
0;data source=c:\1.mdb;jet oledb:
database password=123456789" '資料檔案的地址
sql = "select * from sf2" '訪問sf2表
data1.open sql, rs, adopendynamic, adlockoptimistic
list1.tag = data1.recordcount '得到記錄數
data1.close
sql = "select 姓名 from sf2" '訪問sf2表的"姓名"列
data1.open sql, rs, adopendynamic, adlockoptimistic
do while not data1.eof
list1.additem data1("姓名")
data1.movenext
loop
rs.close
end sub
'希望能幫到你
求幾個vb題答案 萬分感謝，VB問題，求答案，萬分感謝
1.c 2.c 3.c 4.d 5.a 6.c 7.a 8.c 9.b 10.d 11.b 12.c 13.d 提問幾個關於vb的問題 等答案 萬分感謝 1 print format now,yyyy年mm月dd日 2 int cdate 2008 6 30 now 3 用m和n分別統計在text1...
輪胎上面的字母數字代表什麼,輪胎上面的字母分別代表什麼含義
舉例說明下輪胎型號中數字和字母的含義 225 60 r17 99h 225 代表的是斷面寬度,簡版 單的理解就是輪胎胎權面的寬度。60 代表的扁平比,簡單的理解就是輪胎胎壁的高度。r 代表的是輪胎型別代號,r是子午線輪胎。17 代表的是輪轂直徑,就是輪胎適用於17英寸輪轂的輪胎。99 代表的是輪胎的...
王者榮耀上面的墨子是英雄聯盟上面的那個人物
王者榮耀的英雄技能都是英雄聯盟多個英雄的技能組合起來的或者自制的 可以告訴我下技能都是些什麼嗎 王者榮耀上面的墨子是英雄聯盟的哪個英雄 王者榮耀裡的英雄都是差不過英雄聯盟裡的英雄互相結合的，沒有完全與誰相似，墨子，我還真沒發現它是模仿誰的 我個人也認為是個原創的角色 畢竟王者榮耀並不是完全把lol的...