ذخیره کردن اطلاعات حاصل از شرط WHERE

[alishah]

من 1 برنامه نوشتم که می آد و با استفاده از Data و DBgrid و دستورات SQL از یک دیتابیس Access یک سری رکورد رو که شرط خاصی دارن استخراج می کنه،:
حالا من این اطلاعات استخراج شده رو تو DBgrid می بینم

مشکل اینجاست: من می خوام این اطلاعات رو تو 1 دیتابیس دیگه که دقیقاً از همین فیلد ها و 1 Table با همین نام تشکیل شده، ذخیره کنم. به عبارتی من می خوام اطلاعات حاصل از شرط رو Save as کنم تو دیتابیس دیگه ای که با آن بتونم گزارش گیری کنم
اگه کسی می تونه جواب بده سریع تر جواب را بنویسه زیرا خیلی برام مهمه کامل توضیح را برام بنویسید

[far_222000]

با این دستور SQL می تونی توی همون دیتابیس یه Table دیگه بسازی و نتایج حاصل از جستجو را توی اون بریزی:
SELECT field1, field2 INTO destinationtable FROM sourcetable
البته فکر کنم شما اینو نمی خوای و منظورت اینه که نتایج حاصل از جستجوت را توی یه دیتابیس جدید ذخیره کنی. راهش اینه که:
اول با دستورات زیر 1 دیتابیس می سازی:
Dim oCatalog As New ADOX.Catalog
oCatalog.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath
بعد با دستورات زیر توی این دیتابیس یه Table می سازی:
Dim ADOXcatalog As New Catalog
Dim ADOXtable As New Table
Dim ADOXindex As New ADOX.Index
ADOXcatalog.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath
ADOXtable.Name = "tablename"
ADOXtable.Columns.Append "field1"
ADOXtable.Columns.Append "field2"
ADOXtable.Columns.Append "field3"
ADOXcatalog.Tables.Append ADOXtable
Set ADOXtable = Nothing
Set ADOXindex = Nothing
Set ADOXcatalog = Nothing

حالا باید دو تا لوپ تودرتو بنویسی که یکی روی ستون های DBGrid حرکت کنه و دومی هم روی سطرهاش و توی لوپ ها می نویسی که توی دیتابیس جدیدی که ساختی Addnew کنه و مقدار DBGrid رو بریزه توش(راستش دیگه حوصله نوشتن لوپش رو نداشتم)

[alishah]

تو که تا اینجاش رو نوشتی مابقیش را هم لطف کن بنویس
ممنون
خیلی ضروری است