Private WithEvents Cn As ADODB.Connection
Private WithEvents rsRecordSet As ADODB.Recordset
Private WithEvents rstempcode As ADODB.Recordset
Private Sub Command1_Click()
Set Cn = New ADODB.Connection
Cn.CursorLocation = adUseClient
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=c:\Baza.mdb"
Set rsRecordSet = New ADODB.Recordset
rsRecordSet.Open "SELECT * FROM Kombinacije1 ", Cn, adOpenStatic, adLockOptimistic
For i = 1 To 500
zbir = 4
strString = "Test"
rsRecordSet.AddNew
rsRecordSet!ZbirBrojeva = Str(zbir)
rsRecordSet!Brojevi = strString
strString = ""
rsRecordSet.Update
Next i
rsRecordSet.Close
MsgBox ("Gotojoo")
End Sub
Mesto na kome dolazi do preblema je:
rsRecordSet.Open "SELECT * FROM Kombinacije1 ", Cn, adOpenStatic, adLockOptimistic
Kod gore pomenue linije on počinje da učitava sve zapise u bazi (tako makar ja to razumem) i puni memoriju, puni puni dok je ne popuni celu i izbaci grešku. E sad ili ja imam neki propust ili Access možda tako radi, to ne znam. Jednostavno kada dodje do 7.000.000 zapisa pukne zbog manjaka memorije.
Ima li neko rešenje?