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: [email protected] [mailto:[email protected]]
On Behalf Of yusup andrias
Sent: 06 Juni 2009 17:20
To: [email protected]
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 <[email protected]>
To: [email protected]
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
