Mas Bace yang terhormat, manusia tidak ada yang sempurna, mohon agar orang yang salah dan ingin bantuan untuk menambah pengetahuan tidak ditertawakan…walaupun ilmu mas udah setinggi langit tapi orang yang masih mau belajar agar tidak diremehkan, siapa tau yang anda remehkan itu lebih pintar dari anda dalam hal lain.. terima kasih…
From: Programmer-VB@yahoogroups.com [mailto:programmer...@yahoogroups.com] On Behalf Of Bace - Bace Sent: Monday, June 08, 2009 9:11 PM To: Programmer-VB@yahoogroups.com Subject: Re: [Programmer-VB] Tanya: Cara Simpan Value dari Checkbox ke Database. hayaaaaa....hari gene masih error make sintax vb. wkwkkw..... untuk mengecek nilai check box, sangat mudah..nilai check book itu ada 3 saja nilai =0 artinya tidak tercentang nilai =1 artinya tercentang nilai =2 artinya tercentang tp gray (abu2) tentu saja msgbox yg km buat tidak pernah tereksekusi, krn tidak akan dibaca oleh komputer, krn komputernya bingung..hehhehe perhatikan salahnya.. If Check1(i).Value = True Then =======>> tidak ada nilai yg dibaca, perintah = true or false hanya dipakai dalam option (radio box) coba aja ganti menjadi If Check1(i).Value = 1 Then ====>> pasti jalan tuh kodingnya. tapi setelah kupehatikan banyak deh perintah yang salah dalam koding nya... BOF = begin of file, untuk menuju rekord pertama dlm tabel database EOF = end of file, untuk menuju rekord terakhir.. rs.Open "select * from buah where nama = '" & Text1.Text & "' and buah_kesukaan = '" & Check1(i).Caption & "'" =>> artinya mencari data dari tabel buah dengan kondisi tertentu. If rs.BOF Then ==>>artinya jika rekord pada posisi pertama, lakukan perintah dibawahnya rs.AddNew ==>> tambah baris ==>> perintah disini tidak akan pernah dieksekusi, krn bisa saja hasil dari rs.open itu adalah nol (tidak da rekord. Else ===>> peritah disini yang diesekusi, krn jika hasil rs.open ada satu baris atau lebih, perintahnya akan menupdate data lama dengan data baru (padahal data lama dan baru sama, jadi perintah yang ada dibagian ini adalah sia2) End If End If Next i koding yang benar seperti ini: rs.open "select * from buah where nama = '" & text1.text & "' and buah_kesukaan = '" & check1(i).caption & "'" If Rs.RecordCount = 0 Then rs.addnew !nama = text1 : rs!buah_kesukaan = check1(i).caption .update end if Semoga membantu: =(oVo)= ==================== BaceInside Publisher Copyright @2007-2009 Not for reproduced, republished. Thank You ==================== _____ From: Frangky <franklin...@gmail.com> To: Programmer-VB@yahoogroups.com 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 <http://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 <http://www.avg.com/> Version: 8.5.339 / Virus Database: 270.12.52/2152 - Release Date: 06/03/09 05:53:00
