Problemas de nuevo
Epa panas, tengo un problema trabajando con delphi 5, mi proveedor de BD es AS400, tengouna rutina para hacer select grandes, mas de 255 caracteres, tengo que hacerlos fraccionados, el problema es que cuando trato de usar la sentencia SQL de nuevo da un error. si alguien me puede ayudar se lo agradesco, aqui estoy poniendo el codigo y el error :
"Project cadivi_platinium.exe raised exception class EDBEngine error with message 'inknown internal operating system error.'. process stopped. use or run to continue"
y el codigo es el siguiente
if (nu_reg = 25) then
begin
prueba:= TQuery.Create(self);
with prueba do
begin
DatabaseName := 'qwert';
Close;
UnPrepare;
sql.clear;
sql.add('select s.nu_rif, s.nu_cadivi, p.tx_nombre, s.mt_soli,p.tp_pago from soli s, pimp p where s.nu_soli = p.nu_soli and nu_cadivi in ');
sql.add(' (02546025,02596282,02598001,02600040,02617583,02622689,02628792,02629732,02638452,02639729,02647063, 02647222,02648068,02658368,02667740,02699870,02727455,02727591,02740999,02754777,02759470,02794618,0 2798378,02799152,02811602)');
Prepare;
open;
end;
graba_rx;
prueba.sql.CleanupInstance;
prueba.Destroy;
end;
Espero la respuesta de un guru jejejejje
|