kama2222
چهارشنبه 15 مهر 1388, 22:43 عصر
با سلام
خواهشمندم من را از این error نجات دهید.operation is not allowed when the object is closed.
من با adodc با vs flex در ارتباطم و با ماژول زیر این ارتباط را برقرار نموده ام.
sub main()
On Error Resume Next
dbPath = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dbase\db1.mdb;Jet OLEDB:Database Password=mana202;"
Set cnn = New ADODB.Connection
cnn.CursorLocation = adUseServer
cnn.ConnectionString = dbPath
cnn.Open
end sub
و با کد های ذیل قصد حذف خطهای vsflex را دارم که تیک ستون soled تیک بخورد.
On Error Resume Next
If Adodc6.Recordset.RecordCount > 0 Then
VSFlexGrid6.DataMode = flexDMBound
VSFlexGrid6.Row = 1
For i = VSFlexGrid6.Row To VSFlexGrid6.Rows - 1
Adodc6.Recordset.Fields(0) = VSFlexGrid6.TextMatrix(i, 1)
Adodc6.Recordset.Update
Next i
cnn.Close
End If
Set cnn = Nothing
Call Main
cnn.Open
Adodc6.RecordSource = "delete * from table3 where soled=true"
Adodc6.Recordset.Update
Adodc6.Refresh
cnn.Close
Set cnn = Nothing
Call Main
cnn.Open
Adodc6.ConnectionString = dbPath
Adodc6.RecordSource = " select * from table3"
Set VSFlexGrid6.DataSource = Adodc6
Adodc6.Refresh
cnn.Close
Set cnn = Nothing
اما حسابی این ارور امان من را بریده . خواهشمندم ممکن است سورس ساده تر یا بی اروری را به من بدهندیا رفع ایراد کنند.در ضمن این برنامه نتیجه را بعد از این error به من میدهد و حطهای تیک خورده را حذف می کند.
با تشکر
خواهشمندم من را از این error نجات دهید.operation is not allowed when the object is closed.
من با adodc با vs flex در ارتباطم و با ماژول زیر این ارتباط را برقرار نموده ام.
sub main()
On Error Resume Next
dbPath = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dbase\db1.mdb;Jet OLEDB:Database Password=mana202;"
Set cnn = New ADODB.Connection
cnn.CursorLocation = adUseServer
cnn.ConnectionString = dbPath
cnn.Open
end sub
و با کد های ذیل قصد حذف خطهای vsflex را دارم که تیک ستون soled تیک بخورد.
On Error Resume Next
If Adodc6.Recordset.RecordCount > 0 Then
VSFlexGrid6.DataMode = flexDMBound
VSFlexGrid6.Row = 1
For i = VSFlexGrid6.Row To VSFlexGrid6.Rows - 1
Adodc6.Recordset.Fields(0) = VSFlexGrid6.TextMatrix(i, 1)
Adodc6.Recordset.Update
Next i
cnn.Close
End If
Set cnn = Nothing
Call Main
cnn.Open
Adodc6.RecordSource = "delete * from table3 where soled=true"
Adodc6.Recordset.Update
Adodc6.Refresh
cnn.Close
Set cnn = Nothing
Call Main
cnn.Open
Adodc6.ConnectionString = dbPath
Adodc6.RecordSource = " select * from table3"
Set VSFlexGrid6.DataSource = Adodc6
Adodc6.Refresh
cnn.Close
Set cnn = Nothing
اما حسابی این ارور امان من را بریده . خواهشمندم ممکن است سورس ساده تر یا بی اروری را به من بدهندیا رفع ایراد کنند.در ضمن این برنامه نتیجه را بعد از این error به من میدهد و حطهای تیک خورده را حذف می کند.
با تشکر