Entonces te toca irte a mano:
No tengo en este equipo el ejemplo que queria mostrarte pero de memoria
:
Código Delphi
[-]Var
SQLText : tStringList;
s : String;
i : Integer;
Begin
SQLText := tStringList.create;
While not tabla.eof do
Begin
s := 'Insert Into '+TableName+' (';
for i := 0 to Tabla.fieldcount-1 do
s := s + Tabla.Fields.field[i].FieldName+', ';
SetLength(s,Length(s-2); s := s+') Values (';
for i := 0 to Tabla.fieldcount-1 do
s := s + Tabla.Fields.field[i].AsString+', ';
SetLength(s,Length(s-2); s := s+'); '; SQLText.Add(s);
tabla.Next;
End;
SqlText.SaveToFile('TuArchivoScript.sql');
SQLText.Free;
Te recomiendo que exportes primero tu tabla con IBExpert Y veas el script que se genera para que ajustes este método para que te quede igualito al de IBExpert.