vb6 0 設定登入介面 如何呼叫訪問資料庫 有模組嗎？

實用的ado呼叫，有模組，或者使用ado很簡單。

dim db as database

dim rs as recordset

private sub command1_click()set db = opendatabase( &"\")set rs = "select name,sign from per where name='" & "'and sign='" & "")

if <>"" then

if = true and = true thenn = msgbox("密碼錯誤！ 請再試一次！ ", vbexclamation)

elsemsgbox ("登入成功！ ")

end if

elsen = msgbox("請選擇乙個使用者名稱！ ", vbexclamation)

end if

end sub

private sub form_load()set db = opendatabase( &"\")set rs = "per")

dim i as string

for t = 0 to val( -1

i = trim("name").value)i

next t

end sub

本地使用 DAO，遠端使用 RDO 和 ADO

首先，您需要將這兩個小部件新增到工具欄中並將它們拖到視窗中。

1.將上面的第一部分拖到 FRM1 上，然後建立乙個新模組並輸入以下字串 **。

2.在當前 frm1 中建立多個文字，以顯示資料庫中表中字段的資料。

3.將第乙個圖表中的第二個小部件拖到 FRM1 中，此小部件用於顯示表格中的所有資料，當您單擊表格的內容時，您可以在表單的多個文字中顯示這些資料。

大概就是這個思路了，因為沒有具體的表格什麼的，不知道怎麼說得更清楚，而且我不太明白你最終的計算是什麼意思，能幫上忙的就只有這些了。。。如果有任何問題，您可以提出。

VB本身可以直接呼叫訪問資料庫，你使用資料庫控制項，設定資料型別進行訪問。 因為這個問題有點複雜，這裡很難解釋，所以還是找一本相關的書自己看吧！