Vaciar tablas con un script.

[lbidi]

Estimados estoy haciendo mis primeras armas con FB y Firedac.

Tengo un procedimiento para limpiar las tablas que voy generando ya que voy importando datos desde otra BD.

Mi script para limpiar las tablas es el siguiente.

Código Delphi [-]
    FDScript.SQLScripts.Clear;
    FDScript.SQLScripts.Add.SQL.Add( 'Delete from Articulos;' );
    FDScript.SQLScripts.Add.SQL.Add( 'Delete from Cabezal;' );
    FDScript.SQLScripts.Add.SQL.Add( 'Delete from Proveedores;');
    FDScript.SQLScripts.Add.SQL.Add( 'Delete from Stock;');
    FDScript.ValidateAll;
    FDScript.ExecuteAll;
    FDConnection.Commit;

Antes lo hacia de esta manera por cada tabla y si me borraba los registros.

Código Delphi [-]
    FD_QueryFB.SQL.Text := 'Delete from Articulos';
    FD_QueryFB.ExecSQL;

pero me parecia muy largo el procedimiento dato que voy a tener mas de 50 tablas.

El asunto es que no me borra los registros. De que manera podria ejecutar un script para ir borrando los registros de cada tabla y asi seguir probando la migracion ?

Gracias.

[roman]

A ver, no conozco del tema pero intenta así:

Código Delphi [-]
FDScript.SQLScripts.Clear;

with FDScript.SQLScripts.Add do
begin
  SQL.Add( 'Delete from Articulos;' );
  SQL.Add( 'Delete from Cabezal;' );
  SQL.Add( 'Delete from Proveedores;');
  SQL.Add( 'Delete from Stock;');
end;

FDScript.ValidateAll;
FDScript.ExecuteAll;
FDConnection.Commit;

LineComment Saludos

[lbidi]

Gracias roman por la respuesta, pero no veo la diferencia con el codigo que he posteado. Me parece si no estoy equivocado que solo lo has agrupado en un WITH, pienso bien ???

[roman]

Aparentemente. Pero, al parecer, TFDScript es un componente que almacena varios scripts y cada script puede contener varios comandos. Entonces, cada vez que usas FDScript.SQLScripts.Add, obtienes un nuevo script de manera que, al final, obtienes muchos scripts cada uno con un sólo comando.

Al englobarlo en el with, usas un sólo script convarios comandos.

LineComment Saludos

[[movorack]]

Hola, te recomiendo leas la documentación para que tengas mas claro el funcionamiento de ese componente.

[lbidi]

Gracias a ambos.

Sigo investigando y aprendiendo.

Saludos.

[roman]

Pero, ¿te funcionó o no?

LineComment Saludos

[lbidi]

Perdon por no responder en seguida.

Si , funciono perfectamente, gracias roman !!!

Abrazo