English French German Spain Italian Dutch

Russian Portuguese Japanese Korean Arabic Chinese Simplified
Tampilkan postingan dengan label Pemrograman Visual 1. Tampilkan semua postingan
Tampilkan postingan dengan label Pemrograman Visual 1. Tampilkan semua postingan

20 Februari 2010

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

26 September 2009

Tugas 3 PV 1



Tugas 3 PV1

Membuat Jam Analog soal dapat di ambil disini
Dan contoh Program agar sesuai dengan yang diminta ambil disini

14 September 2009

Tugas 2PV 1

Tugas : Perulangan dan select case

di kumpulkan via email ke dotnet.class@yahoo.com dengan subyek Tugas 2 PV1

tugas dapat diambil di Tugas 2 PV1

07 September 2009

Tugas 1 PV1

Tugas 1 PV1 : logika percabangan



Tugas di compress dan kirim email ke dotnet.class@yahoo.com

dengan subyek : Tugas 1 PV1

Ketentuan tugas dapat di ambil pada Tugas PV1