جستجو یک دیتابیس از درون دیتابیس دیگر ( کمک کنید )

[alibehroozi]

با سلام

توی فرممون یک datagrid با یک adodc داریم
و دوباره یک datagrid و یک adodc دیگه که به دیتابیسی مجزا وصله
توی adodc اولی یک سری کد داریم حدودا 50 تا
توی adodc دومی یک سری دیگه کد داریم که چند تاشون با اون 50 تا مشترکن
حالا میخواهم توی adodc اولی که 50 تا کد توش بود اون مشترک هایی که با adodc دومی هست رو نشون بده و در نهایت در datagrid مربوط به اون adodc

لطفا کمک کنید که خیلی نیاز داریم هر چه زودتر

خیلی ممنون از زحماتتون

[vbhamed]

سلام
فرض كنيد اسم جدولها table1 و اسم فيلد مورد نظر field1 باشد
Dim s$, i&
With Adodc2.Recordset
While Not .EOF
s = s & !field1 & ","
.MoveNext
Wend
End With
If s <> "" Then
Adodc1.RecordSource = "select * from table1 where field1 in(" & s & ")"
Else
Adodc1.RecordSource = "select * from table1 where 0"
End If
Adodc1.Refresh