AccessTr.neT

Arkadaşlar üst tırnak karakteri ile ilgili sorunum var. Metin içerisine yazdığım kelimenin içerisinde ( ' ) üst tırnak işareti kullanınca "söz dizimi hatası" veriyor.

ÖRNEK

Başlık : Türkiye' nin dağları.

Metin : Türkiye' nin yeryüzü şekilleri.

Şeklinde giriş yaptığımızda buradaki tırnak işaretlerinden dolayı hata veriyor. Kod satırı aşağıdaki gibi.



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

        Dim baslik, metin As String

        baslik = TextBox1.Text

        metin = RichTextBox1.Text

        baglan = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Server3\Desktop\mvt.mdb"

        Dim baglanti As New Data.OleDb.OleDbConnection(baglan)

        baglanti.Open()

        ekle = "insert into mvtbl (baslik,metin) values ('" & baslik & "','" & metin & "')"

        Dim kontrol As New System.Data.OleDb.OleDbCommand(ekle, baglanti)

        kontrol.ExecuteNonQuery()

        baglanti.Close()

        MsgBox("Kayıt İşlemi Başarılı")

    End Sub

Sanırım soruma şu ana kadar cevap verebilen olmadı. Türkçe kaynaklarda hiçbirşey bulamadım, biraz tarzanca ingilizcem ile yabancı sitelerde aradım, şöyle birşey buldum ve işime yaradı tabiki bu konuda usta olan arkadaşlar daha iyi bilirler ama ben yinede hatayı nasıl düzettiğimi kod içinde göstereyim.

İşte çalışan kod satırı;



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

        Dim baslik, metin As String

        baslik = TextBox1.Text

        metin = RichTextBox1.Text

        baglan = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Server3\Desktop\mvt.mdb"

        Dim baglanti As New Data.OleDb.OleDbConnection(baglan)

        baglanti.Open()

        ekle = "insert into mvtbl (baslik,metin) values (""" & baslik & """,""" & metin & """)"

        Dim kontrol As New System.Data.OleDb.OleDbCommand(ekle, baglanti)

        kontrol.ExecuteNonQuery()

        baglanti.Close()

        MsgBox("Kayıt İşlemi Başarılı")

    End Sub

ekle sorgusunun içinde değişkenlerden dönen verileri 3 tane çift tırnak içine alınca sorun çözülmüş oldu.

byhook

byhook