نقل بيانات من جدول لآخر

قم بالاتصال بقاعدة البيانات الأولى ....................

قم باستيراد بيانات الجدول .............................

قم بتخزين البيانات ضمن داتا سيت .....................

قم بإغلاق الاتصال بقاعددة البيانات الاولى ............

القراءة من قاعدة البيانات والتخزين في الداتا سيت

قم بفتح الاتصال بقاعدة البيانات الثانية ..............

قم بوضع البيانات ضمن الجدول في القاعدة الثانية ...

قم بإغلاق الاتصال بقاعدة البيانات الثانية ..............

تخزين البيانات من الداتا سيت للداتا بيز

أشكرك أخي الحبيب .. ولكن شكلها معقدة الشغلة .. أليس هناك طريقة أسهل وأسرع

ابسط من ذلك ............. :blink:

الفكرة جدا بسيطة ..... اتصال جلب بيانات قطع اتصال

اتصال ادخال بيانات قطع اتصال كل مافي الأمر

يوجد كود vb6 اعتقد ممكن يتم تطويره ليواكب الدزت نت انا لم اخبره علي الدوت نت

Dim strFilter As String
Dim strInputFileName As String

strFilter = ahtAddFilterItem(strFilter, "ACCESS Files (*.mdb)", "*.mdb")
strInputFileName = ahtCommonFileOpenSave(Filter:=strFilter, OpenFile:=True, DialogTitle:="Please select an input file...", Flags:=ahtOFN_HIDEREADONLY)
Me.File_Name = strInputFileName

Dim wrkJet As Workspace
Dim dbs As Database
Set wrkJet = DBEngine.Workspaces(0)
Set dbs = wrkJet.OpenDatabase(strInputFileName, False, False, ";PWD=***")

With DBEngine(0)(0)
.Execute "INSERT INTO pCitizen SELECT * FROM " & FileIn & ".pCitizen;"
.Execute "INSERT INTO pNgo SELECT * FROM " & FileIn & ".pNgo WHERE pnNgoCode>1002639;"
.Execute "INSERT INTO pDirections SELECT * FROM " & FileIn & ".pDirections WHERE pnDirectionsCode>13;"
.Execute "INSERT INTO ptForm SELECT * FROM " & FileIn & ".ptForm;"
.Execute "INSERT INTO tCitizenDisease SELECT * FROM " & FileIn & ".tCitizenDisease;"
End With

MsgBox "تم الإستراد"