kj2007
یک شنبه 27 مرداد 1392, 01:09 صبح
با سلام
در داخل دو حلقه تو در تو مقادیر چند متغییر که از داخل آرایه فراخوانی میشوند داخل بانک اکسس 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
در داخل دو حلقه تو در تو مقادیر چند متغییر که از داخل آرایه فراخوانی میشوند داخل بانک اکسس 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