Di coba ya... Dim n as byte Dim m as string n = 2 For y = 1 to 3 If y = n then MsgBox "Data ditemukan" Exit Sub End if For x = 1 to 5 If x = 1 then m = "Satu" ElseIf x = 2 then m = "Dua" ElseIf x = 3 then m = "Tiga" ElseIf x = 4 then m = "Empat" Else x = 5 then m = "Lima" End if Next x Next y Field = m
thanx n regards - NikoJona / freaky - freaky --- On Tue, 5/12/09, Seno Zen <[email protected]> wrote: From: Seno Zen <[email protected]> Subject: [Programmer-VB] Update recordset ? To: [email protected] Date: Tuesday, May 12, 2009, 2:44 AM Saya punya recordset yang saya buat saat running program. Set rs_bulan = New ADODB.Recordset With rs_bulan.Fields .Append "Nomor", adInteger, 30 X=1 Do .Append Str(x), adDouble, 13 x = x + 1 Loop Until x > 5 End With Nanti akan terbentuk table dengan fields: Nomor 1 2 3 4 5 Selanjutnya saya akan mengisi table tadi dengan data yang diperoleh dengan looping. Pertanyaan , jika saya punya coding seperti dibawah ini : For y=1 to 3 For x=1 to 5 ‘ Pertanyaan 1: bagaimana perintah pencarian data yang Nomor=y (looping y ) ‘Jika ditemukan ‘ Pertanyaan 2 :Bagaimana Meng Edit data yang nama filednya = x ( looping x ) Next x Next y Mohon petunjuknya.
