Insert En Mysql

[Yun-i]

saludos a todos los Foristas

Miren estoy poniendo este hilo por que estoy realizando un insert a una base dedatos de mysql desde delphi 6 pero nose por que me manda el error:

el proveedor de datos u otros servicios devolvio e_fail

e ledio en varios lugares y dicen algunos que por el odbc otros que por dejar campos en blanco al insertar otros que por el tipo de dato y la verdad he probado con lo que eh encontrado pero nada espero me puedan ayudar el codigo que mando es el siguinete

Código Delphi [-]
AdoPublica.Open;
AdoPublica.Insert;
AdoPublicaEVT_EVENTO.Value:=ADODATASET1.Fields.FieldByName('ID_COTIZACION').AsInteger;
AdoPublicaEVT_FECHA_INI.Value:=2008-10-10{dtFechaIni.Date};
AdoPublicaEVT_NOMBRE.VALUE:=EdtEvento.Text;
AdoPublicaEVT_FECHA_FIN.Value:=2008-10-10{dtFechaFin.Date};
AdoPublicaDESCRIPCION.value:=RzMemo1.Text;
AdoPublicaCONTACTO_EVE.Value:=EdtContactoE.Text;
AdoPublicaSALONES.Value:=memoSaloCoti.text;
AdoPublicaCONTACTOemp.Value:=EdtContactoemp.Text;
AdoPublica.Post;
AdoPublica.Close;

[[enecumene]]

En los campos de fecha intenta cambiar .Value a .AsDate.

Saludos.

[Yun-i]

Gracias Por responder,

lamentablemente aun poninedo asdatetime en vez de value me sigue marcando el mismo error

[[enecumene]]

Empezado por Yun-i

Gracias Por responder,

lamentablemente aun poninedo asdatetime en vez de value me sigue marcando el mismo error

A ver, Cambia esto:

ADODATASET1.Fields.FieldByName('ID_COTIZACION').AsInteger

por

ADODATASET1.Fields['ID_COTIZACION'].AsInteger

ó

ADODATASET1.FieldByName('ID_COTIZACION').AsInteger

Saludos.

[Yun-i]

Gracias nueva mente

he puesto el cogigo asi:

Código Delphi [-]
AdoPublica.Open;
AdoPublica.Insert;
AdoPublicaEVT_EVENTO.AsInteger:=ADODATASET1.FieldByName('ID_COTIZACION').AsInteger;
AdoPublicaEVT_FECHA_INI.AsDateTime:=dtFechaIni.Date;
AdoPublicaEVT_NOMBRE.AsString:=EdtEvento.Text;
AdoPublicaEVT_FECHA_FIN.AsDatetime:=dtFechaFin.Date;
AdoPublicaDESCRIPCION.Assign(RzMemo1.Lines);
AdoPublicaCONTACTO_EVE.AsString:=EdtContactoE.Text;
AdoPublicaSALONES.Assign(memoSaloCoti.Lines);
AdoPublicaCONTACTOWTC.AsString:=EdtContactowtc.Text;
AdoPublica.Post;
AdoPublica.Close;

y pasa lo mismo pero estube rastreando el codigo y antes me mamandaba el error en esta linea

Código Delphi [-]
AdoPublicaEVT_EVENTO.AsInteger:=ADODATASET1.FieldByName('ID_COTIZACION').AsInteger;

pero ahora es en la ultima en la de:

Código Delphi [-]
AdoPublica.Post;

Me imagino que era parte del problema.

gracias por ayudarme

[[enecumene]]

Bueno, ¿podrías colocar el error completo aquí?

Saludos.