Ayuda con conexion a bases de datos desde linea de comandos

[k_bron]

Que tal ! espero que me puedan ayudar. Hay alguna manera de accesar a distintas bases de datos en distintas plataformas dbms (una a la vez) por medio de un mismo archivo de configuracion de conexion? esto es para una aplicacion de consola. pense en usar odbc's pero no se como crearlos para una aplicacion de consola. Espero que alguien pueda ayudarme.

[juanfergl]

cual es el alcance de tu aplicación?
Lo que pides hace referencia a programas de entorno de ventanas.

Mejora tu pregunta para poderte ayudar.

[k_bron]

Tengo que hacer una aplicacion de consola en delphi 5, la cual se conecte a alguna base de datos remota y que obtenga los paramentros de la conexion por medio de un archivo que se le indica al correr esta aplicacion desde la linea de comandosmas o menos de la sig. manera:
APP -a <ruta del archivo>
donde:
APP es el nombre de la aplicacion.
-a es el parametro para especificarle el archivo con los parametros de la
conexion
<ruta del archivo> en este archivo se le configuran los parametros de la
conexion.

El problema es que la base de datos remota puede estar en oracle, access, sql server o cualquier otro dbms. Se supone que la aplicacion debe de poder conectarse a cualquier DBMS ( o al menos los mas conocidos). Yo estaba pensando en utilizar ODBC pero no se como crear el DNS desde delphi. No se si exista alguna mejor opcion. Espero que puedan ayudarme.

[jachguate]

Podes fácilmente hacerlo con BDE o con ADO, usando drivers nativos, siempre que estos estén disponibles. Los parámetros de conexión dependen del driver, por ejemplo, yo he hecho aplicaciones de consola que se conectan a firebird indicando la ruta de conexión, el nombre de usuario, la contraseña y el rol.

En código, y suponiendo que ya tenes los parámetros de conexión en variables y que te has decantado por BDE, podría ser algo como:

Código Delphi [-]
if DriverBaseDatos in [dFirebird, dInterbase] then
begin
  bd.DriverName = 'INTRBASE';
  bd.Params.Clear;
  bd.Params.Values['USER NAME'] := Usuario;
  bd.Params.Values['PASSWORD'] := Clave;
  bd.Params.Values['SQLDIALECT'] := 3;
  bd.Params.Values['SERVER NAME'] := RutaBD;
end
else if DriverBaseDatos = dSQLServer then
begin
  //los parámetros de SQL Server
end;
bd.Open;

Hasta luego.