Public Function SQLdenganKutip(ByVal sText)
Dim sTemp
If Not IsNothing(sText) Then sTemp = Replace(sText, "'", "''")
SQLdenganKutip = sTemp
End Function
Lalu taro fungsi sqldengankutip seperti codingan yang berwarna merah .
Dim bb As String
bb = "Insert into tamu " & _
"( kode_tamu " & _
",No_kartuidentitas " & _
",Nama_tamu " & _
",Kewarganegaraan) " & _
" Values " & _
" ('" & txtkodetamu.Text & "' " & _
" ,'" & txtnoktp.Text & "' " & _
" ,'" & SQLdenganKutip(txtnamalengkap.Text) & "' " & _
" ,'" & txtkewarganegaraan.Text & "') "
cmd = New OleDb.OleDbCommand(bb, conn)
cmd.ExecuteNonQuery()
cmd.Dispose()
Perhatian: Yuk Baca Artikel bagus di Nurul Musthofa
di vb 2008 gmana?
ReplyDeleteerror pas Replace(sText, "'", "''")
expression does not produce a value
Saya tertarik dengan tulisan anda mengenai Teknologi. Teknologi merupakan suatu ilmu yang sedang berkembang di zaman yang sudah maju sekarang ini. Saya memiliki beberapa tulisan sejenis mengenai Teknologi yang dapat dilihat di www.ejournal.gunadarma.ac.id
ReplyDelete