Terima kasih atas jawabannya Pak Agus, saya sudah coba dengan melakukan
pemutusan recordset bila terjadi error serupa dan melanjutkan update dengan
last no yg sudah dibuat tapi selalu ketika proses update mencapai record ke
2,054 maka error tersebut ditampilkan...
Mungkin ada yg salah dari Script yg saya gunakan dibawah :
Private Sub Command1_Click()
Dim i As Double
Dim r, P As Integer
Dim num As String
If txtDbNm.Text <> "" And txtTblNm.Text <> "" Then
Call OpenConnection(txtDbNm.Text) ' buka koneksi ke mdb
Call Conect2Table(txtTblNm.Text) ' buka koneksi ke table
If txtFrom.Text = "" Then
i = 0
txtTo.Text = rs.RecordCount
Else
i = txtFrom.Text - 1
txtTo.Text = rs.RecordCount + (txtFrom.Text - 1)
End If
lblRecord.Caption = rs.RecordCount
lblPersen.Caption = "0 %"
DoEvents
With prgProcess
.Min = 0
.Visible = True
.Max = rs.RecordCount
.Value = 0
End With
While Not rs.EOF
prgProcess.Value = prgProcess.Value + 1
i = i + 1
rs.Update "NO", i ==> error selalu disini dan berada di record
2,054
rs.MoveNext
P = i / rs.RecordCount
DoEvents
lblPersen.Caption = i
Wend
MsgBox "PROCESS FINISH WITH LAST NO." & i
prgProcess.Visible = False
Else
MsgBox "No database file"
End If
Exit Sub
Terima kasih
(Embedded image moved to file: pic24767.gif)
agustama rumapea
<[EMAIL PROTECTED] To:
[email protected]
com> cc: (bcc: Ibnu
Muakhori/Asia Division/Manulife)
Sent by: Subject: Re: [indoprog-vb]
Urgently Required VB Programmer
[EMAIL PROTECTED]
groups.com
01/24/2007 01:40
PM
Please respond to
indoprog-vb
Mungkin permasalahannya bukan di jumlah record. Aplikasi yg saya buat
dengan vb sudah menyimpan lebih dari 60000 record di table master saja,
tidak pernah ada error seperti tersebut.
Kemungkinannya ada data yang duplikat nilainya pada field tertentu.
Salam,
Agus Rpea
[EMAIL PROTECTED] wrote: Halo para pakar VB, saya mengalami
kesulitan nih.. saya buat program untuk
menambahkan field dan mengisi no urut pada table, selama ini program
tersebut berjalan dg normal karena total row dari tabel yg pernah di
gunakan baru sekitar seribu s/d 20 ribu record. tapi ketika table
tersebut melebihi 20 ribu tepatnya di posisi record ke 2,054 program selalu
keluar error "....TO MANY ROW TO UPDATE..." dan ketika di debug berhenti
di "rs.update "No" ,i
Mohon bantuannya donk
(Embedded image moved to file: pic25106.gif)
[Non-text portions of this message have been removed]
---------------------------------
Check out the all-new Yahoo! Mail beta - Fire up a more powerful email and
get things done faster.
[Non-text portions of this message have been removed]
[Non-text portions of this message have been removed]
