Skip to main content

AccessTr.neT


Üst Tırnak İşareti (') Sorunu

Üst Tırnak İşareti (') Sorunu

Çözüldü #1
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.

Visual Basic Code
    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

Cevapla
Çözüldü #2
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ı;

Visual Basic Code
    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.

Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da