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
RtnCode Then
Messagebox(SysName)
Else
Messagebox(« Call Failed »)
End If
Exit Sub
ErrorHandler:
Print « Error: » & Erl & « , » & Err & « , » & Error
Exit Sub
Passez à la cybersécurité proactive, transformez la collecte et l’analyse des logs en un bouclier dynamique contre les cybermenaces. Découvrez comment mettre en place une approche SIEM modulaire, évolutive et accessible, pour anticiper, détecter et réagir efficacement aux attaques.
Continuer avec Exchange Server : quelles conséquences ?
Raccourcis Réseau et Navigateur : le kit de Diagnostic des Professionnels IT
Raccourcis PowerShell et Windows Terminal pour les Professionnels IT
Commandes Windows 11 : le Guide des Outils accessibles avec Win + R
Sécurité : une approche dans la durée avant tout
