首先说明,数据库采用的是Oracle
with ADOQuery1 do
begin
CLose;
SQL.Clear;
SQL.Add('insert into income_manage(id,bill_id,dept,area,leader,income_sort,time)');
SQL.Add('Values(:a,:b,:c,:d,e:,:f,:g)');
Parameters.Items[0].Value :=ID;
Parameters.Items[1].Value :=StrBillID;
Parameters.Items[2].Value :=ComboBox1.Text;
Parameters.Items[3].Value :=ComboBox2.Text;
Parameters.Items[4].Value :=ComboBox8.Text;
Parameters.Items[5].Value :=ComboBox3.Text;
Parameters.Items[6].Value :=DateTimePicker1.Date;
ExecSQL;
end;
其中,在数据表中的数据类型如下:
id: Number;
Bill_id: String;
Dept: String;
Area: String;
Leader: String;
Income_sort:String;
Time: TDateTime;
我觉得这种写法是正确的,但是在编译的时候会出现错误,错误提示如下:
应用程序定义Parameters对象的方式不适当
请大家帮忙看一下,到底错在哪里
with ADOQuery1 do
begin
CLose;
SQL.Clear;
SQL.Add('insert into income_manage(id,bill_id,dept,area,leader,income_sort,time)');
SQL.Add('Values(:a,:b,:c,:d,e:,:f,:g)');
Parameters.Items[0].Value :=ID;
Parameters.Items[1].Value :=StrBillID;
Parameters.Items[2].Value :=ComboBox1.Text;
Parameters.Items[3].Value :=ComboBox2.Text;
Parameters.Items[4].Value :=ComboBox8.Text;
Parameters.Items[5].Value :=ComboBox3.Text;
Parameters.Items[6].Value :=DateTimePicker1.Date;
ExecSQL;
end;
其中,在数据表中的数据类型如下:
id: Number;
Bill_id: String;
Dept: String;
Area: String;
Leader: String;
Income_sort:String;
Time: TDateTime;
我觉得这种写法是正确的,但是在编译的时候会出现错误,错误提示如下:
应用程序定义Parameters对象的方式不适当
请大家帮忙看一下,到底错在哪里
Parameters.Items[6].Value :=FormatDateTime('yyyy-MM-dd',DateTimePicker1.Date);
2、adoquery1.Parameters.ParamValues['a']:=...
...