FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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 juan.illanes@valenet.com.ar Última edición por Juancho fecha: 18-02-2005 a las 18:16:43. Razón: Agregue codigo fuente de lo que hago. |
#2
|
||||
|
||||
Sería conveniente que pusieras algo de código para ver si alguien te puede ayudar.
Un Saludo.
__________________
Guía de Estilo de los Foros Cita:
|
|
|
|