تبدیل کد

[mostafaserial]

سلام
این کد رو من میخوام با ado بنویسم باید چه تغییری بدم ؟


Dim dbase As Database
Dim sql As String

Set dbase = OpenDatabase(App.Path & "\mdb2.mdb", True, False)
sql = " INSERT INTO Table1 IN '" & App.Path & "\mdb1.mdb' SELECT * FROM Table2"

dbase.Execute sql
MsgBox "ok"

[ho3ein.3ven]

سلام
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" app.path & "/bank.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from users"
Adodc1.Refresh
به این صورت

[mostafaserial]

سلام
نه منظور اصلی استفاده از اون کد sql است که بخوام برای اون به ado تبدیل کنم

[ho3ein.3ven]

sql رو که نمی خواد تبدیل کنی. هیچ فرقی نمی کنه.

[mostafaserial]

ببین جریان از این قراره که من دو تا فایل mdb دارم که یکی مدیر و یکی برای چند کاربره .من میخوام اطلاعات تیبل کاربرو به تیبل مدیر انتقال بدم به شرطی که اطلاعات تکراری وارد نشه چون من 5 تا کاربر دارم و یه مدیر که اطلاعات اون تو یه فیلد به نام شهر باهم فرق میکنه و من برای دریافت اطلاعات توسط مدیر اول با combobox باید شهرو انتخاب کنم بعد اطلاعات چک بشه که چه شهری انتخاب شده تا اگه یه روز من یه گزارشو دو با ارسال کردم برنامه متوجه تکرار بشه من با این کد فیلتر میکنم ولی نمیتونم اطلاعات اون شهر خاص رو دریافت کنم
s = "SELECT * FROM b WHERE Left(pc," & Len(txtFind) & ")='" & Trim(txtFind) & "'"
Adodc1.RecordSource = s
Adodc1.Refresh

[ho3ein.3ven]

والا من زیاد sql بلد نیستم درست هم متوجه نشدم چی گفتین.اگه میشه یه مثال بزارین

[mostafaserial]

http://barnamenevis.org/showthread.php?333871-

[ho3ein.3ven]

والا بنده که چیزی متوجه نشدم . فک می کنم که اگه این تاپیک رو در بخش مربوطه بزنید بهتر بهش جواب میدن چون اینجا فقط مربوط به ویژوال بیسیک