1樓：栽培者
可以使用巨集來實現，給你乙個簡單的例子。
sub adotest()
dim adort as object
dim strsql as string
'// 建立ado記錄集物件
set adort = createobject("adodb.recordset")
'// 設定sql 語句
strsql = "select * from utemp where false"
with adort
'// 設定需要連線資料庫
.activeconnection = "provider=microsoft.jet.
oledb.4.0;data source=d:
\栽培者\程式\列印類\測試\printtest.mdb"
.cursorlocation = 3
.cursortype = 1
.locktype = 3
'// 設定sql語句
.source = strsql
'// 準備開啟記錄集
.open
'// 新增記錄
.addnew
'// 賦值
.fields("name").value = range("a1").value
.fields("***").value = range("b1").value
.fields("age").value = range("c1").value
'// 更新
.update
'// 判斷並關閉記錄
if .state = 1 then
.close
end if
end with
'// 從記憶體中釋放
set adort = nothing
end sub
有些問題想請教各位高手，願受指點
1 p4b266c採用i845d晶片組，是p4b266的簡化產品，不支援usb2.0模式，只有兩條記憶體插槽，砍掉了cnr插槽和10 100m網絡卡,但支援ddr 266記憶體，但不是雙通道！理論上你可以購買ddr 266 ddr 333 ddr 400，因為高頻會自動向下相容，但533好像不行。2...
想請教各位兩個詞語的意思，請教各位高手兩個詞的翻譯
r b rhythm and blues 藍調 product 產品,產物,乘積 ots 可以解釋為適用性試驗裝置.ots products 為適用性試驗裝置產物.r b藍調 ots products就是 供銷產品 向語文教師朋友請教兩個詞語解釋 若為傭耕 意思是說 你只是乙個被人僱傭的雇工。為表被...
請教各位高手，根據規律填寫數字，請教各位高手，根據規律填寫數字1 3 6 8 16，18，（），（），76，78括號裡應該填什麼數字
36 38啊 從第3位開始 奇數的是前乙個偶數乘以2，偶數的是前乙個奇數加2 1,3,6,8,16,18,76,78 36,38 1,6，16,36，76 3,8,18,38,78 分組方便看，5，10，20，40。找規律填一填.3，8，18，38 找規律3，8，18，38後面兩個數78和56。解 ...