+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html)
+--- Forum: Visual Basic .NET Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-net-cevaplanmis-sorulari.html)
+--- Konu Başlığı: vb.netten access kaydetme sorunu (/konu-vb-netten-access-kaydetme-sorunu.html)
Sayfalar:
1
2
vb.netten access kaydetme sorunu - goodfalles - 15/05/2011
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
Cvp: vb.netten access kaydetme sorunu - ercansahin - 15/05/2011
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 SubCvp: vb.netten access kaydetme sorunu - goodfalles - 15/05/2011
yok gene aynı değişen bir şey olmadı
Cvp: vb.netten access kaydetme sorunu - ercansahin - 15/05/2011
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.
Cvp: vb.netten access kaydetme sorunu - goodfalles - 15/05/2011
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)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
Cvp: vb.netten access kaydetme sorunu - goodfalles - 15/05/2011
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