21/02/2014, 16:28
cyberwars
Sa Arkadaşlar aldığım hata budur yardımlarınızı bekliyorum şimdiden teşşekurler
Kod:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim con As New OleDbConnection
Dim com As New OleDbCommand
Dim adp As New OleDbDataAdapter
Dim dataset As New DataSet
con.ConnectionString = ("Provider = Microsoft.ACE.OLEDB.12.0; Data Source = C: \ as.accdb; Jet OLEDB: Database Password = MyDbPassword;")
com.CommandText = ("Select * From Kişiler Where ID = '" + TextBox1.Text + "' And Pass = '" + TextBox2.Text + "'")
con.Open()
com.Connection = con
adp.SelectCommand = com
adp.Fill(dataset, "0")
Dim a = dataset.Tables(0).Rows.Count
If a > 0 Then
Form2.Show()
Me.Hide()
Else
MsgBox("Lütfen Doğru Bir Giriş Yapınız", MsgBoxStyle.Critical)
TextBox1.Clear()
TextBox2.Clear()
End If
End Sub