在sql 数据库中插入日期型数据出错“没有执行可选特性”,什么意思
var
row,i:integer;
begin
with dm_book.jtemp do
begin
close;
sql.Clear;
sql.Add('insert into book_sale(orders_id,book_id,book_code,book_name,sale_quantity,book_price,sale_summoney,card_no,sale_time) ');
sql.Add('values (:orders_id,:book_id,:book_code,:book_name,:sale_quantity,:book_price,:sale_summoney,:card_no,:sale_time)');
//,book_position,adminuser
//,:book_position,:adminuser
parameters.ParamByName('orders_id').Value:=888;
parameters.ParamByName('book_id').Value:=666;
parameters.ParamByName('book_code').Value:=StringGrid1.Cells[0,1];//条形码
parameters.ParamByName('book_name').Value:='sdfsdf';stringgrid1.Cells[1,1];//书名
parameters.ParamByName('sale_quantity').Value:=strtoint(stringgrid1.Cells[6,1]);//'数量
parameters.ParamByName('book_price').Value:=strtofloat(stringgrid1.cells[4,1]);//单价
parameters.ParamByName('sale_summoney').Value:=strtofloat(stringgrid1.Cells[7,1]);//金额
parameters.ParamByName('card_no').Value:=888; //FormatDateTime
parameters.ParamByName('sale_time').Value:=strtodate('2002-2-2');
{parameters.ParamByName('book_position').Value:=stringgrid1.Cells[8,1];//位置
parameters.ParamByName('adminuser').Value:='888';
}prepared;
execsql;
beep;
Button5.Click;
end;
{for row:=1 to stringgrid1.RowCount do
for i:=0 to stringgrid1.ColCount do
begin
end;
}end;