كيف يمكن الوصول إلى القاعدة التي أريد أن أنسخ عليها؟

السلام عليكم ورحمة الله وبركاته صلي على النبي عليه أفضل الصلاة وأتم التسليم وبعد :-

أخوتي الأفاضل لدي مشكلة ولم أستطع أن أحلها مع العلم أنني قمت بالبحث في منتداكم الغالي لكن لم أتوصل لما أريده

مشكلتي هو أنني أريد أن أنسخ بيانات من قاعدة إلى أخرى بحيث يتم تحديد القاعدة الأولى من خلال (((OpenFileDialog ))) بعدما يتم فتح القاعدة الأولى واتمام الاتصال بها وتحديد البيانات التي أريد أن أنسخها منها ثم يتم الاتصال بالقاعدة الثانية لنسخ البيانات فيها .

مشكلتي هي أنني عندما أريد أن أنسخ في القاعدة الثانية يبحث عنها في مجلد القاعدة الأولى فأرجو منكم أن تدلوني على الحل الصحيح وهذا هو الكود التي قمت بعمله

Private Sub ImportData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImportData.Click

Try

Dim a As String, b As String

Dim sqlMaaref As String

'من هنا يتم تحديد القاعدة الأولى والاتصال بها

OpenFileDialog1.ShowDialog()

a = OpenFileDialog1.FileName

a = "Data Source=" & a & ";"

b = "Provider=Microsoft.Jet.OLEDB.4.0"

' Label1.Text = a & b

Dim connMaaref As OleDbConnection = New OleDbConnection(a & B)

connMaaref.Open()

'هنا يتم اختيار الحقول المراد نسخها

sqlMaaref = "SELECT st_student.numberh,st_student.name1,st_student.name2,st_student.name3,st_student

name4 from st_student"

Dim dbtrComb As New OleDb.OleDbDataAdapter(sqlMaaref, connMaaref)

'متغير من أجل ملء البيانات

Dim dsssComb As New DataSet

'افراغ المتغير من البيانات

dsssComb.Clear()

'تعبئة البيانات

dbtrComb.Fill(dsssComb, "sqlMaaref")

'تحديد البيانات المراد تعبئتها في الداتا قريد

'

Me.DtGrdMFhom.DataSource = dsssComb.Tables("sqlMaaref")

Dim sqlAddTolab As String

Dim res As String

'هنا يتم فتح القاعدة الثانية والاتصال بها

Dim sConnSTolab As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\STolab1.mdb;"

Dim connTolab As OleDbConnection = New OleDbConnection(sConnSTolab)

connTolab.Open()

'من هنا يتم عملية النسخ في القاعدة الثانية

sqlAddTolab = "insert into STolab1.Tolab(IDNumber,NameST) Select Numberh,name1 & ' ' & name2 & ' ' & name3 & ' ' & name4 From (Maaref.st_student)"

' يتم تنفيذ الاستعلام السابق على قاعدة البيانات المرادة

Dim objjMfhom As New OleDbCommand(sqlAddTolab, connTolab)

res = objjMfhom.ExecuteNonQuery

connMaaref.Close()

Catch err As Exception

MsgBox(err.Message, MsgBoxStyle.Critical And MsgBoxStyle.OkOnly, "خطأ في الاتصال بقاعدة البيانات")

End Try

End Sub