Conexión o ruta relativa

[yosmor]

Hola a todos!
Tengo la siguiente inquietud: para conectar una base con el control ADO, genero la cadena de conexión. Lo que deseo es no tener que establecerla en tiempo de diseño, sino que se establezca automáticamente en el mismo directorio donde corre mi aplicación, de esta forma sino encuentra la base pueda a través de código tratar la excepción.

Gracias,
Saludos.

[vtdeleon]

Saludos
Bienvendido al ClubDelphi. Por favor lee la Guia de Estilo.

Con respecto a tu duda, Que motor de base de ddatos usa?

[yosmor]

Muchas gracias por la bienvenida y orientarme.

Microsoft Jet para Access

Saludos.

[vtdeleon]

Saludos

1ro Debes tener una variable que contenga el directory de la aplicacion, ParamStr(0) devolvera la ruta mas el nombre del archivo (ej:c:\ruta\aplicacion.exe). Debes estraer solo el directorio con ExtractFilePath() y asignarlo a una variable.

En la prodiedad ConnectionString asignaras el proveedor que usaras y el directorio.

Código Delphi [-]
ADOConnection1.ConnectionString:=Provider=Microsoft.Jet.OLEDB.4.0;Data Source='C:\top\datos.mdb'

Como ver 1ro El proveedor, despues el directorio y archivo de la base de datos
Suerte

[yosmor]

Muchas gracias, me ayudaste bastante. Pero ahora tengo el siguiente problema

var
          ruta:String;
          begin
            ruta:=ExtractFilePath(ParamStr(0))+ 'base.mdb';
            ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ ruta;
            ADOTable1.Active:=True;
          end;

Cuando le doy F9 me da error de conexión. Tengo mal la sintaxis

Disculpa si son muy evidentes mis errores pero es que estoy migrando a Delphi.

Gracias!,
Saludos.

[[Lepe]]

ponte en la linea de código active := true, en el editor de código de delphi, pulsa la tecla F5 (Insertar un punto de ruptura, breakpoint), dale a F9 y ejecuta tu programa, se parará el programa en esa linea de código, ahora deja el ratón sobre ConnectionString (encima de esa palabra), te aparece una ventanita que evalua la expresion y te dice el valor que tiene.

Supongo que falta una barra invertida antes de base.mdb

Para seguir ejecutando el programa linea a linea, usa F7 y F8. Para continuar con la ejecución normal, vuelve a pulsar F9.

El depurador es una maravilla ehhh .

Un saludo

[dec]

Hola,

Empezado por Lepe

Supongo que falta una barra invertida antes de base.mdb.

La función "ExtractFilePath" se encargará de incluir la barra invertida Lepe. No así la función "ExtractFileDir".

[vtdeleon]

Saludos

yosmor, en la linea donde esta ParamStr(0) te da la ruta entera del ejecutable mas el nombre de la aplicacion, por tanto debes extraer solo la ruta, ej ExtractFilePath(ParamStr(0))

[yosmor]

Hola!
Gracias a todos!

Empezado por vtdeleon

Saludos

yosmor, en la linea donde esta ParamStr(0) te da la ruta entera del ejecutable mas el nombre de la aplicacion, por tanto debes extraer solo la ruta, ej ExtractFilePath(ParamStr(0))

Ok, como puedes ver hice eso

  ruta:=ExtractFilePath(ParamStr(0))+ 'base.mdb';
       //Ejemplo:
       ShowMessage (ruta); // Lo que me devuelve: 'C:\base.mdb'

Creo que el problema esta aquí, porque me da error de conexión.

ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ ruta;

Mi pregunta es: que está mal en esta línea

Saludos y nuevamente muchas gracias a todos.

[vtdeleon]

Saludos

No estoy seguro, pero puede ser la version de Microsoft.Jet.OLEDB.4.0

[yosmor]

Ayuda, por favor

ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + '''' + 'C:\base.mdb' + '';

Estoy probando todas las maneras, depurando y evaluando ADOConnection1.ConnectionString, imaginaba que tuviera que ver con el uso de ( ' ) al pasarle la cadena.

Me sigue dando el mismo error de conexión y no encuentro la manera, pero seguiré probando.

Saludos.

[yosmor]

Empezado por vtdeleon

Saludos

No estoy seguro, pero puede ser la version de Microsoft.Jet.OLEDB.4.0

Pero cuando la establezco por el inspector de objetos no me da problemas y se conecta bien.

[yosmor]

Ya he resuelto.
Mi problema era que por accidente se me había quedado un control sin enlazar (ADOTable).

vtdeleon - Me ayudaste muchísimo.

Mil disculpas por la confución.

Gracias a todos!,

Saludos.