PDA

View Full Version : سوال: انتقال اطلاعات



omidwahid
جمعه 22 شهریور 1387, 23:35 عصر
من میخام چند رکورد از دیتابیس اکسس به دیتابیس دیگه بفرستم اگه کمکم کنید ممنون میشم

kablayi
شنبه 23 شهریور 1387, 00:28 صبح
سلام ...
شما ابتدا به دیتابیس اول کانکت میشید ... بعد مقادیرتونو استخراج میکنید ... حالا ممکنه یکی باشه یا جند رکورد .... به نسبت در یه متغیر یا دیتاتیبل میریزید ... بعد کانکشنتونو میبندید ...
و به دیتابیس جدید کانکت میشید ... یعنی کانکشن استرینگ جدید رو باز کنید ...



Dim con As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "DB1.mdb;Persist Security Info=True"
Dim cn As New OleDbConnection(con)
.
.
' دستورات استخراج اطلاعات
.
.

con = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "DB2.mdb;Persist Security Info=True"
cn = New OleDbConnection(con)
.
.
' دستورات درج در دیتابیس
.
.

Evil 69
شنبه 23 شهریور 1387, 09:02 صبح
براي اين كار اگر به طور همزمان انجام بدي راحت تر انجام ميشه اخه ديگه لازم نيست كه داده ها رو توي اين ساختار ذخيره كني و بعدش توي بانك بعدي بريزي
براي اين كار هم فقط لازمه كه دوتا بانك رو باز كني ، از اولي بخوني بريزي تو دومي