Baca Juga
Looping atau perulangan merupakan salah satu hal terpenting yang harus dikuasai / diketahui untuk dapat mengelola data dengan vb 6. Looping dapat bermanfaat untuk proses pencarian data, penyalinan/pemindahan data dari satu tabel ke tabel yang lain, bahkan untuk membandingkan data antar tabel. Begitulah yang saya ketahui.
Contoh code perulangan dengan bantuan ADODC
Adodc1.RecordSource = "SELECT * FROM jual WHERE tanggal=#' + format(date,"yyyy-mm-dd") + "#"Adodc1.RefreshAdodc1.MoveFirstIf Not (Adodc1.Recordset.EOF or Adodc1.Recordset.BOF) ThenDo Until Adodc1.Recordset.EOF' ... Silakan Anda melakukan sesuatu disini, misalnya ingin menyalin data ke tabel yang lain, maka masukkan code-codenya disiniAdodc1.Recordset.MoveNextLoopEnd if
Keterangan :
baris 1 dan 2 : code untuk membuka data/tabel dengan adodc
Baris 3 : ....MoveFirst, memindahkan ke awal record.
Baris 3 : ....MoveFirst, memindahkan ke awal record.
baris 4 : Validasi, hanya akan meneruskan proses jika data tidak dalam keadaan kosong
baris 5 : Sarat perulangan, jika Data sudah berada diakhir (...EOF) record maka proses perulangan akan dihentikan
baris 6 : ... MoveNext, coding untuk memindahkan ke record selanjutnya, sehingga perulangan akan terus berjalan sampai akhir record, jika Anda tidak menggunakannya maka proses tidak akan berhenti dan dapat menyebabkan hang pada komputer Anda.
baris 7 : pasangan dari baris 4
baris 8 : menutup if
Untuk looping yang lain kapan-kapan kita sambung lagi.
*) PENTING!! Jangan lupa sebelum menjalankan CODE ini, projectnya di save dulu ya! biar ga ilang pekerjaannya hehehe...
5 Tanggapan
yi
yiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyiyi
While Not adoharian.Recordset.EOF
With adoharian.Recordset
!KEDATANGAN = ""
.MoveNext
End With
Wend
tidak bisa digunakan dengan kesalahan pada perintah MOVENEXT. dengan pesan error :
row cannot be located for updating. some values may have been changed since it was last read
tolong bantuannya.. terima kasih
coba mas tambahkan .Update sebelum .MoveNext,,
kalau tidak berhasil berarti harus ada code pencarian sebelum !KEDATANGAN = ""
intinya program harus bisa mengenali perbedaan setiap recordnya sebelum melakukan update.
terima kasih
Tanya mas,
-----------------------
Private Sub Form_Load()
Dim i As Integer
Adodc1.ConnectionString = "Provider=Microsoft.jet.oledb.4.0;persist security info=false;data source=" & App.Path & "\Payroll2.mdb"
Adodc1.RecordSource = "select * from paymaster"
Adodc1.Refresh
DataGrid1.Refresh
Adodc1.Recordset.MoveFirst
If Not (Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF) Then
Do Until Adodc1.Recordset.EOF
' ... Silakan Anda melakukan sesuatu disini, misalnya ingin menyalin data
' ... ke tabel yang lain, maka masukkan code-codenya disini
Adodc1.Recordset!outflow = Adodc1.Recordset!Elevasi + Adodc1.Recordset!inflow
Adodc1.Recordset.MoveNext
Loop
End If
End Sub
----------------------------
Setelah eksekusi baris Movenext muncul pesan kesalahan :
Key column information is insufficient or incorrect. Too many rows were affected by update
Mohon penjelasan apa yang salah dan solusinya.
tks
koding buat metode movenext dan moveprevious dengan button gimana ya