مشكل در ويژوال بيسيك

[shakiba]

DataEnvironment1.Connection1.Close
On Error GoTo l1
FileCopy "d:\Noor.mdb", "d:\123.mdb"
l1:
If Err.Number = 70 Then
MsgBox "áØÝÇ ÈÑäÇãå åÇí ÇÌÑÇ ÔÏå ÑÇ ÈÈäÏíÏ æ ÓÓ Ï˜ãå ÒíÑ ÑÇ ÌåÊ ÊÇííÏ ÝÔÇÑ ÏåíÏ."
Resume Next
End If
DataEnvironment1.Connection1.Open

به DataEnvironment1.Connection1.Close گير ميده و ارور ميده

 

[omidak]

سلام:
نه اون بلكه كل اش

Adodc1.Recordset.Close

 

[shakiba]

يعني اينجور

DataEnvironment1.Connection1.Close
 Adodc1.Recordset.Close
On Error GoTo l1 
FileCopy "d:\Noor.mdb", "d:\123.mdb" 
l1: 
If Err.Number = 70 Then 
MsgBox "áØÝÇ ÈÑäÇãå åÇí ÇÌÑÇ ÔÏå ÑÇ ÈÈäÏíÏ æ ÓÓ Ï˜ãå ÒíÑ ÑÇ ÌåÊ ÊÇííÏ ÝÔÇÑ ÏåíÏ." 
Resume Next 
End If 
DataEnvironment1.Connection1.Open 
Adodc1.Recordset.open

 

[shakiba]

در كل مشكل با
DataEnvironment1.Connection1.Close
داره چون ارور به اين ميده و ميگه
operation is not allowed when the object is closed

 

[omidak]

سلام:
اگر اينو بنويسيد مشكل حله :

Adodc1.Recordset.Close

فقط همين

 

[shakiba]

جا داره از آقا اميد به خاطر زحماتي كه بهشون دادم

و كمكهايي كه در تكميل پروژه ام بهم كردند

تشكر كنم

اميدوارم همواره در زندگيتان موفق و شاد باشيد

 

[omidak]

خواهش ميكنم...
كاري نكردم كه
با آرزويه موفقيت برايه شما