> Tech > Figure 3

Figure 3

Tech - Par iTPro - Publié le 24 juin 2010
email

Code pour l'événement clic du bouton Click Me!

Dim DbConnection As New ODBCConnection
Dim DbQuery As New ODBCQuery
Dim DbResultSet As New ODBCResultSet
Dim RtnCode As Integer
Dim SysName As String

On Error Goto ErrorHandler

RtnCode=DbConnection.ConnectTo("domino400", "MYUSERID", "MYPWD")
Set DbQuery.Connection = DbConnection
Set DbResultSet.Query = DbQuery

RtnCode=DbResultSet.ExecProcedure("RTVSYSNAM" , SysName)

If

Figure 3

RtnCode Then
Messagebox(SysName)
Else
Messagebox(« Call Failed »)
End If
Exit Sub
ErrorHandler:
Print « Error:  » & Erl & « ,  » & Err & « ,  » & Error
Exit Sub

Téléchargez gratuitement cette ressource

Endpoint Security : Etude IDC Enjeux & Perspectives

Endpoint Security : Etude IDC Enjeux & Perspectives

Quel est l'état de l'art des solutions de Endpoint Security et les perspectives associées à leur utilisation ? Comment garantir la sécurité des environnements sensibles en bloquant au plus tôt les cyber attaques sophistiquées, avant qu’elles n'impactent durablement vos environnements de travail ?

Tech - Par iTPro - Publié le 24 juin 2010