sebelumnya saya minta maaf kepada master-master vb karena saya mau coba menjawab masalah teman kita ini dan kalau ada yang salah mohon bantuan dan koreksinya. sebelumnya saya akan menjelaskan sedikit masalah coding yg anda buat ini dimana statement : if table1!vState(i)=1 then seharusnya coding adalah sbb: if table1.fields(vState(i)).value=1 then karena statement Recordset!Namafield merupakan pernyataan literal yang langsung menggunakan nama field. selamat mencoba, semoga berhasil. Rgd's Rudi harsono
_____ From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Toni Rahayu Sent: Friday, 23 May 2008 8:52 AM To: [email protected] Subject: [indoprog-vb] Cara ambil field dalam bentuk array ? Dear All, Saya punya tabel user yang di dalamnya punya field "state1", "state2" dst, saya mau abil field itu secara array cuma mentok, saya ambil potongan kodingnya : Dim table1 as ADODB.Recordset dim sql as String Dim i As Integer Dim vState As Variant vState = Array("state1", "state2", "state3", "state4", "state5") Set table1 = New ADODB.Recordset sql = "select * from user where kode='" & frmUser.ListView.SelectedItem & "'" table1.Open sql, MdbConnection, adOpenDynamic, adLockOptimistic For i = 0 To 4 If table1!vState(i) = 1 Then Check1(i).Value = vbChecked Else Check1(i).Value = vbUnchecked End If Next i Please help me, thanks b4 __________ NOD32 3124 (20080522) Information __________ This message was checked by NOD32 antivirus system. http://www.eset.com [Non-text portions of this message have been removed]
