Quiero correr un archivo .sql pero no logro hacer un create / insert

[joal]

Tengo un sistema que realiza consultas e inicializa una base de datos Firebird, todo ello gracias a que cargo un archivo con comandos sql (.sql) y los voy ejecutando 1 x 1.

Para los selects uso un IBTransaction (inactivo, apunta al IBDatabase), un IBDatabase (activo), un IBQuery (inactivo, apunta al IBDatabase y al IBTransaction) y un DataSource (activo, apunta a IBQuery) para acceder a una base de datos Firebird. Con este no tengo problemas para obtener la información (IBQuery.Active=true).

El problema es cuando quiero hacer un CREATE y posteriormente un INSERT sobre esa tabla.
Si IBTransaction esta inactiva, recibo un error (Transaction is not active) cuando quiero hacer un create (IBQuery.ExecSql) y no llega al INSERT. Si por el contrario, activo la IBTransaction y corro el programa, el error se presenta al hacer el INSERT, indicándome que no existe dicha tabla.

Igualmente probé sustituyendo el IBQuery con un IBSql (.ExecQuery) y tampoco logro ejecutar todos los comandos de mi archivo .sql.

Agradeceré me orienten acerca de que estoy haciendo mal.

gracias

[waltergomez]

Si autocommit es true u on entonces no debrias tener problemas cuando la transaccion esta inactiva.

[joal]

Mejor incluyo el codigo, no vaya a ser que este haciendo una burrada de primaria (se vale montoneo, sirve que aprendo). Tengo un SQL por linea (algunas lineas las tengo como comentario, por lo que no las ejecuto), y siempre esta el CREATE previo al INSERT sobre dicha tabla.

procedure Tfrm_inicializadorDB.bbtn_EjecutarClick(Sender: TObject);
var
  i: integer;
  str_query, str_table: string;
begin
  ibt_IBTransaction.StartTransaction;
  // Corro 1x1 los datos cargados previamente en un memo
  for i:= 0 to mem_Queries.Lines.Count do
    begin
    str_query:= Trim(mem_Queries.Lines.Strings[i]);
    if (Length(str_query) > 5) then
      begin
      if (Pos('CREATE TABLE ',str_query)>0) then
        begin
        // Es creacion de tabla, intento DROP sobre tabla anterior
        // identifico nombre de tabla
        str_table:= str_query;
        Delete(str_table,1,13);
        Delete(str_table,Pos(' ',str_table),Length(str_table));
        // intento hacer un drop
        ibq_IBQuery.SQL.Text:= 'DROP TABLE '+ str_table;
        try
          ibq_IBQuery.ExecSQL;
         finally end;
        // ahora si ejecuto la creacion de la tabla
        ibq_IBQuery.SQL.Text:= str_query;
        ibq_IBQuery.ExecSQL;
        ibt_IBTransaction.Commit;
       end
      else if (Pos('INSERT INTO ',str_query)>0) then
        begin
        // inserto en la tabla recien creada nuevos valores
        ibq_IBQuery.SQL.Text:= str_query;
        ibq_IBQuery.ExecSQL;
        ibt_IBTransaction.Commit;
       end;
      end;
    end; // for
  ibt_IBTransaction.Commit;
  // ibt_IBTransaction.Active:= false;
  ShowMessage('Base de datos inicializada');
  Close;
end;

gracias.

[joal]

Continuando con mi aventura... separe el SQL en tres. Borrado de tablas, creacion de tablas e insert de datos, a seleccionar segun lo que tuviera en un combobox. En el memo mem_Queries guardo los queries a realizar. Con las primeras dos (drops y creates) no hubo problema, el asunto ha sido con los insert.

procedure Tfrm_inicializador.bbtn_EjecutarClick(Sender: TObject);
var
  i: integer;
  str_query: string;
begin
  // Corro 1x1 para verificar si hay accion que tomar
  for i:= 0 to mem_Queries.Lines.Count - 1 do
    begin
    str_query:= Trim(mem_Queries.Lines.Strings[i]);
    ibt_IBTransaction.StartTransaction;
    if (Length(str_query) > 5) then
      begin
      ibq_IBQuery.SQL.Text:= str_query;
      ibq_IBQuery.ExecSQL;
      end;
    ibt_IBTransaction.Commit;
    end;
end;

1) Prob 1. Si declaré un campo de las tablas como NOT NULL PRIMARY KEY, al querer realizar el insert me marca que intento duplicar una llave (esta vacia la tabla).

2) Prob 2. Si no declaro llave alguna y cree ese campo ID como un campo normal, al querer hacer el insert obtengo SQL Parse error: EOF in string detected.

Lo curioso es que si ejecuto las mismas instrucciones mediante la herramienta isql de firebird, no obtengo error, por ende, no lo considero error de sintaxis.

ideas?

[joal]

Pues resulta que aún cuando ejecutaba línea por línea los INSERT (eran aprox 160-180), en uno de los INSERT (como el 35-40) había una comilla adicional, por lo que no lo procesaba correctamente.

Lo que me confundía es que el error lo marcaba en el primer INSERT, aún cuando lo corria paso a paso y me indicaba que estaba corriendo el primer INSERT (según eso aún no llegaba a la línea del error).

No se si realiza internamente un preload de todo y luego ejecuta, o a que se deba eso, pero... por si es de su interés, les dejo por si alguien tiene el mismo problema.

Gracias por su ayuda,