Ayuda con Sentencia

[a7c4l]

Buenas tardes, estoy ejecutando el siguiente codigo:

Código Delphi [-]
Sentencia := 'Insert Into "' + RutaSis + 'PresData.DBF" ('+
                     'Nombre, Alta, Domicilio, Colonia, Poblacion, Telefono, Celular, Observa, Cumpleaños, Clase, Grupo, GestPrest, Usuario)'+
                     ' Values ("'+Nombre.Text+'", "'+Alta.Text+'", "'+Domicilio.Text+'", "'+Colonia.Text+'", "'+Poblacion.Text+'", "'+Telefono.Text+'", "'+
                     TelefonoMovil.Text+'", "'+Motivos.Text+'", "'+Cad5+'", "'+Cad+'", "'+Cad2+'", "'+Cad3+'", "'+Cad4+'")'
        F_Utiles.SQLX.Close;
        F_Utiles.SQLX.SQL.Clear;
        F_Utiles.SQLX.SQL.Add(Sentencia);
        F_Utiles.SQLX.ExecSQL;

Y mi problema es con el campo Alta (marcado en rojo) el cual en la tabla es un campo Date, el valor se encuentra en un TDateEdit (de los componentes RX) y me marca error de tipos, como puedo hacer para que me acepte el Insert?. Si quíto el dato de Alta de la sentencia funciona perfectamente. Gracias

[Casimiro Noteví]

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración

Recuerda poner los tags al código fuente, ejemplo:



Y no olvides poner títulos descriptivos a tus preguntas,

Gracias

[a7c4l]

Ok, gracias por el dato, con la urgencia de conseguir ayuda no me tome el tiempo de leer corregimos. Saludos.

[Casimiro Noteví]

Gracias, has sido rápido

Creo que no mencionas la base de datos que usas ni los componentes, de todas formas, puede que con StrToDate funcione.

Código Delphi [-]
StrToDate(Alta.Text)

[Casimiro Noteví]

De todas formas, procura siempre usar parámetros, es más cómodo, claro y funcional.
Algo similar a esto:

Código Delphi [-]
with query do
begin
  close;
  sql.text = 'insert campo1, campo2, campo3 values (:valor1, :valor2, :valor3)';
  parambyname('valor1').asString := edText1.Text;
  parambyname('valor2').asDatetime := edFecha.Date;
  parambyname('valor3').value := edOtro.Text;
  ExecSql;
end;

[a7c4l]

Empezado por Casimiro Notevi

De todas formas, procura siempre usar parámetros, es más cómodo, claro y funcional.
Algo similar a esto:

Código Delphi [-]
with query do
begin
  close;
  sql.text = 'insert campo1, campo2, campo3 values (:valor1, :valor2, :valor3)';
  parambyname('valor1').asString := edText1.Text;
  parambyname('valor2').asDatetime := edFecha.Date;
  parambyname('valor3').value := edOtro.Text;
  ExecSql;
end;

Ok me agrada deja intentar gracias por el dato

[a7c4l]

Empezado por Casimiro Notevi

De todas formas, procura siempre usar parámetros, es más cómodo, claro y funcional.
Algo similar a esto:

Código Delphi [-]
with query do
begin
  close;
  sql.text = 'insert campo1, campo2, campo3 values (:valor1, :valor2, :valor3)';
  parambyname('valor1').asString := edText1.Text;
  parambyname('valor2').asDatetime := edFecha.Date;
  parambyname('valor3').value := edOtro.Text;
  ExecSql;
end;

Excelente!!, funcionó a la perfección, gracias por tu ayuda.