Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
15/03/2014 15:29
Konu Sahibi
byhook
Yorumlar
1
Okunma
2257
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

byhook

Üye
Kullanici Avatari
Üye
6
3
15/02/2014
0
13/08/2014,18:17
Çözüldü 
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
1
2
3
4
5
6
7
8
9
10
11
12
13
    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

byhook

Üye
Kullanici Avatari
Üye
6
3
15/02/2014
0
13/08/2014,18:17
Çözüldü 
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
1
2
3
4
5
6
7
8
9
10
11
12
13
    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


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Açılır Kutudaki Değeri Alma Sorunu derzulya 5 219 11/07/2017, 16:08 derzulya
Çözüldü Sorguda Detay Ve Sonuçların Rapora Alt Bilgi Olarak Aktarılması Sorunu cemre1970 4 239 09/06/2017, 08:23 cemre1970
Çözüldü Access Den Excel Çıktısı Alma Sorunu estapan 13 919 30/05/2017, 14:12 atoz112
Çözüldü Access Formda Numlock Sorunu cagatay1234 6 432 30/05/2017, 10:28 cagatay1234
Çözüldü Buton Ve Msgbox Sorunu onurgs59 9 533 25/05/2017, 20:42 atoz112

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.