AccessTr.neT

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

Kısa bir bilgi vereyim ISAM Veri Tabanına bağlanmak için kullanılan bir sürücü

Genellikle Bu hata “Data Source” veya “Provider” kısımlarının yanlış yazılmasından kaynaklanmaktadır. Veri tabanına bağlantı komutlarını kontrol ediniz.

Data Source kısmında c : \ şeklinde aralarda boşluk bırakmadan yazın. c:\aaa.accdb gibi. Ayrıca makinenizde Office 2007 veya üst versiyonların yüklü olup olmadığınıda kontrol edin.

boşlukları sildim olmadı ve office 2010 sürüm yüklü

Eğer Access dosyanızı yani as.accdb isimli dosyayı şifrelemediyseniz aşağıdaki gibi kullanın.



con.ConnectionString = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\as.accdb;Persist Security Info=False;")

Eğer şifrelediyseniz aşağıdaki gibi kullanın



con.ConnectionString = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\as.accdb;Jet OLEDBatabase Password=ŞİFRENİZİBURAYAYAZIN;")

Deniyorum

cyberwars

chopper07

alpeki99

cyberwars

alpeki99

cyberwars