That's Great, it's work,
Sebagai sharing saja (untuk pengetahuan), sebenarnya program sudah jalan pake
koding ini :
Dim sql As String, fld As Field, i As Integer
For Each fld In table1.Fields
If UCase(Left(fld.Name, 5)) = "STATE" Then
i = CInt(Mid(fld.Name, 6, Len(Trim(fld.Name))))
If fld.Value = 1 Then
Check1(i - 1) = vbChecked
Else
Check1(i - 1) = vbUnchecked
End If
End If
Next
tapi saya mau pake array supaya lebih flexible, dan advice dari mas rudi benar,
itu yang saya mau.
Thanks atas advice-nya.
Rgds
"RUDI HARSONO" <[EMAIL PROTECTED]> on 05/23/2008 05:01:13 AM
Please respond to [email protected]
To: [email protected]
cc: (bcc: Toni Rahayu/IT/domino_srv)
Subject: RE: [indoprog-vb] Cara ambil field dalam bentuk array ?
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]
Toni Rahayu
PT. Omedata Electronics
IT Department
Hunting : (62-22) 6030805 Ext 121
Faxs : (62-22) 6030896
Homepage : http://www.toni-rahayu.co.cc
