ورود

View Full Version : OverFlow Error



kj2007
یک شنبه 27 مرداد 1392, 08:07 صبح
با سلام
در داخل دو حلقه تو در تو مقادیر چند متغییر که از داخل آرایه فراخوانی میشوند داخل بانک اکسس 2007 ذخیره می شود مشکل اینجاست که پس از ثبت حدود 3000 رکورد پیام پر شدن حافظه یا اور فلو ظاهر می شود هارد سیستم یک ترابایت و رم 2 گیگ می باشد

Dim con As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\db.accdb;")
Dim dap As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("Select * from Table1", con)
Dim dst As DataSet = New DataSet()
Dim bns As BindingSource = New BindingSource()
Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand()
cmd.Connection = con
For ttn = 0 To (Picture.Height - 1)
con.Open()
For ssn = 0 To nn - 1
txt = letx(ttn, ssn, 0)
rtt = CType(dtrg(ttn, ssn), String)
ttnn = CType(ttn, String)
ssnn = CType(ssn, String)
cmd.CommandText = "insert into Table1 ([idl], [ran], [tedad], [elat]) values ('" + ttnn + "','" + ssnn + "','" + rtt + "','" + txt + "')"
cmd.ExecuteNonQuery()
dap.Fill(dst, "Table1")
Next ssn
con.Close()
Next ttn

samkoper
سه شنبه 29 مرداد 1392, 11:59 صبح
سلام دوست عزیز احتمالا یکی از فیلدها مقداری که تعیین کردی بیشتر شده مثلا برای اون فیلد int در نظر گرفتی ولی عددی بزرگتر از int وارد می کنید.