كپي از فايل ديتا

[Hadi_VB]

ديتاي برنامه من از نوع اكسس است و از رابط Adodc استفاده كرده ام
مي خواهم از فايل ديتا در برنامه كپي تهيه كنم ولي به دليل باز بودن فايل ديتا امكان كپي
وجود ندارد.ضمن اينكه ركوردست ديتا را نيز قبلش بسته ام يعني با اين دستور:
Adodc1.Recordset.Close
ولي باز ديتا بسته نمي شود و فايل در جايي ديگر كپي نمي شود بايد چه كاري انجام دهم
ضمنا نمي خواهم كه فرم مربوطه را آنلود نمايم و در فرم ديگري اين عمل را انجام دهم
با تشكر

[Mohandese_Javan]

سلام!
خوب شايد بايد كل بانك رو ببندي. نه ركوردست رو!

[Hadi_VB]

مهندس جون آخه كدش چجوريه
ممنون مي شم اگه راهنمايي كني

[Mohandese_Javan]

سلام!
شما براي اتصال هم از كد نويسي استفاده كن. نه از Adodc.
از Adodc ميشه بعد از اتصال (كه با كد انجام دادي) براي راحتي كار خودت براي جستجو و حركت و ايجاد ركوردو حذ و ... استفاده كني.(گرچه ميشه حتي اصلا از Adodc هم استفاده نكرد و تمام كارهاي اون رو هم با كد نويسي انجام داد)
اين كد رو تو يه ماژول بنويس:

کد:

Public DB As New ADODB.Connection
'
'Connect to the Bank with ADO
Public Sub Connect()
'
DB.ConnectionString = "provider=Microsoft.Jet.OLEDB.3.51;data source =DataBasename"
'
'Open the DataBase:
DB.Open
'

تابع Connect رو كه الان تو ماژول نوشتي مثلا تو فرم لود فرا خواني كن. تا اينجا بانك باز ميشه
و آماده كار هست. حالا ميتوني يه Adodc هم ابه بانك اتصال بدي و كارات رو انجام بدي
به اين شكل:

کد:

Call Connect
Adodc1.ConnectionString = DB
"نام يکي از جداول مورد نظر از بانکAdodc1.RecordSource = "

حالا Adodc هم آماده كار هستش.
حالا من نميدونم برنامه شما چيه. ولي مثل اينكه چون بانك باز هستش كاري كه شما انجام ميدي مجاز نيست و ايراد ميگيره و بايد بانك رو ببندي نه؟
براي بستن بانك هم چون از كد نويسي استفاده كردي كارت خيلي راحته و فقط بايد بگي:

کد:

DB.Close

باز هم اگه سوالي بود كه ميتونستم كمك كنم هستم در خدمتت.
سيد محسن