Cara Membuat Halaman Login VB6 yang Terkoneksi dengan Database

Sebuah aplikasi tidaklah sempurna apabila tidak ada login, tetapi tidak semua aplikasi membutuhkan login. karena ada beberapa aplikasi yang justru aneh apabila ada fotm loginnya,

berikut ini adalah cara bagaimana membuat login admin yang sudah terkoneksi dengan database.

tambahkan script ini pada module

Public Db As Connection

Public Function Aktif_Koneksi() As Boolean
Set Db = New ADODB.Connection
Db.CursorLocation = adUseClient
Db.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\database.accdb;"
End Function


tambahkan script ini pada form

BACA JUGA : Cara Memindahkan Data dari Datagrid Ke Textbox atau Label vb6

Dim WithEvents rcpass As Recordset

Private Sub cmd_login_Click()
If pas = tpas And ttingkat = "admin" Then
Form2.Show
'ElseIf pas = tpas And ttingkat = "user" Then
'Form11.Show
Else
MsgBox "Password tidak cucok"
Exit Sub
End If

Unload Me
End Sub

Private Sub cmd_next_Click()
tus = ""

Call Aktif_Koneksi
Set rcpass = New Recordset
Dim sql As String
sql = "select * from admin where user like '" & Tcari.Text & "'"
rcpass.Open sql, Db, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rcpass
If tus = "" Then
MsgBox "User Tidak dikenali"
Exit Sub
End If
pas.Visible = True
cmd_login.Visible = True
cmd_next.Visible = False
cmd_next.Default = False
cmd_login.Default = True
Tcari.Enabled = False
label.Caption = Tcari
Tcari.Visible = False


End Sub


Private Sub Command1_Click()
If Text2 = "" Then Exit Sub
If Text4 = Text1 Then
Tcari.Visible = True
cmd_next.Visible = True
Command1.Visible = False
Text2.Visible = False
Tcari.Enabled = True
cmd_next.Enabled = True
Else
MsgBox "Silahkan Coba Kembali"
Tcari.Enabled = False
cmd_next.Enabled = False

End If
rcpass!sr = Text4
rcpass.Update

End Sub

Private Sub Form_Load()
Aktif_Koneksi
Set rcpass = New Recordset
rcpass.Open "select * from admin", Db, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rcpass

End Sub



Private Sub rcpass_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
If rcpass.RecordCount > 0 Then
ttingkat = rcpass!Level & ""
tus = rcpass!user & ""
tpas = rcpass!Password & ""
'tsr = rcpass!sr & ""
End If
End Sub


sekian semoga bermanfaat,
tinggalkan komentar jika masih bingung.