Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Conexión con bases de datos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 20-09-2010
Er0s Er0s is offline
Miembro
 
Registrado: mar 2008
Posts: 75
Poder: 19
Er0s Va por buen camino
Esto ... ejem..... como capturo la ruta del exe?
Responder Con Cita
  #2  
Antiguo 20-09-2010
Er0s Er0s is offline
Miembro
 
Registrado: mar 2008
Posts: 75
Poder: 19
Er0s Va por buen camino
Mas datos...

Esa primera vez que se abre la ventana de Clientes y le doy por primera vez a "Nuevo Cliente" en el DBgrid aparece la nueva linea para dicho cliente y cuando pulso en los DBedits para empezar a meter datos y aparecen los datos del ultimo cliente, en el DBgrid se booraa la linea blanca y se pasa al ultimo cliente anteriormente añadido.
Responder Con Cita
  #3  
Antiguo 20-09-2010
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 27
Caral Va por buen camino
Hola
Si quieres eliminar el archivo ini (que para mi es un error) y quieres colocar la BD en la misma carpeta del programa, entonces cambias en el datamodule, de esto:
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)+'BD.ini');
   BasedeDatos := IniFile.ReadString('BD','Path','');
   If BasedeDatos = '' then ShowMessage('Error al cargar Base de Datos');
   ConStr := 'Provider=Microsoft.Jet.OLEDB.4.0;'+
             'Data Source='+BaseDeDatos+';'+
             'Persist Security Info=False;'+
             'Jet OLEDB: Database Password=admin';
   AC1.ConnectionString := ConStr;
   AC1.Open;

end;

A esto:
Código Delphi [-]
procedure TDataModule1.DataModuleCreate(Sender: TObject);
Var 
BaseDeDatos, ConStr : String;
begin
   BaseDeDatos := ExtractFilePath(Application.ExeName)+'Datos.MDB';
   If BasedeDatos = '' then ShowMessage('Error al cargar Base de Datos');
   ConStr := 'Provider=Microsoft.Jet.OLEDB.4.0;'+
             'Data Source='+BaseDeDatos+';'+
             'Persist Security Info=False;'+
             'Jet OLEDB: Database Password=admin';
   AC1.ConnectionString := ConStr;
   AC1.Open;

end;

El dia que quieras colocar la BD en red, volverás al INI.
Saludos
__________________
Siempre Novato
Responder Con Cita
  #4  
Antiguo 20-09-2010
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 27
Caral Va por buen camino
Hola
Aclaremos sobre el archivo INI y tu duda:
El archivo INI es un archivo de texto por ende se puede modificar.
Dentro de este archivo se encuentra esto:
Cita:
[BD]
Path="C:\Program Files\Borland\Delphi6\Projects\Programa Er0s1\BD\Datos.MDB"
[Logon]
Auto="No"
Login=""
Pass=""
Esa ruta por supuesto que no va a coincidir con la tuya, mas que no usas delphi6.
Como la cambias, pues simplemente se abre el archivo como si fuera un NOTEPack se cambia la ruta y se guarda.
Digamas que la BD la quieres en una carpeta en C:/, entondes simplemente la cambias asi y la guardas:
Cita:
[BD]
Path="C:\MiCarpeta\Datos.MDB"
[Logon]
Auto="No"
Login=""
Pass=""
Lo mismo pasa si la BD esta en red o donde quieras.
La BD no va a estar supeditada a una carpeta se podra colocar en donde gustes, incluso fuera del alcance de los usuarios para protegerla.
Creo que es preferible enterarse bien del INI que quitarlo.
Saludos
__________________
Siempre Novato
Responder Con Cita
  #5  
Antiguo 20-09-2010
Er0s Er0s is offline
Miembro
 
Registrado: mar 2008
Posts: 75
Poder: 19
Er0s Va por buen camino
Caral no voy a quitar el ini.... a ver si termino de currar y hablamos
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
ULTIMA HORA: compilador de linea de comandos disponible. Epachsoft Noticias 0 28-09-2006 00:02:55
Eliminar la ultima linea de un Memo MRSAM Varios 2 18-10-2005 21:02:37
QRShape en la ultima línea!!! CarmaZone Impresión 4 19-07-2005 17:09:50
TRxRichEdit. Ultima linea sin dejar el foco en él. jorodgar Varios 1 25-05-2005 11:59:22
Leer ultima linea de un archivo ??? chelejuan Varios 3 04-11-2004 16:53:39


La franja horaria es GMT +2. Ahora son las 19:40:32.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi