VB 連線到資料庫

2.使用者的密碼是否為text2，是否轉移到下一步，是否退出;

3.後續操作。

PS：看看“我的訊息”。

頭暈。 這個有點長，說不清楚，建議你去msdn看看，如果沒有安裝，可以在裡面搜尋msdn，裡面肯定有典型案例！ 你可以看到箱子裡寫了什麼！

VB 連線到資料庫。 檢查使用者名稱和密碼。 如果輸入錯誤三次，程式將退出。

option explicit

dim cnt as integer '記錄確定的次數。

private sub cmdcancle_click()

unload me

end sub

private sub cmdok_click()

dim sql as string

dim rs_login as new

dim conn as new

provider=; data source=" & "固定。 mdb"

if trim( = "" then

msgbox "使用者名稱不能為空，請重新輸入！ "

elsesql = "從使用者表中選擇 *，其中使用者 ID ='" & trim( &"'"

rs_ sql, conn, adopenkeyset, adlockpessimistic

if rs_ = true then

msgbox "如果您沒有此使用者，請重新輸入！ ", vbokonly + vbexclamation, ""

elseusername =

if trim(rs_ = trim( then

unload me

elsemsgbox "密碼不正確，請重新輸入！ ", vbokonly + vbexclamation, ""

end if

end if

end if

cnt = cnt + 1

if cnt = 3 then

unload me

end if

end sub

private sub form_keypress(keyascii as integer)

if keyascii = 13 then

call cmdok_click

end if

end sub

private sub form_load()

cnt = 0

end sub

dim mm1 as string

dim user1 as string

user1 = trim(

mm1 = trim(

if user1 = "" or mm1 = "" thenrespone = msgbox("使用者名稱和密碼不能為空！ ", vbyes, "提示！ ")

elsesql = "select count（*）from table name where username field ='" + user1 + "'"

set rs =

if rs(0) <0 then

sql = "從表名稱中選擇密碼字段，其中密碼字段 ='" + mm1 + "'"

set rs =

if mm1 = rs(1) then

形式。 show

end if

elsemsgbox "使用者名稱不存在，請重新輸入！ "

end if

end if

新增部件的方法：Microsoft Ado 資料控制項

將 ADODC 控制項新增到窗體中，然後設定 ADODC 控制項的屬性，在“使用連線字串”項的一側選擇“生成”，然後選擇 oracle 驅動程式，並設定其他條件（庫、使用者、密碼等），複製生成的字串，分配值，然後就可以刪除 ADODC 控制項了。

可以通過 ADodC 資料訪問控制的屬性頁連線到 Oracle 資料庫。

1） 建立資料專案並將 ADODC 資料訪問控制新增到窗體。滑鼠選擇“生成的 ADODC 控制項”-右鍵單擊“-”生成的 ADODC 屬性“-”使用連線字串”。

2） 選擇“用於 Oracle 的 Microsoft OLE DB 提供程式”，然後轉到下一步。

3）根據資料鏈路屬性對話方塊填寫所需內容並測試連線。指向“確定”，最後在“ADODC”屬性頁上獲取連線字串，複製該字串，即可將其直接用作 ADodC 資料訪問控制項，或在 ** 中用作 ADodc 控制項或 ADO 資料訪問物件。