論壇中VB版裡經常見到一些朋友問到關於登陸的問題,這篇文章專門為初學的朋友提供一些協助,當然希望有更好辦法的高手給予指點。
首先 檔案→建立→項目 選擇windows應用程式 並在表單上添加2個label控制項、2個textbox控制項、2 個buton控制項如(1-1):
介面設計好後在button的click事件中寫入代碼如下:
|
(在程式頂部引用Imports System.Data.OleDb) Private Sub BOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BOk.Click '定義 Dim olecn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Data.mdb") Dim olecm As New OleDbCommand("select * from Login", olecn) Dim olead As New OleDbDataAdapter Dim olerd As OleDbDataReader Dim pd As Boolean = False '定義boolean為後面錯誤處理使用 Dim i As Integer olecm = New OleDbCommand("select * from Login", olecn) '與資料庫建立串連 olecn.Open() olerd = olecm.ExecuteReader '迴圈判斷與資料庫中資料是否相同 Do While olerd.Read() For i = 0 To olerd.FieldCount - 1 If Trim(TUser.Text) = (olerd.Item("帳號")) And Trim(TPassword.Text) = (olerd.Item("密碼")) Then MsgBox("成功登陸") pd = True Exit Sub End If Next Loop TUser.Text = "" TPassword.Text = "" TUser.Focus() olerd.Close() olecn.Close() End Sub |
整個過程就做完了簡單吧。
QQ:174453914