Por 20 años he usado la siguiente conexión en el código de mis programas de VB6
Option Explicit
Global ADOCnn As New ADODB.Connection
Private Sub Form_Load()
ADOCnn.CursorLocation = adUseServer
ADOCnn.Open "DSN=SourceName", "UserNo", "1234"
Exit Sub
donde "SourceName" es un Driver de ODBC creado en Orígenes de Datos ODBC como TODO mundo sabe hacerlo.
LA ÚNICA DIFERENCIA ES:
Yo siempre hacía acceso a un servidor LOCAL y escribía: SRVNAME, SRVNAME\SQLEXPRESS, etc.
AHORA necesita acceso a un sevidor REMOTO y escribo: 198.38.94.178, con TCP/IP y Puerto 1433
FUNCIONA PERFECTAMENTE, LA PRUEBAS SE HACEN EXITOSAMENTE...
PERO CUANDO LO INVOCO DESDE MIS PROGRAMAS DE VB6 CON EL CÓDIGO DE ARRIBA, ME MARCA EL ERROR QUE LES DIGO.
AYUDENME, probablemente es algo muy fácil, pero necesito alguien con experiencia en esto.
De antemano. ¡MUCHAS GRACIAS!
LUIS G.