Problemas con ADO en win98se (con codigo ahora)
 

Hola amigos, tengo un pequeño problema, he realizado un sistema que lee datos de un archivo de texto y los inserta en un base de datos Access, para luego mostrarlos en un reporte. El tema es que funciona perfecto en mi PC, que tiene win ME y en los win2000, pero no lo hace en win98se. Me dan error los comandos que uso (update y delete). Tengo delphi 5 con todos los upgrade disponibles instalados. Instale el MDAC 2.8 en la PC con win98 y tampoco funcionó. No se me ocurre que puede ser. SI alguien tiene idea como solucionar esto le agradeceria que me lo diga. Muchas gracias.

Aqui esta el Codigo que uso, primero lo hice creando un objeto Tadoquery, y luego usando la componente, de la dos formas funciona bien en win2000 y winME pero no en win98se.

procedure tformmain.ProcesarDetalle(L :String);
var sql,tmp, fp, nr, nl, nc,tar,tit,cou,imp, obs :String;
//tabla: tadoquery;
I:longint;
Code: Integer;
begin
//tabla:=tadoquery.Create(self);
tabla.sql.Clear;
// = Trim(copy(L, 2, 2))
tmp := Trim(copy(L, 4, 8));
val(tmp,i,code);
if code <>0
then begin
fp:='';
nr:='';
nl:='';
nc:='';
tar:='';
imp:=strtodbl(Trim(copy(L, 44, 14)));
if imp='COMISION POR ENVIO LIQ. EN DKT' then imp:='COM. ENV. LIQ. EN DKT';
cou:='';
obs:='';
tit:=Trim(copy(L, 2, 42));
end
else begin
fp:= copy(tmp, 7, 2) + '/' + copy(tmp, 5, 2) + '/' + copy(tmp, 1, 4);
nr := Trim(copy(L, 12, 4));
nl:= Trim(copy(L, 16, 4));
nc:= Trim(copy(L, 20, 8));
tar:= Trim(copy(L, 28, 16));
imp:= strtodbl(Trim(copy(L, 44, 14)));
// !c8 = Trim(copy(L, 58, 2))
cou:= Trim(copy(L, 60, 2))+' / '+ Trim(copy(L, 62, 2));
obs:= Trim(copy(L, 64, 40));
if obs='CUPON LIQUIDADO'
then obs:='C. LIQ.'
else begin
if obs='CUPON NO LIQUIDADO - HABER INSUFICIENTE'
then obs:='C. NO LIQ - H.I.'
end;
tit:=Trim(copy(L, 104, 24));
end;
sql:='INSERT INTO DETALLE (fechapres, nroresumen, nrolote, nrocupon, tarjeta, titular, cuota, importe, observaciones) VALUES ( ';
sql:=sql + '"' + fp + '","'+ nr + '","'+ nl + '","'+ nc + '","'+ tar + '","'+ tit + '","'+ cou + '","'+ imp+ '","'+ obs + '");';
tabla.SQL.Add(sql);
//try
tabla.ExecSQL;
//except
//end;
//tabla.Destroy;
End ;


Mi correo es [email protected]

Sería conveniente que pusieras algo de código para ver si alguien te puede ayudar.

Un Saludo.