RE: [ilkom_usu] program

[Muhammad Alvin]

Kalo menurut saya, itu akibat tanda apostrophe (‘) yg menjadikan query SQL 
berantakan.

 

Anggaplah ada code berikut:

Dim strNama, strNim, strJurusan

strNama = ‘Muhammad Alvin’

strNim = ‘061401088’

strJurusan = ‘S1 Ilmu Komputer USU’

 

Dim strSQL

strSQL = ‘INSERT INTO tbl_mahasiswa (nim, nama, jurusan) VALUES (‘’’ & strNim & 
‘’’, ‘’’ & strNama & ‘’’, ‘’’, & strJurusan & ‘’’)’

 

Dengan data di atas, maka strSQL akan bernilai:

INSERT INTO tbl_mahasiswa (nim, nama, jurusan) VALUES (‘061401088’, ‘Muhammad 
Alvin’, ‘S1 Ilmu Komputer’)

 

Untuk kasus strNama = Fa’iz, tentu saja strSQL akan bernilai:

INSERT INTO tbl_mahasiswa (nim, nama, jurusan) VALUES (‘012345678’, ‘Fa’iz’, 
‘jurusan’)

 

Lihat kesalahan di ‘Fa’iz’

 

Solusinya, setiap karakter apostrophe pada strNama harus di-replace jadi double 
apostrophe. Ada fungsi Replace di VB6, yaitu Replace(string, search, replace) 
yg akan mencari <search > dalam string <string> lalu direplace jadi <replace>. 
Contoh penggunaannya:

strSQL = ‘INSERT INTO tbl_mahasiswa (nim, nama, jurusan) VALUES (‘’’ & strNim & 
‘’’, ‘’’ & Replace(strNama, ‘’’’, ‘’’’’’) & ‘’’, ‘’’, & strJurusan & ‘’’)’

 

sehingga menghasilkan:

INSERT INTO tbl_mahasiswa (nim, nama, jurusan) VALUES (‘012345678’, ‘Fa’’iz’, 
‘jurusan’)

 

Catatan:

Seingat saya, utk membuat apostrophe di VB harus dibuatkan double apostrophe 
(bukan quotataion mark).

 

Maaf ya sample nya jadi susah dibaca, banyak kali apostrophe nya. Tapi saya 
yakin kamu ngerti kok. Maaf juga kalo ada yg salah dengan VB6 nya, soalnya saya 
udah lama gk pake VB6 (terakhir kira2 4 tahun yg lalu). Sekarang saya 
programmer PHP di perusahaan software swasta di kota medan.

 

 

Regards,

Muhammad Alvin -  <http://www.alvin.web.id/> www.alvin.web.id

 

From: ilkom_usu@yahoogroups.com [mailto:ilkom_...@yahoogroups.com] On Behalf Of 
SUKRON SAMOSIR
Sent: Monday, December 28, 2009 8:15 AM
To: ilkom_usu@yahoogroups.com
Subject: Bls: [ilkom_usu] program

 

  


Coba ganti
Properties Form menjadi
KeyPreview = True

dan tambahkn kode berikut

Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = Asc("'") Then KeyAscii = Asc("`")
End Sub


About me :

http://babiat.multiply.com/
http://profiles.friendster.com/30759605
http://www.facebook.com/people/Sukron-Samosir/1398614688



--- Pada Sab, 26/12/09, kazhu yoo <kazhu_...@yahoo.com> menulis:


Dari: kazhu yoo <kazhu_...@yahoo.com>
Judul: [ilkom_usu] program
Kepada: ilkom_usu@yahoogroups.com
Tanggal: Sabtu, 26 Desember, 2009, 10:50 AM

  


ass....
dear friends all..
aku ada buat program Biodata siswa memakai visual basic 6.0 dan database sql 
server 2000
**aku ada kasus**
ketika aku input biodata dengan nama siswa( FA'IZ)setelah selesai lalu aku klik 
tombol simpan kemudian muncul  pesan error seperti yang di bawah ini:

run-time error '2147217900( 80040e14) ';
line 1; Incorrect Syntax near 'IZ'.

bagi para-para master aku mohon pencerahan-a donzk!!!

 

  _____  

Dapatkan 
<http://sg.rd.yahoo.com/id/mail/domainchoice/mail/signature/*http:/mail.promotions.yahoo.com/newdomains/id/>
  nama yang Anda sukai! 
Sekarang Anda dapat memiliki email di @ymail.com dan @rocketmail.com.

<<image001.jpg>>

<<image002.jpg>>