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
Ce guide facilitera l’adoption d’une Threat Intelligence - renseignement sur les cybermenaces, cyberintelligence - adaptée au "contexte", il fournit des indicateurs de performance clés (KPI) pour progresser d' une posture défensive vers une approche centrée sur l’anticipation stratégique
Alliée ou menace ? Comment l’IA redessine le paysage cyber
CES 2026 : l’IA physique et la robotique redéfinissent le futur
Les 3 prédictions 2026 pour Java
Semi-conducteurs : comment l’Irlande veut contribuer à atténuer la pénurie mondiale de puces
Face à l’urgence écologique, l’IT doit faire sa révolution
