¿Como hago mi conexion por programacion?

[vtdeleon]

Saludos

Empezado por Firma de jachguate

Guía de Estilo de los foros
Aprendé la etiqueta CODE

Dale a esos enlaces. El 2do enlace te ense~a como hacerlo

[[Lepe]]

Antuan, Tengo que comentar un fallo en el código que he posteado; Como yo no tengo tu tabla llamada Auxiliar, he usado una tabla que tenia a mano llamada 'Clientes.dbf', y se me olvídó modificarlo al pegar el mensaje.

Donde dice :

TableName := 'Clientes.dbf'

deberás cambiarlo por:
TableName := 'Auxiliar.db'

Con eso ya debería tirar de lujo, siento las molestias.

Por cierto, para el "código salga bonito" usa esto:

[ delphi ]
aqui vuestro codigo fuente
[ /delphi ]

(sin espacios dentro de los corchetes) Así consigues que respete el identado y aparezca las palabras reservadas en negrita y colores.

Un saludo

[Antuan]

Me va todo muy bien y gracias por tu atencion para que aprenda.
Solo me queda en este ejemplo y que no soy capaz de poder hacer que tome la base de datos la misma ruta donde tengo la aplicacion.

Código Delphi [-]
with table1 do
begin
  DatabaseName := 'ExtractFilePath(ParamStr(0))' //esto no lo se poner
  TableName :='Auxiliar.db';
  Name := 'Table1';
  Active := True;
  Datasource1.Dataset := Table1;
  // logicamente antes de poner en activo la tabla, todas
  // las propiedades deben estar establecidas.
end;

La base de datos esta en la misma carpeta que la aplicacion.
De nuevo muchas gracias por tu atencion.

[[Lepe]]

Puedes usar:

Código Delphi [-]
 

DatabaseName := ExtractFilePath(Application.ExeName);

Es otra forma, pero es exactamente lo mismo que paramstr(0)

Aunque yo te sugiero que las tablas las coloque en una SubCarpeta, ya que son muchos archivos los que se crean, ficheros de tablas, indices, validaciones, campos memos (si los utilizas), etc;
Crea la carpeta "tablas" dentro del .EXE, y despues añades esto:

Código Delphi [-]
DatabaseName := ExtractFilePath(Application.ExeName)+'tablas';

Advertencia: Ten cuidado con las rutas extremadamente largas, yo situaría el programa con esta estructura de carpetas:

 c:
  |-----Mi Programa
                |--------- Archivo .Exe
                |--------- Tablas
                              |---------  auxiliar.DB
                              |---------  Otratabla.DB

Edito: Acabo de probarlo con la ruta:

C:\Archivos de programa\Borland\Delphi6\Projects\tablas

y funciona, pero recuerdo que en algun momento usando muchos niveles de carpetas, el BDE se quejó.

Un saludo

[vtdeleon]

Saludos

Empezado por Antuan

Solo me queda en este ejemplo y que no soy capaz de poder hacer que tome la base de datos la misma ruta donde tengo la aplicacion.

Es Extra~o, Como sabes que no lo esta tomando? Te da algun Error? y si es asi, que error?

[Antuan]

Con esto funciona perfectamente
DatabaseName := ExtractFilePath(Application.ExeName)+'tablas';
Muchas gracias