mas frangky, sori waktu ksh kmrn i blm coba...:)
neh saya sdh perbaiki..dan bisa berjalan...
Private Sub Command1_Click()
For i = 0 To Check1.Count - 1
If Check1(i).Value = False Then
Else
rs.Open "select * from buah where nama = '" & Text1.Text & "' and
buah_kesukaan = '" & Check1(i).Caption & "'"
If rs.BOF Then
rs.AddNew
rs!nama = Text1: rs!buah_kesukaan = Check1(i).Caption
rs.Update
Else
rs!nama = Text1: rs!buah_kesukaan = Check1(i).Caption
rs.Update
End If
End If
Next i
end sub
sori ya sebelumnya..tx
________________________________
From: Frangky <[email protected]>
To: [email protected]
Sent: Sunday, June 7, 2009 1:47:19 PM
Subject: RE: [Programmer-VB] Tanya: Cara Simpan Value dari Checkbox ke Database.
Mas Yusup,
Saya sudah buat checkboxnya array sesuai petunjuk Mas Yusup,
tapi tidak bisa tersimpan ke table database ya?
Codingnya seperti ini:
Private Sub Command1_Click( )
Dim i as Long
For i = 0 To Check1.Count - 1
If
Check1(i).Value = True Then
Msgbox “SALAH” ‘Msgbox ini saya
sengaja tempatkan disini hanya utk mengecek apakah Code yang berada dibawah ini
diekseskusi oleh Visual Basic atau tidak. Ternyata Code ini tidak pernah
dieksekusi.
rs.Open "select * from buah where nama = '" & Text1.Text &
"' and buah_kesukaan = '" & Check1(i).Caption & "'"
If rs.BOF Then
rs.AddNew
rs!nama = Text1: rs!buah_kesukaan = Check1(i).Caption
rs.Update
Else
rs!nama = Text1: rs!buah_kesukaan = Check1(i).Caption
rs.Update
End If
End If
Next i
Msgbox “Data Telah
Disimpan”
End Sub
From:Programmer-VB@ yahoogroups. com [mailto:Programmer- v...@yahoogroups. com]
On
Behalf Of yusup andrias
Sent: 06 Juni 2009 17:20
To: Programmer-VB@ yahoogroups. com
Subject: Re: [Programmer- VB] Tanya: Cara Simpan Value dari Checkbox ke
Database.
mas frangky, lebih baik, checkbox nya di buat dalam bentuk
array aja..
jd bentuknya adalah : check1(0), check1(1), ... dst smp
sebanyak yg diinginkan..
untuk menyimpannya :
for i = 0 to check1.count - 1
if
check1(i).value = true then
rs.open
"select * from buah where nama = '" & text1.text & "'
and buah_kesukaan = '" & check1(i).caption & "'"
if
rs.bof then
rs.addnew
rs!nama
= text1 : rs!buah_kesukaan = check1(i).caption
rs.update
else
rs!nama
= text1 : rs!buah_kesukaan = check1(i).caption
rs.update
endif
endif
next i
semoga membantu y mas frangky..
salam.
________________________________
From:Frangky <franklin.id@ gmail.com>
To: Programmer-VB@ yahoogroups. com
Sent: Saturday, June 6, 2009 4:01:37 PM
Subject: [Programmer- VB] Tanya: Cara Simpan Value dari Checkbox ke
Database.
Teman-teman,
Pada
Form ada 3 buah Checkbox dengan Nama Check1, Check2, Check3 dan satu buah
Textbox yang isinya Nama Orang.
Fungsi
dari ketiga checkbox tersebut agar user mimilih Buah Kesukaan dari orang yang
namanya ada di textbox. Misalnya:
Check1.Caption
= Mangga.
Check2.Caption
= Apel.
Check3.Caption
= Durian.
Seandainya
User mimilih/ klik Check1 dan Check2.
Saya
bingung bagaimana menyimpan value dari check box yang diklik tersebut.
Sehingga
waktu disimpan ke database nantinya akan tersimpan ke database sebagai berikut:
NAMA
BUAHKESUKAAN
ANDY
Apel
ANDY
Durian
Mohon
bantuannya.
No virus
found in this incoming message.
Checked by AVG - www.avg.com
Version: 8.5.339 / Virus Database: 270.12.52/2152 - Release Date: 06/03/09
05:53:00
