[phreanz_44]

'here is what i have:

connect
On Error GoTo errr:
rs.Open "select * from NMCDatabase where StudentNumber = '" & DataGrid1 & "'", cn, 3, 3
If MsgBox("Are you sure you want to delete this " & DataGrid1.Text & " and all related records?", vbQuestion + vbYesNo, "Delete?") = vbYes Then
    Adodc1.RecordSource = "delete from NMCDatabase where StudentNumber = '" & DataGrid1.Text & "'"
    Adodc1.CommandType = adCmdText
    MsgBox "Deleted!", vbInformation, "deleted!"
    Adodc1.Refresh
    DataGrid1.Refresh
End If
If rs.State = 1 Then
    cn.Close
    End If
Exit Sub
    If rs.State = 1 Then
    cn.Close
    End If
errr:
MsgBox "Error occured! " & Error, vbExclamation, "Error" & Err.Number
If rs.State = 1 Then
    cn.Close
    End If
End Sub

this is what i have on my module:

Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset

Public Sub connect()
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & App.Path & "\StudentInfoSystem_db.mdb"
    cn.CursorLocation = adUseClient
End Sub
Public Sub disconnect()
        If rs.State = 1 Then
        cn.Close
        End If
End Sub

'my only problem here is that the datagrid is not refreshing everytime i delete some record after clicking the 'command button (cmdDelete)
'it has error that says : operation not allowed when obect is closed, error 3704....

'tnx

This post has been edited by phreanz_44: 30 August 2010 - 12:30 AM
Reason for edit:: Added code tags.

[Ahmedn1]

I think this error occurs where you open a connection or recordset

so do the check on them both

If rs.State = 1 Then 
rs.Close

If cn.State = 1 Then
cn.Close

check where the error occurs and apply this condition

[parbipin]

When (On which Line) do you get this Error. Is it when you refresh datagrid, close connection???

[phreanz_44]

ii got problem on the line:
Datagrid1.Refresh

i tried to comment that part and it doesn't give any error....
i tried to use this line so that after i deleted information, datagrid would be updated in an instant without closing and starting the program but it gave me this error....

[parbipin]

Youa re using a delete operation in ADODC and then trying to pull data in Datagrid; This seems to be the root of the problem.

Set Datagrid1.DataSource = rs

this should do your job;


have a lok at this;

My linkhttp://www.vbtutor.net/lesson26.html


*Added a link

This post has been edited by parbipin: 30 August 2010 - 05:28 AM

[phreanz_44]

i got the solution,

Private Sub cmdDelete_Click()
connect
On Error GoTo errr:
rs.Open "select * from NMCDatabase where StudentNumber = '" & DataGrid1 & "'", cn, 3, 3
If MsgBox("Are you sure you want to delete this " & DataGrid1.Text & " and all related records?", vbQuestion + vbYesNo, "Delete?") = vbYes Then
MsgBox "Deleted!", vbInformation, "deleted!"
Adodc1.Recordset.Delete
End If
errr:
MsgBox "Error occured! " & Error, vbExclamation, "Error" & Err.Number
disconnect
End Sub

thanks to all your help guys!!!! have a nice day!!!!