Insertar valores...Error

[ContraVeneno]

Tu estas utilizando esta forma:

Código Delphi [-]
With UnADOQuery do begin
 If active then close;
 SQL.Clear;
 SQL.Add('Insert Into Tabla(UnCampo, OtroCampoFecha, CampoBoolean)');
 SQL.Add('Values('+QuotedStr(UnEdit.Text)+', '+DateToStr(UnaFecha.Date)+', '+BoolToStr(UnCheckBox.Checked)+')');
 ExecSQL;
end; //with

Lo que estas haciendo ahí, es cambiar el valor de la fecha a un valor de tipo cadena (String) con el formato que tengas establecido. Lo mismo se aplica para cualquier otro tipo de datos, ya sea boolean, float, currency, integer, etc. Todo lo tendrías que convertir a cadena.

El problema con cambiar todo a cadena de texto, es que tendrías que lidiar con los formatos. Por ejemplo, para las fechas, tendrías que definir si va a ser con formato yyyymmdd, o yyyy/dd/mm o dd/mm/yyyy. Para los tipos moneda, tendrías que ver si el formato esta definiendo los puntos como separador de miles, o si son las comas los separadores de miles, si es con signo o sin signo. En fin, en pocas palabras, tendrías que cuidar por medio de programación, el formato adecuado para cada tipo de dato. Y cada base de datos utiliza un formato distinto.

Si utilizas parámetros, no tienes que preocuparte por eso y no tendrías que validar formatos, ni cambiar formatos, ni codificar nada para esto. Aquí un ejemplo:

Código Delphi [-]
With UnADOQuery do begin
 If active then close;
 SQL.Clear;
 SQL.Add('Insert Into Tabla(UnCampo, OtroCampoFecha, CampoBoolean)');
 SQL.Add('Values(:UnCampo, :UnaFecha, :UnBoolean)');
 Parameters.ParamByName('UnCampo').Value := UnEdit.Text;
 Parameters.ParamByName('UnaFecha').Value := UnaFecha.Date;
 Parameters.ParamByName('UnBoolean').Value := unCheckBox.Checked;
 ExecSQL;
end; //with

En este pequeño ejemplo, si te fijas, no estoy haciendo ninguna conversión con la fecha y sistema seleccionará automáticamente el formato adecuando para guardarlo en la base de datos. Y lo mismo aplica para todos los tipos de datos, el sistema elegirá el formato correcto.

Ejemplo utilizando BDE en lugar de ADO:

Código Delphi [-]
 With UnBDEQuery do begin
  If active then close;
  SQL.Clear;
  SQL.Add('Insert Into Tabla(UnCampo, OtroCampoFecha, UnCampoBoolean)');
  SQL.Add('Values(:UnCampo, :UnaFecha, :UnBoolean)');
  ParamByName('UnCampo').AsString := UnEdit.Text;
  ParamByName('UnaFecha').AsDateTime := UnaFecha.Date;
  ParamByName('UnBoolean').AsBoolean := unCheckBox.Checked;
  ExecSQL;
 end; //with

Espero haberme explicado correctamente y haber dejado claro cuál es la ventaja de utilizar parámetros.
Saludos.