[RESOLVED] WithEvents Not firing

[Mythrandil]

Hey

Im fairly new to OO programming in VB and this is my first time trying to create my own events.

What i have so far is simply:

declaration:

Public Event Connected()

routines:

Public Sub SQL_Connect()
On Error GoTo sql_connect_err_handler
    Set cn = New ADODB.Connection
    If cn_string = vbNullString Then Err.Raise CN_STR_NULL
    cn.ConnectionString = cn_string
    cn.Open
    Call Event_Connected
 
Exit Sub
sql_connect_err_handler:
If Err.Number = CN_STR_NULL Then
    RaiseEvent Error(CN_STR_NULL, "", "Connection String Invalid")
Else
    RaiseEvent Error(Err.Number, Err.Source, Err.Description)
End If
 
Private Sub Event_Connected()
    RaiseEvent Connected
End Sub

And on the form:

Public WithEvents NewSql As ClsSQL
 
Private Sub Command1_Click()
Set NewSql = New ClsSQL
End Sub
 
Private Sub NewSql_Connected()
    label1.caption "Connection Active"
End Sub

Tracing the code shows that the connection to db is fine etc etc but it passes through the RaiseEvent call without raising the forms event handler

any ideas?

[RobDog888]

ADO already has a connection event. Actually its a WillConnect and ConnectComplete.

Option Explicit
 
Public WithEvents conn As ADODB.Connection
 
Private Sub conn_ConnectComplete(ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pConnection As ADODB.Connection)
    MsgBox "Connected"
End Sub

[Mythrandil]

thanks for the reply but i'd like to use withevents for other situations like raising errors within the class if possible.

thanks tho

[brucevde]

You never called the SQL_Connect procedure.

Private Sub Command1_Click()
  Set NewSql = New ClsSQL
  NewSQL.SQL_Connect
End Sub

[Bombdrop]

You are implementing the Event in the class, this is somthing you dont do implemtation of an event takes place in the form that uses an object basied on the event.

Hope this helped!!

[Mythrandil]

SQL_Connect is called on class initialization so it does connect.

Implmentation of the event is on the form, the last code box is from the form the previous 2 are from the class. I just dont raise the event directly, i do it indirectly through a sub incase i need to change the way the event is called.

[bpd]

SQL_Connect is called on class initialization so it does connect.

Although I don't seem to be able to find it documented, I don't believe you can raise events from a class object until after the class' Initialization event has completed.

[Mythrandil]

Although I don't seem to be able to find it documented, I don't believe you can raise events from a class object until after the class' Initialization event has completed.

give this man a medal!!

thanks very much