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
Téléchargez cette ressource
Guide inmac wstore pour l’équipement IT de l’entreprise
Découvrez toutes nos actualités à travers des interviews, avis, conseils d'experts, témoignages clients, ainsi que les dernières tendances et solutions IT autour de nos 4 univers produits : Poste de travail, Affichage et Collaboration, Impression et Infrastructure.