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
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
yok gene aynı değişen bir şey olmadı
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.
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
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