AccessTr.neT

(28/05/2011, 22:04)alpeki99 yazdı: [ -> ]Yanlışlıkla IO Import kısmını silmiş olabilir misiniz?

Yok siz dediniz diye baktım silmemişim birdaha yayınlarmısınız örnek çalışmayı tekrar upluop yaparak size zamet olmazsa

Teamviewer ile yapılan yardımda dosya yolundan kaynaklı problem olduğu anlaşılmıştır problem çözülmüştür.

Microsoft.Jet.OLEDB.4.0' sağlayıcısı yerel makine kayıtlı değil
hatası veriyor.

sorunu çözdüm. x86 da çalıştırmam gerekiyormuış.

bi işe yaramadı

Bu programda TckimlikNo suna göre mükerrer kayıt olayını yapamadım,yardımcı olabilirmisiniz ?

'KAYDET

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

 If Me.TextBox1.Text = "" Then

 MsgBox("Lütfen TCKimlikNo Alanını Doldurunuz. Bu Alan Boş Bırakılamaz.", MsgBoxStyle.Exclamation, "Kayıt Uyarı")

 Else

 

 Dim Sql As New String("INSERT INTO Kayitlar (TckimlikNo,AdiSoyadi,BabaAdi,Ogrencino,DogumYeri,Dogumtarihi,Aciklama) values ('{0}','{1}','{2}','{3}','{4}','{5}','{6}')")

 Sql = String.Format(sql, TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox6.Text, TextBox7.Text)

 Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='kayıt.mdb'")

 Dim komutnesnesi As New OleDb.OleDbCommand(sql, baglanti)

 Dim sonuc As Integer

 baglanti.Open()

 sonuc = komutnesnesi.ExecuteNonQuery()

 If sonuc = 1 Then

 MsgBox("Yandaki Girdiğiniz Veriler Veri Tabanına Kayıt Olmuştur.", MsgBoxStyle.Exclamation, "Tebrikler")

 End If

 Listele("SELECT * FROM Kayitlar'")

 baglanti.Close()

 Temizle()

 

 End If

 

 Me.ComboBox1.Text = ""

 End Sub