Cita:
|
Empezado por Caro
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;
|
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