Imports System.Data.OleDb

Public Class Form2

 Dim a As String

 Dim baglantı As New OleDb.OleDbConnection

 Dim kon As Boolean = False

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

 a = Convert.ToString(TextBox1.Text)

 



 If kontrol(TextBox1.Text, TextBox2.Text) = True Then

 MsgBox("HOŞGELDİNİZ... BY " & a, MsgBoxStyle.Information, "HOŞGELDİNİZ")

 Form1.Show()



 Me.Hide()

 Else

 End If



 End Sub

 Public Function kontrol(ByVal ad As String, ByVal sifrex As String) As Boolean

 Dim baglantı As New OleDbConnection

 baglantı.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\login.accdb"

 Dim commad As New OleDb.OleDbCommand

 commad.CommandText = "SELECT * FROM kontrol WHERE kullanıcı_adı=@kullanıcı_adı "

 commad.CommandType = CommandType.Text

 commad.Connection = baglantı



 Dim paremert As New OleDbParameter("@kullanıcı_adı", DbType.String)

 paremert.SourceColumn = "kullanıcı_adı"

 paremert.Value = ad

 commad.Parameters.Add(paremert)

 Dim sifrepa As New OleDbParameter("@sifre", DbType.String)

 sifrepa.SourceColumn = "sifre"

 sifrepa.Value = sifrex

 commad.Parameters.Add(sifrepa)





 Dim oku As OleDbDataReader



 baglantı.Open()

 oku = commad.ExecuteReader

 Do While oku.Read = True

 If oku.Item("kullanıcı_adı") = ad And oku.Item("sifre") = sifrex Then

 kon = True

 Exit Do

 End If

 Loop

 If kon = True Then



 Return True

 ElseIf kon = False Then

 MsgBox("HATALI GİRİŞ YATINIZ", MsgBoxStyle.Critical, "UYARI")

 TextBox1.Clear()

 TextBox2.Clear()

 TextBox1.Focus()



 Return False

 TextBox1.Focus()



 End If

 baglantı.Close()





 End Function



 

 

End Class

İnanmayan, Şaka yaptığımı düşünenlerde denesin
bakın sonra nasıl kontrol ediyo

Bir Yorum Bekliyorum Adminler

Ne yorumu bekliyorsunuz?

Hani Şakayapıyormuşum Diyodunuz ya işte o Kodları Paylaştım Bak Şakamı Yapıyormuşum

Yaşının 17 olduğunu her yerde belli etme bence. Bak yukarıda ilkokul çocuklarının yazdığı cümleden farksız ne yazmışsın :

"bak kardeş ilk olarak bir functions tanımlayarak textboxları kontrol edip değer dönderecek functiondada connection falan"

functiondada connection falan böyle bir cümle yazan adam ya şaka yapıyordur ya da okuma yazmayı yeni öğreniyordur. Her halde connection olacak adamın sorusuna öyle cevapmı yazılır? İmzana yazmışsın Programlama Kopyalama Değil Yaratma İşidir diye. Bende bir ekleme yapayım ona müsadenle kendini ifade edebilmek işin özüdür.

bak abiciğim bende orada dedim ki connection falan filan yazdım msn sini istedim daha fazla açıklama yapabileyim diye sen olayı yanlış anlamışsın