Problemas Access + Fechas + ADO
 

Hola a todos estoy con un problema con las fechas que no he podido resolver he probado de todo pero nada.

les cuento tengo el siguiente BD (Access) :

campo : Nombre=fecha --> tipo de Dato --> Fecha/Hora

el codigo es el siguiente :

Código Delphi [-]
  with adoquery1 do begin
      close;
      sql.Clear ;
      sql.Add ('Insert Into paso (fecha)');
      sql.Add ('Values('+QuotedStr(maskedit1.Text)+')');
      execSql ;
      showmessage ('DATOS GRABADOS OK...');
    end;

El problema es que tengo que guardar fecha en "blanco", pero al guardar fecha en blanco me sale el siguiente error :"No coinciden los tipos de datos en la expresion de criterios" :mad:

Habra alguna forma de guardar los datos siempre y cuando el campo se un tipo de dato FECHA.

si alguien tiene algun codigo o algo similar
Saludos

Saludos
Seria bueno que utilizaras las Etiquetas vB en especial para codigos Delphi

No dices si tienes mas campo en la tabla, nada mas fecha, por lo que no enteindo para que tener registros en blanco????
Esto no lo entiendo:confused:

Hola supongo que tu campo fecha recibe valores nulos por eso dices en blanco, entonces podrias hacer lo siguiente:

Código Delphi [-]
if maskedit1.Text=' ' then
   cad_fecha:='NULL'
else
   cad_fecha:=QuotedStr(maskedit1.Text);
 
with adoquery1 do
begin
     close;
     sql.Clear ;
     sql.Add ('Insert Into paso (fecha)');
     sql.Add ('Values('+cadfecha+')');
     execSql ;
     showmessage ('DATOS GRABADOS OK...');
end;

No puede ingresar fechas en blanco en ACCESS
 

Hola Caro mira realize el siguiente codigo a lo mejor se entience un poco mejor
necesito ingresar datos cuando digo fechas en blanco me refiero a fechas con valor='' pero al ingresar estos en access me sale error tengo el siguiente codigo :

procedure TForm1.Button1Click(Sender: TObject);
var
Adate:TdateTime;
begin
Adate:=StrToDate(maskara.Text);
with adoquery1 do begin
close;
sql.Clear ;
sql.Add ('insert into paso (cod,fecha)');
sql.Add ('values ('+QuotedStr(edit1.Text)+','+QuotedStr(maskara.Text)+')');
execSql;
application.MessageBox('DATOS GRABADOS OK...','CONFIRMACION'mb_iconInformation);
edit1.Text :='';
maskara.Text :='';
end;
end;


no entiendo porque sale el error :(, ya que la BD me soporta valores en blanco
porfavor si alguien sabe como poder solucionar este problema se lo agradeceria.

Saludos