Insertar datos en una base de datos desde delphi con sql

[angelvazv]

ok, lo vuelvo a poner una disculpa

Código Delphi [-]
zquery1.Close;
zquery1.SQL.Clear; 
zquery1.SQL.Add('INSERT INTO empleado(numemp,nombre,apepat,apemat,direccion,telcasa,telcel,puesto,fechan,edad,fingreso)');
zquery1.SQL.Add('VALUES(+nemp+,'+nom+','+paterno+','+materno+','+direc+','+telca+','+telce+','+pues+  ','+nacim+',+edad+,+hoy+)');
zquery1.ExecSQL;

las variables de tipo entero son nemp, edad y la variable de tipo fecha es hoy

gracias por la atencion

[Casimiro Noteví]

Te recuerdo lo de poner los tags al código fuente, ejemplo:



Gracias

[Casimiro Noteví]

Si te fijas en el código verás que sigue estando mal las comillas, que no has puesto los campos texto y fecha entre comillas, etc.
O sea, que no estás haciendo nada de lo que te he comentado.
Si no ayudas a que te ayuden... pues nada, amigo, tú mismo

[angelvazv]

ok ya hice lo que me comentaron que la variable de tipo entera la pusiera entre apostrofes y pero me marca un error de:

incompatible types:'String' and 'Integer', por tal motivo como se pone la variable correctamente.

Código Delphi [-]
zquery1.Close;
zquery1.SQL.Clear;
zquery1.SQL.Add('INSERT INTO empleado(numemp,nombre,apepat,apemat,direccion,telcasa,puesto,fechan)');
zquery1.SQL.Add('VALUES('+nemp+','+QuotedStr(nom)+','+QuotedStr(paterno)+','+QuotedStr(materno)+','+QuotedStr(direc)+','+QuotedStr(t  elca)+','+QuotedStr(pues)+','+QuotedStr(nacim)+,'+edad+','+hoy+')');
zquery1.ExecSQL;

por favor me podrian decir que pasa todavia, muchas gracias por el apoyo

[ecfisa]

Hola angelvazv.

El error es de conversión, estás intentando asignar un valor de tipo Integer en una variable que puede almacenar el tipo string. Lamentablemente no pusiste la declaración de variables así que voy a tentar la suerte...

Te pongo un código un poco diferente, utilizando parámetros. Que a mi criterio, le otorga seguridad, claridad y simplicidad:

Código Delphi [-]
  with zquery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('INSERT INTO empleado(numemp, nombre, apepat, apemat,');
    SQL.Add('direccion, telcasa, telcel, puesto, fechan, edad, fingreso)');
    SQL.Add('VALUES(:nemp, :nom, :paterno, :materno, :direc, :telca,');
    SQL.Add(':telcel, :pues, :nacim, :edad, :hoy)');
    ParamByName('nemp').AsInteger:= nemp;
    ParamByName('nom').AsString:= nom;
    ParamByName('paterno').AsString:= paterno;
    ParamByName('materno').AsString:= materno;
    ParamByName('direc').AsString:= direc;
    ParamByName('telca').AsString:= telca;
    ParamByName('telcel').AsString:= telcel;
    ParamByName('pues').AsString:= pues;
    ParamByName('nacim').AsString(nacim);
    ParamByName('edad').AsInteger:= edad;
    ParamByName('hoy').AsInteger:= hoy;
    ExecSQL
  end;

Si te fijas, en tres líneas usé AsInteger, sospecho que en esos casos estás asignando un Integer a un TStringField (pero podrían ser más).

Si declaras una variable de tipo Integer como por ejemplo nemp (creo que es integer), no podés asignarla a un campo de tipo TStringField sin hacer antes las conversiones necesarias.
Sin el uso de parámetros tendrías que hacer algo parecido a:

Código Delphi [-]
  zquery1.Close;
  zquery1.SQL.Clear;
  zquery1.SQL.Add('INSERT INTO empleado(numemp,nombre,apepat,apemat,direccion,telcasa,telcel,puesto,fechan,edad)');
  zquery1.SQL.Add('VALUES(' + QuotedStr(IntToStr(nemp)) + ',' + QuotedStr(nom) + ',' + QuotedStr(paterno) + ',' +
    QuotedStr(materno) + ',' + QuotedStr(direc) + ',' + QuotedStr(telca) + ',' + QuotedStr(telcel)+ ',' +
    QuotedStr(pues) + ',' + QuotedStr(nacim)  + ',' + QuotedStr(IntToStr(edad)) + ',' + QuotedStr(IntToStr(hoy)) + ')');
  zquery1.ExecSQL;

¨
Encerrando entre comillas y convirtiendo a cadena mediante la función correspondiente, a cada variable de tipo entera o flotante que utilices.

Como verás, es un código mucho más complejo, difícil de leer y propenso a errores.

Saludos.

[angelvazv]

Excelente muhisimas gracias ahora una pregunta mas como se pone para las variable tipos fecha por que la variable hoy es de este tipo, asi como esta no me marcar error al ejecutar el programa pero cuando presiono para cuardarlo en la base es donde marca el error de las variable.

ParamByName('hoy').AsDate:= hoy;

y muchas gracias por la ayuda.

[angelvazv]

esa parte ya esta muchisimas gracias a todos lo que me ayudaron, este foro es lo maximo.

y nuevamente muchisimas gracias.