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
Les attaquants savent comment prendre le contrôle de votre tenant Microsoft 365, et vous, savez-vous comment le reprendre en main ?
Computex 2026 : 5 signaux forts à retenir
La chaîne d’approvisionnement, point de rupture récurent du SI
Microsoft Build 2026 : contre-offensive des modèles maison face à OpenAI et Anthropic
Rhea1 : SiPearl allume le CPU européen le plus ambitieux pour le HPC et l’IA souveraine
Analyse Patch Tuesday Mai 2026
