Hola
Aqui te mando un codigo que te permite buscar las conecciones de manera dinamica pero te da mas obciones ok ponlo en un boton y ejecutalo ,si has encontrado algo mejor pues hasmelo saver pues yo estoy con el mismo problema y esa fue la solucion que encontre lo que me pasa es que quiero poner los botones en espagnol y eso no lo he logrado lo ideal seria buscar alguna funcion que me liste todas las conecciones de ODBC de la maquina o sea los alias:
procedure TForm1.Button1Click(Sender: TObject);
begin
if (not ADOConEd.EditConnectionString(ADOConnection1)) then
begin
MessageDLG('No se establecio la coneccion con la base de datos.', mtInformation, [mbOk], 0);
end
end;
|