اضافه کردن رکوردهای دو جدول از دو بانک متفاوت اکسس به جدول بانک سوم

[erfan001]

سلام به همه مهندسین و برنامه نویسان عزیز

فرض کنید 5 بانک اکسس دارم که هر کدوم فقط یک جدول داره و نباید اطلاعاتشون دستکاری بشه و تو هرکدوم اطلاعات افراد ثبت شده
حالا میخوام اسم علی رو تو این 5 بانک جستجو کنم و تمام رکوردهایی که اسم علی تو شون وجود داره رو برام لیست کنه ! یا تو یک جدول از یک بانک جدید یا تو دیتا گرید فرم ...
البته اگه تو یک جدول از یک بانک جدید لیست بشه مشکل نشون دادن تو دیتا گرید حل میشه خود به خود ...

ممنون از همه دوستانی که راهنمایی می کنن :قلب::قلب::قلب:

[mohammadriano]

خب یک Table خالیبه جدول خودت اظافه کن
سپس:

dim c as integer
dim i as integer
Data1.RecordSource = "select * from table1 Where name Like 'علی' "
Data1.Refresh
Data2.RecordSource = "select * from table1 Where name Like 'علی' "
Data2.Refresh
Data3.RecordSource = "select * from table1 Where name Like 'علی' "
Data3.Refresh
Data4.RecordSource = "select * from table1 Where name Like 'علی' "
Data4.Refresh
Data5.RecordSource = "select * from table1 Where name Like 'علی' "
Data5.Refresh
c = data1.Recordset.RecordCount
for i = 1 to c step 1
newdata.recordset.addnew
newdata.recordset.fields("name").value = data1.recordset.recordset.fields("name").value
newdata.recordset.fields("lastname").value = data1.recordset.recordset.fields("lastname").value
.
.
.
.
data1.recordset.movenext
next i
c = Data2.Recordset.RecordCount
For i = 1 To c Step 1
newdata.Recordset.AddNew
newdata.Recordset.Fields("name").Value = Data2.Recordset.Recordset.Fields("name").Value
newdata.Recordset.Fields("lastname").Value = Data2.Recordset.Recordset.Fields("lastname").Value
.
.
.
.
data2.Recordset.MoveNext
next i
c = Data3.Recordset.RecordCount
For i = 1 To c Step 1
newdata.Recordset.AddNew
newdata.Recordset.Fields("name").Value = Data3.Recordset.Recordset.Fields("name").Value
newdata.Recordset.Fields("lastname").Value = Data3.Recordset.Recordset.Fields("lastname").Value
.
.
.
.
Data3.Recordset.MoveNext
Next i
c = Data4.Recordset.RecordCount
For i = 1 To c Step 1
newdata.Recordset.AddNew
newdata.Recordset.Fields("name").Value = Data4.Recordset.Recordset.Fields("name").Value
newdata.Recordset.Fields("lastname").Value = Data4.Recordset.Recordset.Fields("lastname").Value
.
.
.
.
Data4.Recordset.MoveNext
Next i
c = data5.Recordset.RecordCount
For i = 1 To c Step 1
newdata.Recordset.AddNew
newdata.Recordset.Fields("name").Value = data5.Recordset.Recordset.Fields("name").Value
newdata.Recordset.Fields("lastname").Value = data5.Recordset.Recordset.Fields("lastname").Value
.
.
.
.
data5.Recordset.MoveNext
Next i