como puedo restaurar un archivo .sql a una base de datos en mysql por delphi
 

Saludos a todos
como puedo restaurar un archivo .sql a una base de datos en mysql por delphi

Mira muchachita ya te explique como se hacia ;) jijijijijiji

Saludos!

Hay varias formas dependiendo de cómo te estés conectando a la base de datos, pero consistiría en cargar el archivo .sql y pasárselo a un componente descendiente de "TDataSet" que admita SQL (como TQuery, TSQLQuery, TADOQuery, etc.).

Por ejemplo, si conectas a la base de datos mediante DBExpress y utilizaras TSQLQuery:

Código Delphi [-]
  SQLQuery.Close;
  SQLQuery.SQL.LoadFromFile('Prueba.sql');
  SQLQuery.Prepared := True;
  SQLQuery.Open;

Chao!

Gracias por tu respuesta pero de esa manera no me funciona.
Lo que yo necesito es que comando puedo utilizar para enviar un respaldo de una base de datos d mysql que esta en un archivo .sql a otra base de datos tambien en sql.
Ya yo hice el archivo .bat que contiene la sentencia para migrar la informacion el archivo .bat contiene lo siguiente:

pero necesito el comando para ejecutar ese .bat

Para ejecutar un .bat o cualquier proceso en Delphi puedes usar la función "WinExec" pero me parece que no te estoy entendiendo bien... Si lo que preguntas es que comando has de ejecutar para hacer backup o restaurar una base de datos MySQL visita la siguiente direccion: http://www.desarrolloweb.com/articul....php?manual=34
(En dicha Web te hablan del comando "mysqldump" para hacer backup y de como restaurar usando el comando "mysql", para ejecutar ambos comandos con sus parámetros desde Delphi tendras que usar la función "WinExec" o podrías probar también con "ShellExecute" o "CreateProcess")

Yo hize lo sig. para restaurar una BD SQL
 

Código Delphi [-]
  procedure EjecutarPrograma(rutaPrograma,
     parametros: string; esperar: boolean);
   var
    salida: DWord;
    punteroInfo: PShellExecuteInfo;
    infoEjecucion: TShellExecuteInfo;
   begin
    with infoEjecucion do
    begin
     cbSize := SizeOf(infoEjecucion);
     fMask := SEE_MASK_NOCLOSEPROCESS;
     wnd := GetActiveWindow;
     lpVerb := nil;
     lpFile := PChar(rutaPrograma);
     lpParameters := Pchar(parametros + #0);
     lpDirectory := nil;
     nShow := SW_NORMAL;
     hInstApp := 0;
    end;
    punteroInfo:= @infoEjecucion;
    ShellExecuteEx(punteroInfo);
    if esperar then
     repeat
      salida := WaitForSingleObject(infoEjecucion.hProcess, 500);
      Application.ProcessMessages;
     until (salida <> WAIT_TIMEOUT);
   end;
  
  procedure TForm1.Button1Click(Sender: TObject);
  begin
   EjecutarPrograma('osql','-b -U sa -P -i "'+ExtractFilePath(application.ExeName)+'EsthelDB.sql"',true);
  end;

Donde se manda llamar EjecutarPrograma nada mas es k pongas el comando para ejecutar querys en MySQL, pero creo que esto te puede servir.

Si tienes alguna duda, pues lo comentas y veremos k se puede hacer

Hola amigos,

Tengo un problema amigo m@kio, me sale que no esta declarado el identificador PShellExecuteInfo y todos los demas que no los encuentra, la verdad no se que libreria añadir en el uses lo busque pero no lo encuentro, siempre tengo ese problema con algunos programas de los que no identifica los tipos y no se donde encontar a que librerias corresponden.

No se sobre el api de windows supongo que es de ahi las funciones que utilizas, no entiendo casi nada sobre la funcion EjecutarPrograma, por favor si me pudieras dar una pequeña explicación si no es mucha molestia o decirme donde puedo encontrar información para entender tu programa.

Muchas Gracias de por adelantado

Que tengan buen dia amigos

Amigo Caro debes agregar ShellApi para que reconozca las funciones

Con la ayuda de todos ustedes me funciono de esta manera:

Muchas gracias por su si no entienden el codigo pregunten por favor