ayuda por favor!!!
 

hola gente del foro, mi problema es el siguiente tengo un formulario donde doy de altas a socios osea guardo los datos en una base de datos q esta en Mysql y en el formulario tengo un campo donde se encuentra la fecha de ingreso q es de tipo date donde uso un TdateTimePicker pero cuando lo voy a registrar me sale el siguiente error:

debugger exception notificacion: proyect principal.exe raised exception class edbengine error with message 'operation no aplicable.'. process stoped use step or run to continue

el error creo q esta en la fecha xq la base de datos no admite el formato de la fecha de delphi o algo por el estilo je asi q por ahora toy usando una variable de tipo string para q me admita el campo de fechas y seguir con la alta de socios

la fecha de ingreso q esta en mi bd es de tipo date; como podria hacer cuando de de alta a un socio ingrese la fecha y se guarde en mi base de datos.

Código delphi [-]Código SQL [-]procedure talta_socios.preparo_altas_socios;
begin dm.consulta.Close; dm.consulta.SQL.Clear; dm.consulta.SQL.Add('insert into socios values(:id_socio,:ingreso,:nombre,:nacimiento,:dni,:domicilio,:telefono,:movil,:mail,:estado,: peso,:cuota,: observaciones)');
dm.consulta.ParamByName('id_socio').AsInteger:= strtoint(ed_id.Text);
dm.consulta.ParamByName('ingreso').AsDate:=fechaing.Date; dm.consulta.ParamByName('nombre').AsString:=ed_nombre.Text;
dm.consulta.ParamByName('nacimiento').Asstring:='2008/05/29';//lo q toy usando para q me admita en la base de datos
dm.consulta.ParamByName('dni').AsInteger:=strtoint(ed_dni.Text);
dm.consulta.ParamByName('domicilio').AsString:=ed_domicilio.Text;
dm.consulta.ParamByName('telefono').AsInteger:=strtoint(ed_telefono.Text);
dm.consulta.ParamByName('movil').AsInteger:=strtoint(ed_movil.Text);
dm.consulta.ParamByName('mail').AsString:=ed_mail.Text;
dm.consulta.ParamByName('estado').AsString:=ed_estado.Text;
dm.consulta.ParamByName('peso').AsString:=ed_peso.Text;
dm.consulta.ParamByName('cuota').AsFloat:=strtofloat(ed_cuota.Text);
dm.consulta.ParamByName('observaciones').AsString:=ed_observaciones.Text;
end;

prueba con

Código Delphi [-]
dm.consulta.ParamByName('ingreso').AsDateTime:=fechaing.Date;
dm.consulta.ParamByName('nacimiento').AsDateTime:=strtodate('2008/05/29');

continua el poblema
 

hola CrazySoft probe con lo q me diste pero el problema es el mismo me da el mismo error: operacion no aplicable.

Continua el problema
 

creo q se deberia hacer un cambio de posocion con la fecha por ej en el TDateTimePicker el formato de fecha es (dd/mm/yyyy) y lo q se tendria q hacer es (yyyy/mm/dd) para q se agrege en la bd de mysql por q creo q mysql la fecha esta en formato de estado unidos algo por el estilo pero no se como hacerlo

Hola, yo creo que lo que le hace falta es indicarle los campos que se van a insertar.....

Código SQL [-]

INSERT INTO socios(id_socio, ingreso, nombre, nacimiento, dni, domicilio, telefono, movil, mail, estado, peso, cuota, observaciones)
VALUES(:id_socio, :ingreso, :nombre, :nacimiento, :dni, :domicilio, :telefono, :movil, :mail, :estado, :peso, :cuota, :observaciones)

Salud OS

Buenas.

Lo que tienes que hacer es cambiar el formato de la fecha a la americana, intenta declarar el tipo de formato de fecha a tipo americano y luego a convertir la fecha. A parte, intenta ingresar el campo de fecha como una cadena y no como tipo AsDate, ya que así te ahorrarás muchos problemas.:

Código Delphi [-]
 ShortDateFormat:='yyyy/mm/dd';

 dm.consulta.ParamByName('ingreso').AsString:=DateToStr(fechaing.DateTime);

A parte, como dice [egostar], te falta de poner la definición de los campos de la tabla. Yo mejor pondría toda la sintaxis en el comando de SQL y olvidarse del "ParamByName" :D

voy a implementar sus consejos
 

Hola muchachos bueno ahora mismo voy a probar lo que me aconsejaron si no funciona les comento y si funciona tmb les voy a decir :)

problema
 

Bueno muchachos como soy novato no entiendo cuando me dicen q declare esto shortdateformat:='yyyy/mm/dd'; en donde lo hago?
ese es mi codigo entero para la parte de alta de socios por otra parte todo anda ala perfeccion el uncio problema como les digo es la fecha

Pues el shortdateformat es una variable del sistema que puedes modificar para cambiar el formato de la fecha (para todos los tipos Tdatetime). Usando esta cadena haces que la fecha sea mostrada en año/mes/día (la fecha americana). Probablemente tu sistema tiene por defecto la fecha de tu país día/mes/año (Delphi utiliza por defecto la de windows).

Por este código antes de poner la fecha y si luego quieres utilizar la tuya, puedes restaurarla a la original de esta forma:

Código Delphi [-]
shortdateformat:='yyyy/mm/dd';
dm.consulta.ParamByName('ingreso').AsString:=DateToStr(fechaing.Date);
shortdateformat:='dd/mm/yyyy';

Hola calistian, sin la definición de los campos debería funcionar, claro que si quieres lo pones, yo lo hago de esta forma para mysql y me funciona.

Código Delphi [-]
  dm.consulta.ParamByName('ingreso').AsDate:=fechaing.Date;
  //o
  dm.consulta.ParamByName('ingreso').AsString:=FormatDateTime('mm/dd/yyyy', fechaing.Date);
  //o el formato que tu le estas dando que también funciona de esa manera
 dm.consulta.ParamByName('ingreso').AsString:=FormatDateTime('yyyy/mm/dd', fechaing.Date);

Saluditos

La verdad es que cada cual lo hace como quiere por eso me gusta la computación siempre hay muchas variantes el problema es encontrar la mas optimas, en mi caso para la entrada de fechas siempre uso los TDateTimePicker y le dejo a delphi como pase los parametros
ejemplo:

Código Delphi [-]
 dmRave.pPIRevUH.Parameters.ParamByName('@fecha').Value := TDateTimePicker1.Date

y en caso que tenga que usarlo en cadena uso el formato añomesdia

Código Delphi [-]
 dmRave.pPIRevUH.Parameters.ParamByName('@fecha').Value := '20080610';

Problema solucionado
 

hola gente buena ya pude solucionar mi problema y aclarar todas mis dudas gracias a ustedes aplique la idea de matabyte, la de caro ,y probe en otro proyecto la de santi33a y si me funcionaron desde ya muchas gracias, si tengo otra duda voy a pasar por aqui !!

saludos, garcias :D