Public cnAWDB As New ADODB.Connection
Public cmdsqlAWDB As New Command
Private Declare Sub Sleep Lib "kernel32" (ByVal gwMilliseconds&)
 
Public clientObj As Tools
 
Sub Main()
    SQLConnect
    Set clientObj = New Tools
    Do
        Sleep 2000
        clientObj.QueueAktualisieren
        DoEvents
    Loop
End Sub
 
Sub SQLConnect()
        With cnAWDB
            .CursorLocation = adUseClient
            .CommandTimeout = 100
            cmdsqlAWDB.CommandTimeout = 1000
            .ConnectionTimeout = 100
            .ConnectionString = "Provider=SQLOLEDB;" _
                    & "Initial Catalog=xyz;Data Source=DBServer; Uid=xxx;" & _
                    "pwd=xxx;"
        Debug.Print .ConnectionString
 
            .Open
            Set cmdsqlAWDB.ActiveConnection = cnAWDB
            cmdsqlAWDB.CommandType = adCmdText 
 
        End With
 
End Sub

Event Queue(ByVal result As Variant)
 
Friend Sub QueueAktualisieren()
     cmdsqlAWDB.CommandText = "select name = sg.Description," & _
       "anzahl=sgrt.RouterCallsQNow " & _
    "FROM Skill_Group_Real_Time sgrt, Skill_Group sg  " & _
    "where sgrt.RouterCallsQNow > 0 " & _
    "and sg.Priority = 0 " & _
    "and sgrt.SkillTargetID = sg.SkillTargetID"
 
    Err.Clear
    Set rs = cmdsqlAWDB.Execute  ' Select ausführen
 
    If Not rs.EOF Then
        rs.MoveFirst
        RaiseEvent Queue(rs.Fields("anzahl") & " in " & rs.Fields("name"))
    End If
 
End Sub

cu
Ralph