into Test(number,name)'); Sql.Add('values(:no,:times)'); name 和 times根本对不上
抱歉,那边写错了,该为: with query1 do begin close; Sql.Clear; Sql.Add('insert into Test(number,times)'); Sql.Add('values(:no,:times)'); ParamByName('no').AsString:='1'; ParamByName('times').Clear; ExecSql; end; times域为Datetime类型
将times字段设置成可以为空 试试!
试一下 procedure TForm1.Button1Click(Sender: TObject); begin with query1 do begin close; Sql.Clear; Sql.Add('insert into Test(number,times)'); Sql.Add('values(:no,:times)'); ParamByName('no').AsString:='1'; ParamByName('times').DataType := ftDateTime; ParamByName('times').Value :=null; ExecSql; end;end;
我原来也想用ParamByName('times').AsString := '' ,可出错
Sql.Add('values(:no,:times)');
name 和 times根本对不上
with query1 do
begin
close;
Sql.Clear;
Sql.Add('insert into Test(number,times)');
Sql.Add('values(:no,:times)');
ParamByName('no').AsString:='1';
ParamByName('times').Clear;
ExecSql;
end;
times域为Datetime类型
试试!
procedure TForm1.Button1Click(Sender: TObject);
begin
with query1 do
begin
close;
Sql.Clear;
Sql.Add('insert into Test(number,times)');
Sql.Add('values(:no,:times)');
ParamByName('no').AsString:='1';
ParamByName('times').DataType := ftDateTime;
ParamByName('times').Value :=null;
ExecSql;
end;end;