Error : "statement invalid outside type block" need help here

[squrel]

Hello All..
I m having some problem here.. i m using VB6 and SQLServer 2000... i m getting this error " statement invalid outside type block"
i m sending u the code and the bold line is where i m getting the error
can anyone help me.. i dont knw whr i m doing mistake..
thankx in advance




Private Sub Toolbar1_Button Click(ByVal Button As MSComctlLib.But ton)
ID As Integer
On Error GoTo ChkErr

Const FIND_BUTTON = 2


Dim RsInd As New ADODB.Recordset
ID = Val(MSHFlexGrid 1.TextMatrix(MS HFlexGrid1.RowS el, 1))


If Button.Index = 3 Then ' ADD

ID = 0

Dim Rs As New ADODB.Recordset
If Rs.State = adStateOpen Then Rs.Close
Rs.Open ("SELECT * FROM casemaster"), Db, adOpenKeyset, adLockPessimist ic
If Rs("StopTran"). Value = 1 Then
MsgBox " Transactions Not Allowed "
Rs.Close


ElseIf Button.Index = 3 Then
Mode = "Add"
Call AddMode
Call ClearControl
End If

End


ElseIf Button.Index = 4 Then
Mode = "View"
frmCaseMaster.V isible = False
Call ClearControl
Call View


ElseIf Button.Index = 5 Then

If Rs.State = adStateOpen Then Rs.Close
Rs.Open

Mode = "Edit"
'Frameview.Visi ble = False
'cmdClearItem.V isible = True
Call Edit

End If

If Button.Index = FIND_BUTTON Then
frmFind.Show


ElseIf Button.Index = 8 Then
Unload Me

ElseIf Button.Index = 6 Then ' Save
Call save

frmCaseMaster.V isible = False
'SSTab1.Tab = 0

ElseIf Button.Index = 7 Then ' Cancel
If txtId.Text <> "" Then
Toolbar1.Button s.Item(3).Enabl ed = True
Toolbar1.Button s.Item(4).Enabl ed = True
MsgBox " Id'" & txtId.Text & " ' Is canceled"

Call Grid_Data
frmCaseMaster.V isible = True
Toolbar1.Button s.Item(7).Enabl ed = False ' Cancel

End If
End If
'End If
Exit Sub
ChkErr:
If Err.Number > 0 Then
MsgBox Err.Number & vbNewLine & Err.Description
Call ErrHand(Me.Capt ion, "Form_Initializ e")
'Resume Next
End If
End Sub

[QVeen72]

Hi,

Declaration statements need "DIM",
Change the line to:

Dim ID As Integer

Regards
Veena

[squrel]

Oh.. sorry i forgot tht.. bt now i m getting this error..
"Item can not be found in the collection corresponding to the requested name or ordinal" and after pressing ok it says " path not found"
wht i shld do now??
thankx

[QVeen72]

Hi,

What line are you getting Errors.?

Regards
Veena

[squrel]

no line is giving me error.. when i press on the add button or any other button tht error is coming...

[squrel]

i have 8 buttons.. and using toolbar for tht...(Sort,Fin d,Add,View,Edit ,Save,Cancel,Ex it)

when i m pressing on edit or view its telling me "the connection cannot be used to perform this operation. it is either closed or invalid in this context" and then after tht say " path not found" ..

i dont knw if i m using the toolbar in a write way.. wld u plz check the code which i send it up and tel me whr is wrong..
thank u very much

[QVeen72]

Hi,

I Guess, "Db" is your Connection Object..
In form_Load event, You have to Make Connection to the database, before you start querying..
Check that Connection is made, and Database Path is selected appropriately..

REgards
Veena

[squrel]

this is my form load


Private Sub Form_Load()
On Error GoTo ChkErr
'Dim i As Integer

Dim Rs As New ADODB.Recordset
If Rs.State = adStateOpen Then Rs.Close
Rs.Open ("select * from casemaster"), Db, adOpenKeyset, adLockPessimist ic


Dim NewColumn As MSComctlLib.Col umnHeader
'cmdShowList.Vi sible = True
Toolbar1.Button s.Item(1).Enabl ed = True ' Sort
Toolbar1.Button s.Item(2).Enabl ed = True ' Find
Toolbar1.Button s.Item(3).Enabl ed = True ' Add
Toolbar1.Button s.Item(4).Enabl ed = True ' View
Toolbar1.Button s.Item(5).Enabl ed = True ' Edit
Toolbar1.Button s.Item(6).Enabl ed = True ' Save
Toolbar1.Button s.Item(7).Enabl ed = True ' Cancel
Toolbar1.Button s.Item(8).Enabl ed = True ' Exit


Call Grid_Data
Exit Sub
ChkErr:
If Err.Number > 0 Then
MsgBox Err.Number & vbNewLine & Err.Description
Call ErrHand("frmCas eMaster", "Form_Load" )
'Resume Next
End If

Grid_Data
End Sub

[QVeen72]

Where is the Code to Connect to the database..?
I Did ask, Is connection made?
Also, remove error-handlers, to check if you have and runtime errors, in form load..

Regards
Veena

[squrel]

i m so confuse using this toolbar... i dont knw if i m using it rit... now my add is working bt my save is not... do u have any sample of toolbar code tht i can check it... or can u help me in any other way.. i have to make this
thankx