|
hace referencia a uodotnet.dll
Declara Imports IBMU2.UODOTNET
te conectas Dim us As UniSession = Nothing us = UniObjects.OpenSession(SERVIDOR, UVUserID,UVPassword, CUENTA)
probas la conexion Dim unicom As UniCommand = uniSession.CreateUniCommand Dim subtext As String = "" Dim qry As String = "WHO" unicom.Command = qry unicom.Execute() subtext = unicom.Response
espero te sirva
|