Ver Mensaje Individual
  #4  
Antiguo 26-05-2007
nachoalbano nachoalbano is offline
Miembro
 
Registrado: sep 2006
Posts: 19
Reputación: 0
nachoalbano Va por buen camino
Tarde un poco en postear pero aca les tengo la solución que encontré a mi problema, gracias droguerman por la orientación!

acá les dejo el código
Código Delphi [-]
                AssignFile(script,PathAplicacion+'\bd.sql'); // script es un TextFile
                reset(script);
                crearBD.SQL.Clear;
                while not eof(script) do
                begin
                    readLn(script,lineaScript);
                    if UpperCase(trim(lineaScript))='GO' then
                    begin
                      try
                        crearBD.ExecSQL;
                      Except
                      end;
                      crearBD.SQL.Clear;
                    end
                    else
                      crearBD.SQL.Add(lineaScript);
                end;

adios amigos
Responder Con Cita