急问使用TADOQuery控件插入记录的一个问题

[idsel]

这个问题困扰了我一天，大家帮看看吧，THX
代码如下：
ADOQuery1->Close();
ADOQuery1->Insert();
ADOQuery1->SQL->Clear();
AnsiString Sql=" Values(:chargeid,:caseid, :clientid, :chargedate, :amount, :cost, :currency, :ratio, :status, :memo)";
ADOQuery1->SQL->Add("Insert into t_charge(ch_charge_id,ch_case_id,ch_client_id,ch_charge_date,ch_amount,ch_cost_amt,ch_currency,ch_convert_ratio,ch_status,ch_memo)");
ADOQuery1->SQL->Add(Sql);
ADOQuery1->Parameters->ParamByName("caseid")->Value=Edit2->Text;
ADOQuery1->Parameters->ParamByName("chargeid")->Value=Edit1->Text;
ADOQuery1->Parameters->ParamByName("clientid")->Value=chazhaoanjian->Clientid;
ADOQuery1->Parameters->ParamByName("chargedate")->Value=DateTimePicker1->DateTime;
ADOQuery1->Parameters->ParamByName("amount")->Value=amount;
ADOQuery1->Parameters->ParamByName("cost")->Value=cost;
ADOQuery1->Parameters->ParamByName("currency")->Value=Currencys->Strings[ComboBox3->ItemIndex];
ADOQuery1->Parameters->ParamByName("ratio")->Value=CurrentRatio;
ADOQuery1->Parameters->ParamByName("status")->Value=CuStatus->Strings[ComboBox3->ItemIndex];
ADOQuery1->Parameters->ParamByName("memo")->Value=Edit6->Text;
ADOQuery1->Open(); 用ADOQuery1->ExecSQL()函数一样出错
//ADOQuery1->ExecSQL();
//ADOQuery1->Insert();
ADOQuery1->Post(); // 单步调试的时候问题出在这里

错误信息为：'ADOQuery1:Cannot perform this operation on a closed dataset'

[waeghtmark525]

ADOQuery1->Close();
ADOQuery1->Insert();
ADOquery1都close了,当然不能insert了!

[idsel]

那老兄你把代码改改看看怎么样才可以那？谢谢了

[idsel]

能不能给段示范代码给我看看？谢谢：）

[xiaokange]

改为这样试试：
ADOQuery1->Close();
//ADOQuery1->Insert();
ADOQuery1->SQL->Clear();
// AnsiString Sql="";
ADOQuery1->SQL->Add("Insert into t_charge(ch_charge_id,ch_case_id,ch_client_id,ch_charge_date,ch_amount,ch_cost_amt,ch_currency,ch_convert_ratio,ch_status,ch_memo) Values(:chargeid,:caseid, :clientid, :chargedate, :amount, :cost, :currency, :ratio, :status, :memo)");
// ADOQuery1->SQL->Add(Sql);
ADOQuery1->Parameters->ParamByName("caseid")->Value=Edit2->Text;
ADOQuery1->Parameters->ParamByName("chargeid")->Value=Edit1->Text;
ADOQuery1->Parameters->ParamByName("clientid")->Value=chazhaoanjian->Clientid;
ADOQuery1->Parameters->ParamByName("chargedate")->Value=DateTimePicker1->DateTime;
ADOQuery1->Parameters->ParamByName("amount")->Value=amount;
ADOQuery1->Parameters->ParamByName("cost")->Value=cost;
ADOQuery1->Parameters->ParamByName("currency")->Value=Currencys->Strings[ComboBox3->ItemIndex];
ADOQuery1->Parameters->ParamByName("ratio")->Value=CurrentRatio;
ADOQuery1->Parameters->ParamByName("status")->Value=CuStatus->Strings[ComboBox3->ItemIndex];
ADOQuery1->Parameters->ParamByName("memo")->Value=Edit6->Text;
ADOQuery1->ExecSQL(); 用ADOQuery1->ExecSQL()函数一样出错
//ADOQuery1->ExecSQL();
//ADOQuery1->Insert();
// ADOQuery1->Post(); // 单步调试的时候问题出在这里

[CACACACACA]

改为这样试试：
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("Insert into t_charge(ch_charge_id,ch_case_id,ch_client_id,ch_charge_date,ch_amount,ch_cost_amt,ch_currency,ch_convert_ratio,ch_status,ch_memo) Values(:chargeid,:caseid, :clientid, :chargedate, :amount, :cost, :currency, :ratio, :status, :memo)");
Adoquery->Active=true;//这句不能少
ADOQuery1->Parameters->ParamByName("caseid")->Value=Edit2->Text;
ADOQuery1->Parameters->ParamByName("chargeid")->Value=Edit1->Text;
ADOQuery1->Parameters->ParamByName("clientid")->Value=chazhaoanjian->Clientid;
ADOQuery1->Parameters->ParamByName("chargedate")->Value=DateTimePicker1->DateTime;
ADOQuery1->Parameters->ParamByName("amount")->Value=amount;
ADOQuery1->Parameters->ParamByName("cost")->Value=cost;
ADOQuery1->Parameters->ParamByName("currency")->Value=Currencys->Strings[ComboBox3->ItemIndex];
ADOQuery1->Parameters->ParamByName("ratio")->Value=CurrentRatio;
ADOQuery1->Parameters->ParamByName("status")->Value=CuStatus->Strings[ComboBox3->ItemIndex];
ADOQuery1->Parameters->ParamByName("memo")->Value=Edit6->Text;
ADOQuery1->Post(); 这提交就可以了吧