Skip to main content

AccessTr.neT


vb.netten access kaydetme sorunu

vb.netten access kaydetme sorunu

Çözüldü #1
slmlar uzun bir süredir programlama yazılım vs ile ilgilenmiyordum daha önceden baya bir uğraşıyordum ama şimdi tekrar içimde bi kıvılcım oluştu ve birşeyler yapmaya başladım buradaki örneklerden vs bakarak

sorunum şimdilik şu kaydetme işlemini yapamıyorum kayıt edildi gözüküyor ama Access eklenmiyor dosya ekte
.rar WindowsApplication2.rar (Dosya Boyutu: 122,53 KB | İndirme Sayısı: 18)
Cevapla
Çözüldü #2
Kaydet Buttonunuzun kodunu aşağıdaki ile değiştirip deneyin.
Private Sub btnkaydet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkaydet.Click
'KAYDET
If Me.txtsoru.Text = "" Then
MsgBox("Lütfen Soru Alanını Doldurunuz. Bu Alan Boş Bırakılamaz.", MsgBoxStyle.Exclamation, "Kayıt Uyarı")
Else

Dim Sql As New String("INSERT INTO tblsoru (soruno,ders,soru,cevapa,cevapb,cevapc,cevapd,cevape,zorluk,dcevap) values ({0},'{1}','{2}','{3}','{4}','{5}','{6}','{7}','{8}','{9}')")
Sql = String.Format(sql, TextBox7.Text, cbdersad.Text, txtsoru.Text, TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, txtzorluk.Text, cbcevap.Text)
Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='sorular.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 tblsoru'")
baglanti.Close()
'Temizle()

End If

Me.txtsoru.Text = ""
End Sub
Cevapla
Çözüldü #3
yok gene aynı değişen bir şey olmadı
Cevapla
Çözüldü #4
Bakın TextBox7 olarak atadığınız ve tablonuzda soruno olarak ayarlı alanı boş geçemezsiniz. Sanırım siz onu atlıyorsunuz. Ben hata denetimi ile çalışan halini yüklerim biraz sonra. Bekleyin.
Cevapla
Çözüldü #5
tamam onuda boş bırakmıyorum eklenmiş gibi görünüyor hatta sağda listede gözüküyor eklediklerim ama son 3bölümü almıyor yani kodda
Dim Sql As New String("INSERT INTO tblsoru (soruno,ders,soru,cevapa,cevapb,cevapc,cevapd,cevape,zorluk,dcevap) values ({0},'{1}','{2}','{3}','{4}','{5}','{6}','(7)','(8)','(9)')")
Sql = String.Format(sql, TextBox7.Text, cbdersad.Text, txtsoru.Text, TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, txtzorluk.Text, cbcevap.Text)
burada 7 8 9 eklenmiyor oradalar 7 8 9 gözüküyor tabloda
formu kapattığımda açtığımda hepsi silinmiş oluyor sadece ilk soru kalıyor onuda direk Access içine yazmıştım o kalıyor
Cevapla
Çözüldü #6
7 8 9da parantez hatası yapmışım onu hallettim ama genede tabloda kapatmadna önce kayıt etti gibi gözüküp kapatınca Access kaydetmemesini yapamadım
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da