Dersizle Forumlarý

Acces ile basit bir Login programý
________________________________________
Öncelikle accessten bir veritabaný yaratýyoruz, bir tablo oluþturup Username ve Passwordalanlarý ekliyoruz, bir kullanýcý adý ve þifre belirledikten sonra VB projemizi açýyoruz ve iki tane form ekliyoruz. (Form1, Form2) Daha sonra Form1'e iki adet textbox, üç adet commandbuton ekliyoruz. Bunlarýn hepsini yaptýysanýz sýra geldi kodlara aþaðýdaki kodlarý Form1'in kod bölümüne kopyala yapýþtýr yapýn.


Option Explicit
Dim cn As New ADODB.Connection, strCNString As String
Dim rs As New ADODB.Recordset
Dim Txt As String

Private Sub Command1_Click()

On Error GoTo ErrHandler
strCNString = "Data Source=" & App.Path & "\database.mdb" 'database adýný yazýn.
cn.Provider = "Microsoft Jet 4.0 OLE DB Provider"
cn.ConnectionString = strCNString
cn.Properties("Jet OLEDBatabase Password") = "þifre" 'Database þifreli ise buraya þifreyi yazýn
cn.Open
With rs

.Open "Select * from Tablo1 where Username='" & txtname.Text & "' and Password='" & txtpass.Text & "'", cn, adOpenDynamic, adLockOptimistic
If .EOF Then
MsgBox "Lütfen Kullanýcý adý ve parolanýzý kontrol ediniz!", vbOKOnly + vbCritical, "Security Login"
txtname.Text = ""
txtpass.Text = ""
txtname.SetFocus
cn.Close
Else
Txt = "" & " " & UCase$(txtname.Text) & ""
MsgBox "HOÞGELDÝN!!!" & Txt, vbOKOnly + vbExclamation, "Giriþ"
cn.Close
Unload Me
Form2.Show

End If
End With

Exit Sub

ErrHandler:
MsgBox Err.Description, vbCritical, "Giriþ"
cn.Close
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Command2_Click()
On Error Resume Next
If Text1.Text = "" Then GoTo message
strCNString = "Data Source=" & App.Path & "\database.mdb" 'database adýný yazýn
cn.Provider = "Microsoft Jet 4.0 OLE DB Provider"
cn.ConnectionString = strCNString
cn.Properties("Jet OLEDBatabase Password") = "þifre" 'Database þifresi varsa
cn.Open
rs.Open "Select * from Tablo1", cn, adOpenDynamic, adLockOptimistic
rs.AddNew
rs(0) = Text1.Text
rs(1) = Text2.Text
rs.Save
cn.Close
rs.Close
MsgBox "Kullanýcý adý ve þifre yaratýldý.", vbInformation, "Onaylama"
Exit Sub
message:
MsgBox "Kullanýcý adý ve þifre yazmalýsýnýz.", vbCritical, "Hata"
End Sub

Private Sub Form_Load()
cmdRegister.Enabled = False
End Sub

Private Sub Text2_Change()
cmdRegister.Enabled = True
End Sub

Artýk projenizi test edip nasýl çalýþtýðýný görebilirsiniz.
Herkese kolay gelsin.

Eline saðlýk çok güzel bir çalýþma.

siteye yapanlara ve bilgi paylaþýmý yapanlara teþekkür ederim <;><