Ubah Sisipan Nama dari (') ke (~)

Cara memasukkan atau menginputkan data / nama seseorang ke dalam database (dalam hal ini back end saya memakai SQL Server dan front line memakai VB NET)...



baik kita mulai saja, kita mengandaikan kita sedang menginputkan nama seseorang dan nama orang tersebut ada tanda (') (petik). dan SQL Server tidak dapat menerima inputan semacam ini, sebagai contoh yang akan kita inputkan adalah seseorang dengan nama Al'Badawi nama ini mengandung tanda (') yang tidak akan mungkin bisa di terima oleh SQL Server. bagaimana cara mengatasinya ?

jalan satu-satunya adalah merubah tanda (') dengan tanda lain yang dapat di terima oleh SQL server yaitu dengan tanda (~) sehingga yang tadinya Al'Badawi menjadi Al~Badawi ketika masuk database SQL Server. gunakan fungsi trim, left, len atau mid untuk me-replace (') menjadi (~)

konversinya menggunakan fungsi replace :

dim vReplace, var as string
var = textbox1.text
vReplace = var.replace("'","~")

hasilnya : Al~Badawi

dan ketika select dari database dan mengembalikan lagi ke bentuk semula (') tinggal di balik saja :

dim vReplace, var as string
var = textbox1.text
vReplace = var.replace("~","'")

hasilnya : Al'Badawi

atau contoh lain untuk perubahannya seperti ini (thank to kus for pengembangan):

Dim i As Integer
Dim x, y, z, xreplace As String
x = TextBox2.Text
i = Len(TextBox2.Text)
For i = 0 To i
y = vb.Left(x, i)
z = "'"
For Each z In y
xreplace = y.Replace("'", "~")
TextBox1.Text = xreplace
Next
Next

yang mana koding diatas adalah untuk mengecek apakah tiap textbox ada yang berisi (') maka akan di ubah menjadi (~)

semoga membantu


WAL