1樓：匿名使用者
簡單一點的，新增一個資料控制元件adodc,全名是：microsoft ado data control
再加一個**控制元件datagrid(microsoft datagrid control),用於檢視結果
設定adodc控制元件兩個屬性：connectionstring(連線到資料庫)，recordsource(選擇資料庫中某個表）
如果連線的是access資料庫，在connectionstring對話中選擇提供程式microsoft.jet.oledb.4.0
如果是sql server資料庫，選擇microsoft oledb for sql server
再設定datagrid控制元件datasource屬性，選擇adodc控制元件。
然後新增個按鈕，**如：
private sub command1_click()
dim num as integer
with adodc1.recordset
do while num < 200
.addnew
.fields(0).value = "" '欄位索引最好改成欄位名字串，這樣就算欄位先後次序改變了也不會受影響。
.fields(1).value = "13001017" '如果這些欄位型別為數值型，把雙引號去掉了。
.fields(2).value = num
.fields(3).value = "14"
.fields(4).value = "5607"
num = num + 10
loop
.update
end with
end sub
這很基礎的，不會資料庫怎麼建立都不知道吧？選單[外接程式/視覺化資料管理器]可以建立資料庫
2樓：匿名使用者
2000人的群，名稱是vb人生 號148317126，去那裡問問
vb do while|until…loop 迴圈語句
3樓：匿名使用者
private sub test()
dim i%
i=100
do while i<=200
if test=true then
debug.print i
end if
i=i+1
loop
end sub
private function test(byref i%) as boolean
if val(i mod 3 or i mod 5）=0 thentest=true
end if
end function
4樓：
i=100
do while i<=200
if i mod 3=0 or i mod 5=0 then print i
i=i+1
loop
5樓：傳說
求整除的問題，用取餘數判斷是否為零
vb do while迴圈題目
6樓：匿名使用者
**如下：
private sub form_click()dim s!, n%
s = 0
n = 1
do until s >= 20
s = s + (2 * n + 1) / (2 * n - 1)n = n + 1
loop
print "s=", s
print "n=", n
end sub
執行如下圖所示：
7樓：
s>20
(2*n+1)/(2*n-1)n
8樓：祭夢
dim h!, s%
h = 0
s = 0
while h <= 20
s = s + 1
h = h + (2 * s + 1) / (2 * s - 1)wend
print "h=" & h, "s=" & s
vb中使用do while語句求1*2*3*.....*m的值
為什麼我的行動硬碟寫入資料慢，行動硬碟寫入緩慢，讀取正常，怎麼辦
資料線和usb埠是有分1.0和2.0的，如果是1.0的資料線 一般攝像頭還只是1.0 傳輸速度肯定慢，也會存在電腦向行動硬碟在供電上存在電力不足。usb埠如果不是2.0的傳輸速度也是很慢的。行動硬碟本身是不會慢的，應該是磁碟寫入快取沒開啟。檢驗是否已經開啟 磁碟上的寫入快取 方法是 右鍵我的電腦 屬...
如何用C將textBox資料寫入SQL Server資料表
這個錯誤提示很清晰了啊，你沒有寫值到number列啊，看一下你的stu表的number列設計的是什麼資料型別，insert時寫相應資料型別的值到number列試試。你的資料表有空值約束，不允許插入空資料。所以你需要在執行sql前進行檢查 if stu name.length 1 stu age.le...
lotus notes無法寫入郵件資料庫，說已達到753603kb，怎麼辦
我去。你是h3c的吧？你去問問陽光雨露的人啊。讓他們幫你弄個本地郵箱的電子流。以後每次到本地郵箱裡收信就行了。就可以清空網路郵箱的空間。郵件限制 沒辦法 要不就增大配置 清理郵箱，釋放空間，然後壓縮。lotus notes總是提示無法寫入資料庫,會超出容量限額,什麼 您好,首先，您使用的是否在本地資...