- Katılım
- 13 Şubat 2011
- Mesajlar
- 1,162
- Excel Vers. ve Dili
- Microsoft Office Professional Plus 2013 Türkçe
Herkese Merhaba,
Access ten SQL sorgusu için oluşturduğum ekteki dosyada her şey uzunca anlatılmıştır. Yinede kısaca durumu özetmeye çalışayım: String ifade olarak Textbox içinde yer alan metinde tek tırnak işareti varsa (') bu hataya sebep olmaktadır. Bunu aşacak bir sorgu formülü bulamadım.
Kullandığım sorgu kodları aşağıdaki gibidir:
İlgilenen arkadaşlara şimdiden teşekkürler..
Access ten SQL sorgusu için oluşturduğum ekteki dosyada her şey uzunca anlatılmıştır. Yinede kısaca durumu özetmeye çalışayım: String ifade olarak Textbox içinde yer alan metinde tek tırnak işareti varsa (') bu hataya sebep olmaktadır. Bunu aşacak bir sorgu formülü bulamadım.
Kullandığım sorgu kodları aşağıdaki gibidir:
Kod:
Private Sub CommandButton1_Click()
Dim conn As Object, rs As Object, yol As String, sorgu As String
Set conn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
yol = ThisWorkbook.Path & "\datalar.accdb"
conn.Open = "provider=microsoft.ace.oledb.12.0; data source=" & yol & "; persist security info=false"
sorgu = "update data1 set konu = '" & CStr(Me.TextBox2.Text) & "', " & _
"detay = '" & CStr(Me.TextBox3.Text) & "' where id = clng('" & Me.TextBox1.Value & "')"
Set rs = conn.Execute(sorgu)
Set rs = Nothing
Set conn = Nothing
MsgBox "Güncelleme işlemi başarı ile tamamlandı.", vbInformation, "GÜNCELLEME RAPOR EKRANI"
Call UserForm_Initialize
End Sub
Ekli dosyalar
-
30.9 KB Görüntüleme: 10