Cara mengatasi error tanda kutip satu pada vb6

Kali ini saya akan membahas mengenai Cara mengatasi error tanda kutip satu pada vb6 yang sering terjadi saat akan menyimpan data dan data tersebut mengandung tanda kutip satu.

Berikut adalah sample program yang saya sudah siapkan untuk mempermudah saat menjelaskannya.

dibawah ini coding form seperti tampilan diatas tetapi belum saya sisipkan coding untuk replace tanda kutip:

'-------------------------------------------------------------------------------------------
Sub SIMPAN()
Call konek
 benang = "insert into DATA1 (NAMA,ALIAS,ALAMAT,TELP)  values ('" & TNAMA & "','" & TALIAS & "','" & TALAMAT & "','" & TTELP & "')"
conn.Execute benang
conn.Close
MsgBox "Data sudah disimpan..", vbInformation, "Perhatian"
End Sub
'-------------------------------------------------------------------------------------------

Sub BERSIH()
TNAMA = ""
TALIAS = ""
TALIAS = ""
TALAMAT = ""
TTELP = ""
TNAMA.SetFocus
End Sub
'-------------------------------------------------------------------------------------------

Private Sub bsimpan_Click()
If TNAMA = "" Or TALIAS = "" Or TALAMAT = "" Or TTELP = "" Then
 MsgBox "Data tidak lengkap, lengkapi data untuk proses simpan..", vbInformation, "Perhatian"
 Else
    Call SIMPAN
Call BERSIH
End If
End Sub
'-------------------------------------------------------------------------------------------

Private Sub bkeluar_Click()
Call BERSIH
conn.Cancel
Set conn = Nothing
Unload Me
End Sub

'-------------------------------------------------------------------------------------------

'================= MODUL KONEKSI=============================

Global conn As New ADODB.Connection
Global cmd As New ADODB.Command
Global rs As New ADODB.Recordset
Sub konek()
Set conn = New Connection
      koneksi = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=BDPPRO"
 conn.Open koneksi
End Sub

'=================================================================

Jika coding diatas di running akan terjadi error karena diteks isiannya saya menyisipkan tanda kutip satu

untuk mengatasi error tersebut saya sisipkan coding untuk mereplace tanda kutip yang ada dalam teks:

 '-----------------------------------------------------------------------------------

Private Sub bsimpan_Click()
If TNAMA = "" Or TALIAS = "" Or TALAMAT = "" Or TTELP = "" Then
 MsgBox "Data tidak lengkap, lengkapi data untuk proses simpan..", vbInformation, "Perhatian"
 Else

'------------------ CODING UNTUK REPLACE TANDA KUTIP SATU---------------
   TNAMA = Replace(TNAMA, "'", "''")
   TALIAS = Replace(TALIAS, "'", "''")
   TALAMAT = Replace(TALAMAT, "'", "''")
 '-----------------------------------------------------------------------


    Call SIMPAN
Call BERSIH
End If
End Sub

 

coding tersebut disimpan di button simpan.

kemudian coba kita running lagi, dan hasilnya akan seperti ini

 

selamat mencoba, jika ada yang tidak paham atau ada yang mau ditanyakan silahkan tinggalkan komentar

terima kasih.