No puedo conectar con ADO sin usar ODBC

[MAXIUM]

Hola comunidad

Me falla esta conexión al abrirla. Primero se bloquea la APP y luego me dice que no se puede conectar, no importa cuantas veces lo intente

Código Delphi [-]
ADOConnection1.ConnectionString:= 'Provider=SQLOLEDB;Persist Security Info=False;User ID=user;Password=pass;Initial Catalog=TABLA;Data Source=BASEDATA'

Pero si previamente configuro un DNS de sistema por ODBC, aunque no lo guarde y cierre esta, al intentar la conexión por ADO me conecta de inmediato y de ahí en adelante sin problema aunque reinicie el equipo. Me pasa en cualquier equipo dentro de la red

¿Es normal? ¿Qué puedo hacer para que conecte al abrir la aplicación sin hacer nada previo?
Mis primeros pasos con los componentes de ADO (Delphi 10.4,x)

[Neftali [Germán.Estévez]]

Empezado por MAXIUM

Me falla esta conexión al abrirla. Primero se bloquea la APP y luego me dice que no se puede conectar, no importa cuantas veces lo intente

¿Puedes poner los datos que estás utilizando en la conexión ADO?
¿Y el error exacto?


A mi me funciona sin problemas contra un SQLServer (tanto el Express como el normal).

[Neftali [Germán.Estévez]]

Revisa que tienes activado esto en el servidor, que imagino que si.

[MAXIUM]

Gracias por contestar Neftali

Empezado por Neftali [Germán.Estévez]

¿Puedes poner los datos que estás utilizando en la conexión ADO?
¿Y el error exacto?

Código Delphi [-]
     ADOConnection1.Connected:= False;
     ADOConnection1.ConnectionString:= 'Provider=SQLOLEDB;Persist Security Info=False;User ID=user;Password=pass;Initial Catalog=SISMIQ;Data Source=rutaoip\SQLEXPRESS;';

     Try
        ADOConnection1.Connected:= True;
        StatusBar1.Panels[1].Text:= 'Conectado';
     Except
         ADOConnection1.Connected:= False;
         ADOConnection1.Close;
         StatusBar1.Panels[1].Text:= 'Falla Conexión';
     End;

En error que arroja, es Falla Conexión

Empezado por Neftali [Germán.Estévez]

Revisa que tienes activado esto en el servidor, que imagino que si.

Si. Eso esta activo en el servidor.
Y como digo, una vez que se hace una conexión por ODBC, aunque la borre y reinicie el equipo, en la APP creada en Delphi comienza a funcionar bien.

[MAXIUM]

Misma aplicación en 2 equipos distintos dentro de la red local y todo.
Sin agregar excepciones, este es el error que sale en la máquina que no se ha hecho una prueba por ODBC. En el otro equipo no ocurre esto.

[MAXIUM]

La solución estaba en agregar el puerto que esta usando el servidor en el ConnectionString

Código Delphi [-]
Source=SERVER,1433\SQLEXPRESS;

Código Delphi [-]
Source=192.168.0.1,1433\SQLEXPRESS;