Como Pasar Informacion Entre Dos Bases De Datos Con Tablas Identicas?

[MaSSaKKre]

Ahora me ha surgido otro problemita, sucede que ambas bases de datos estan protegidas por contraseña por lo cual no puedo hacer el migrado de datos, es decir, cuando les quito la contraseña a ambas bases de datos o por lo menos a la base de datos remota, si logro hacer el migrado de datos, pero cuando tiene contraseña no puedo hacer dicho migrado.

Mi conexion a la base de datos es la siguiente

Código Delphi [-]


//CONECTANDO LA BASE DE DATOS
    //CONDICION DE QUE LA BD DEBE ESTAR DESCONECTADA
     IF ADOCONNECTION1.Connected= FALSE THEN
        BEGIN
 IF FILEEXISTS(RUTA) THEN  //SI LA RUTA EXISTE SE CONECTA
  BEGIN
 ADOCONNECTION1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+QuotedStr(RUTA)+';Persist Security Info=false;Jet OLEDBatabase Password=123456'; //asignando la contraseña de la base de datos
 ADOCONNECTION1.Connected:=TRUE;
 ShowMessage('LA CONEXION DE LA BASE DE DATOS HA SIDO EXITOSA');
 EXIT;
  END
    ELSE
      BEGIN //SI LA RUTA NO EXISTE ENVIA MENSAJE DE ERROR
      ShowMessage('NO SE ENCUENTRA LA BASE DE DATOS EN LA RUTA ESPECIFICADA');
      EDIT1.SetFocus;
      EXIT;
      END;
        END
           ELSE   //IF DE VERIFICACION DE BD CONECTADA, SI YA ESTABA CONECTADA ENVIA AVISO
             BEGIN
             ShowMessage('LA CONEXION DE LA BASE DE DATOS YA HA SIDO REALIZADA ANTERIORMENTE');
             EXIT;
             END;

despues estes es el codigo que utilizado para el migrado de la informacion es el siguiente:

Código Delphi [-]
with ADOQuery1 do
begin
   Close;
   SQL.Clear;
              //TABLA_LOCAL SERVIDOR         //TABLA_REMOTA LAPTOP
SQL.Add('INSERT Into tbl_ING_Recibos Select * From tbl_ING_Recibos In"'
        +DIR+'"where FechaRecibo like "'+FECHAPAGO+
        '" AND ClaveRecibo BETWEEN '+RECIBO1+' AND '+RECIBO2+'');
 ExecSQL;
   END;
//ENVIANDO DATOS A LA SEGUNDA TABLA DE LA BASE DE DATOS
with ADOQuery2 do
begin
   Close;
   SQL.Clear;
                  //TABLA_LOCAL SERVIDOR         //TABLA_REMOTA LAPTOP
SQL.Add('INSERT Into tbl_ING_RecibosCuentas Select * From tbl_ING_RecibosCuentas In"'
        +DIR+'"where ClaveRecibo BETWEEN '+RECIBO1+' AND '+RECIBO2+'');
 ExecSQL;
  END;//ADOQUERY
     END; //CERRAMOS EL IF DE VERIFICACION DE BD CONECTADA

el problema esta en que al conectarme con la base de datos a una si la estoy abriendo con el password y la otra en ningun
momento digo cual es su pass ni lo asigno ni nada y pues no se donde debo abrir la base de datos y asignarle su pass.
ahora bien la solucion seria de que ya fuera que al momento de abrir mi aplicacion antes de hacer el migrado de datos, yo pudiera quitarle por medio
de codigo la contraseña a la base de datos, luego hacer el migrado y poner nuevamente la contraseña a la base de datos ó
en su defecto, pues que alguien me ayude con mi consulta para poder abrir la base de datos antes que se ejecute
mi codigo SQL.

Espero me respondan.
saludos

[[felipe88]]

Podrias probar eliminando el logginprompt de la base de datos

[MaSSaKKre]

Empezado por felipe88

Podrias probar eliminando el logginprompt de la base de datos

Pues no me funciona o no se como aplicarlo correctamente...

[[felipe88]]

Empezado por MaSSaKKre

Pues no me funciona o no se como aplicarlo correctamente...

Y como lo aplicas... desde el componente DataBase o por codigo...

Bueno y no hay algun programa que te permita hacer eso o el mismo acces...

[MaSSaKKre]

Pues lo que pasa es que si a la base de datos le quito la contraseña si puedo hacer las consulta insert, pero lo que no quiero es dejar tan vulnerable la bd, al menos para que usuarios inexpertos.

[MaSSaKKre]

Pues bien, despues de tanto leer por ahi, encontre la solucion para eliminar el password de una base de datos, me guie de la siguiente direccion:
http://www.delphi3000.com/articles/article_1278.asp?SK=

y adecue mi codigo de la siguiente manera

Código Delphi [-]
 
//funcion
 
Function CompactAndRepair(sOldMDB : String; sNewMDB : String) : Boolean; 
const 
         sProvider = 'Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDBatabase Password=123456;'; //abriendo la bd con la contraseña actual
         sProvider1 = 'Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDBatabase Password=;'; //creando la nueva bd sin contraseña o en su defecto se puede poner otra contraseña nueva
var
         oJetEng   : JetEngine;
begin
         sOldMDB := sProvider + 'Data Source=' + sOldMDB;
         sNewMDB := sProvider1 + 'Data Source=' + sNewMDB;
         try 
            oJetEng := CoJetEngine.Create;
            oJetEng.CompactDatabase(sOldMDB, sNewMDB);
            oJetEng := Nil; 
            Result  := True; 
         except 
            oJetEng := Nil;
            Result  := False; 
         end; 
end;

llamado de funcion:

Código Delphi [-]
CompactAndRepair(''+edit2.Text+'', ''+edit1.Text+'');

obvio el edit2 es la ruta actual de la bd y el edit1 es la ruta de la nueva bd, osea donde quedarà una vez creada.
hay que implementarle un nombre temporal a la bd nueva y posteriormente cambiar el nombre desde codigo, al menos en mi caso para lo que la voy a utilizar, asi funciona.

Gracias por la ayuda y ahi esta el code para los que lo puedan necesitar.

Saludos