Ver Mensaje Individual
  #4  
Antiguo 05-02-2008
MaSSaKKre MaSSaKKre is offline
Miembro
 
Registrado: sep 2005
Posts: 34
Reputación: 0
MaSSaKKre Va por buen camino
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
Responder Con Cita