Seoane nadie ha podido

[erasmorc]

Buenos dias,

Ya que tocas el tema de los archivos udl y como bien dices que el hecho que una persona no sepa como hacer no quiere decir que no se pueda, te agradeceria mucho que me explicaras o pasaras un ejemplo de como se conecta. Te comento que se cuales son los archivos UDL que puedes configurar la conexion sin compilar desde delphi, hasta ahi vamos bien, pero a partir de ahi como le digo a mi componente que utilize este achivo udl para conectarse no he podido hacerlo, lo he intentado de las siguientes formas, en el conection string del adoconection coloco file name = 'c:\prueba\ventas.udl'
'file name = c:\prueba\ventas.udl' , file name = "c:\prueba\ventas.udl", etc,etc. Te agradeceria cualquier ayuda.

Slds,
FRC

[[pepon386]]

Lo único que necesitas para que tu aplicación funcione correctamente es en el evento 'OnWillConnect' del componente TADOConnection asignar el valor de la cadena de conexión a la variable 'ConnectionString':

Código Delphi [-]
procedure TDMMain.ADOConnectionWillConnect(Connection: TADOConnection;
  var ConnectionString, UserID, Password: WideString;
  var ConnectOptions: TConnectOption; var EventStatus: TEventStatus);
begin
  ConnectionString := GetConnectionString;
  EventStatus := esUnwantedEvent;
end;
 
function TDMMain.GetConnectionString;
begin
  Result := MiCadenaDeConexión;
end;

[erasmorc]

Buenos dias,

Y en que momento utilizo la configuracion guardada en el archivo udl???


Slds,
FRC

[[poliburro]]

Mi amigo, creo que de repente una búsqueda en el foro te sería bastante útil:

aquí un post donde se presentaba tu misma duda con su respectiva solución:

http://www.clubdelphi.com/foros/showthread.php?t=34865

Ahora que te comento, un archivo UDL es en sí, un Ini común y corriente, así que podrias crear una función del tipo:

Código Delphi [-]
With TIniFile.Create(ArchivoUdl) Do
  Result := 'provider=' + ReadString('oledb','Provider','');

Una vez que tienes la cadena de conexión, solo debes asignarla a la propiedad Conexión String de tu objeto conexión.

bueno, pues suerte

[erasmorc]

Buenos dias,

No quiero crear el archivo .ini, no me interesa hacerlo de esa manera, se supone que en el conexion string del componente ado debo poder especificar el archivo de configuracion udl al que quiero hacer referencia, pero no me interesa crear el archivo ini.

Y si he buscado en el foro, lo que pasa que el motor de busquedas funciona en base las palabras que coloques y estas a su vez dependen de como a cada quien se le ocurra nombrar su tema.

Slds,

[dec]

Hola,

Empezado por erasmorc

Y si he buscado en el foro, lo que pasa que el motor de busquedas funciona en base las palabras que coloques y estas a su vez dependen de como a cada quien se le ocurra nombrar su tema.

Por eso conviene titular los Hilos lo más descriptivamente posible, porque ayuda no poco a la hora de utilizar el buscador de los Foros.

Pero todos debemos aplicarnos el cuento, incluso tú, si me lo permites, puesto que "Seoane nadie ha podido" no parece un título muy apropiado...

[argote]

Para obtener el listado de todos los servidores de MS SQL, registrados en tu network, debes utilizar el procedimiento almacenado sp_helpserver.
Si utilizas un componente TADOQuery y en la sentencia escribes:

exec sp_helpserver

podrás obtener el listado de los servidores MS SQL y de los LINKED SERVERS. Acá está un ejemplo de como sacar de este componente el listado.

Código Delphi [-]
TForm1.Button1Click(Sender: TObject);
var
  cad : string;
begin

  ADOQuery1.Open;
  ADOQuery1.First;
  while not ADOQuery1.Eof do
    begin
      cad := cad + ADOQuery1.Fields[0].AsString + #13#10;
      ADOQuery1.Next;
    end;
  ShowMessage(cad);
end;

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

Empezado por argote

Si utilizas un componente TADOQuery y en la sentencia escribes:

exec sp_helpserver

Esta no la conocía...

[[poliburro]]

Empezado por erasmorc

Buenos dias,

No quiero crear el archivo .ini, no me interesa hacerlo de esa manera, se supone que en el conexion string del componente ado debo poder especificar el archivo de configuracion udl al que quiero hacer referencia, pero no me interesa crear el archivo ini.

Hombre, :|, creo que no me entendiste, el archivo de configuración UDL, es en realidad un archivo INI, si tu abres con el notepad tu archivo UDL encontraras que su estructura es la de un INI.

Oviamente la ventaja del UDL es que al ser ejecutado te levanta el asistente de conexión de ADO. Pero internamente es un INI común y corriente

[[Caral]]

Hola
Bueno erasmorc, la verdad tienes y no razon en que el componente adoconnection configura la direccion de la base de datos en tiempo de ejecucion, por que digo tienes y no, porque en realidad la conexion la necesitas para hacer el programa, no necesariamente para distribuirlo o ejecutarlo.
Si usas un datamodule y un archivo .ini, puedes copiar la ruta que usa el adoconection y cambiarla en el ini muy facilmente.
Un ejemplo con mysql:
En el datamodule:

Código Delphi [-]
procedure TDataModule1.DataModuleCreate(Sender: TObject);
Var BaseDeDatos, ConStr : String;
    IniFile: TIniFile;
begin
 // Obtiene la ruta y el nombre de la base de datos
   IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'Archivo.ini');
   BasedeDatos := IniFile.ReadString('BD','Path','');
   If BasedeDatos = '' then ShowMessage('Error al cargar Base de Datos');
   ConStr := 'Provider=MSDASQL.1;'+
             'Data Source='+BaseDeDatos+';'+
             'Persist Security Info=True';//'+
         //    'Password=admin1';
   AC1.ConnectionString := ConStr;
   AC1.Open;
end;

Como veras, al iniciar el datamodule, este busca primero el archivo.ini que contiene lo que quieras, en mi caso el nombre de la base de datos, pero puedes ponerle toda la direccion si es el caso asi:
Archivo.ini:

[BD]
Path="Basedatos"
[Logon]
Auto="NO"
Login=""
Pass=""

Al distribuir el ejecutable, se distribuye el archivo.ini, que lo puede modificar cualquiera facilmente.
Bueno espero te sirva de otro ejemplo.
Saludos