نیاز به کمک دارم در ارتباط با حجم زیاد داده ها

[ali_najari]

من یه دیتابیس اکسس دارم که دو تا جدول داره و هر جدول حدود 43000 رکورد داره

میخوام اطلاعات این جدول ها رو به یه دیتابیس دیکه انتقال بدم

با کد های معمولی Insert و Select ارور میده و نمیتونه

باید چیکار کنم ؟

[ali_najari]

کسی نمیدونه چیکار باید بکنم ؟

[Hesamzadeh]

خوب شما بگو چه کدی نوشتی و چه اروری میده تا بعد
ولی در کل باید فیلدهای مبدا و مقصد همنوع باشند و برای هر بانک کانکشن و دیتاست مربوطه رو ایجاد کنی

[ali_najari]

Select * From Sick_Archive

این کد اسکیو الش هست
با کانکشن مخصوص خودش

[sari-1369]

خب ، متن ارور رو هم میزاشتی تا دوستان بهتر بتونن راهنماییت کنن .

[ali_md110]

http://barnamenevis.org/forum/showthread.php?t=105727

[sh2007]

خب اون select كه فقط براي فراخواني بود چطوري ثبت كردي يعني كد ثبت رو؟؟!!

[ali_md110]

'dbtemp در بانک temp در این برنامه رکوردها از جدول
' کپی میشودdbmaster در بانک master به جدول
Dim cnnstrMaster As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\dbmaster.mdb"
Dim cnnstrtemp As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\dbtemp.mdb"
Dim CNNMaster As OleDbConnection
Dim CNNtemp As OleDbConnection
Dim Commandtemp As OleDbCommand
Dim CommandMaster As OleDbCommand
Dim DataReadertemp As OleDbDataReader
CNNMaster = New OleDbConnection(cnnstrMaster)
CNNMaster.Open()
Dim SQLtemp As String = "SELECT field1,field2 from temp"
CNNtemp = New OleDbConnection(cnnstrtemp)
Commandtemp = New OleDbCommand(SQLtemp, CNNtemp)
Commandtemp.CommandType = CommandType.Text
CNNtemp.Open()
DataReadertemp = Commandtemp.ExecuteReader
If DataReadertemp.HasRows Then
Dim SQLMaster As String = "INSERT INTO master (field1,field2)VALUES(?,?)"
CommandMaster = New OleDbCommand(SQLMaster, CNNMaster)
CommandMaster.CommandType = CommandType.Text
CommandMaster.Parameters.Add("@field1", Data.OleDb.OleDbType.VarChar, 50).Value = Nothing
CommandMaster.Parameters.Add("@field2", Data.OleDb.OleDbType.VarChar, 50).Value = Nothing
While DataReadertemp.Read()
CommandMaster.Parameters("@field1").Value = DataReadertemp.Item(0)
CommandMaster.Parameters("@field2").Value = DataReadertemp.Item(1)
CommandMaster.ExecuteNonQuery()

End While
End If
DataReadertemp.Close()
CNNMaster.Close()
CNNtemp.Close()
Commandtemp.Dispose()
CommandMaster = Nothing

[maXXis]

بهتره از


INSERT table1 (field1,field2) VALUES (select * from table2)

[mortezamhd]

دوست عزیز همیشه وقتی به مشکلی بر میخورید حتما متن خطایی که برنامه بهتون میده رو بذارید تا هم خودتون زودتر به جواب برسید و ......