+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html)
+--- Forum: Visual Basic .NET Örnekleri ve Uygulamaları (https://accesstr.net/forum-visual-basic-net-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Vbnet ile access'e kayıt ekleme, silme ve fotoğraf ekleme (/konu-vbnet-ile-access-e-kayit-ekleme-silme-ve-fotograf-ekleme.html)
Cvp: Vbnet ile access'e kayıt ekleme, silme ve fotoğraf ekleme - kanka07 - 28/05/2011
(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
Cvp: Vbnet ile access'e kayıt ekleme, silme ve fotoğraf ekleme - alpeki99 - 28/05/2011
Teamviewer ile yapılan yardımda dosya yolundan kaynaklı problem olduğu anlaşılmıştır problem çözülmüştür.
Cvp: Vbnet ile access'e kayıt ekleme, silme ve fotoğraf ekleme - keanureeves - 31/05/2011
Microsoft.Jet.OLEDB.4.0' sağlayıcısı yerel makine kayıtlı değil
hatası veriyor.
Cvp: Vbnet ile access'e kayıt ekleme, silme ve fotoğraf ekleme - keanureeves - 21/06/2011
sorunu çözdüm. x86 da çalıştırmam gerekiyormuış.
Cvp: Vbnet ile access'e kayıt ekleme, silme ve fotoğraf ekleme - alperdere - 11/09/2013
bi işe yaramadı
Cvp: Vbnet ile access'e kayıt ekleme, silme ve fotoğraf ekleme - alican60 - 19/12/2013
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