请大大帮忙看以下的代码:ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Insert into distributor');
ADOQuery1.SQL.Add('(Distri_num,Boss_name,Distri_company,Address,Phone,Bank_name,Bank_num,Memo)');
ADOQuery1.SQL.Add('Values');
ADOQuery1.SQL.Add('(:Distri_num,:Boss_name,:Distri_company,:Address,:Phone,:Bank_name,:Bank_num,:Memo)');ADOQuery1.Prepared := False;
ADOQuery1.Parameters.ParamByName('Distri_num').value :=Edit1.Text;
ADOQuery1.Parameters.ParamByName('Boss_name').value :=Edit3.Text;
ADOQuery1.Parameters.ParamByName('Distri_company').value := Edit2.Text;
ADOQuery1.Parameters.ParamByName('Address').value := Edit4.Text;
ADOQuery1.Parameters.ParamByName('Phone').value := Edit5.Text;
ADOQuery1.Parameters.ParamByName('Bank_name').value := Edit6.Text;
ADOQuery1.Parameters.ParamByName('Bank_num').value := Edit7.Text;
ADOQuery1.Parameters.ParamByName('Memo').value := Edit8.Text;ADOQuery1.Prepared;
ADOQuery1.ExecSQL;系统执行时,提示如下出错信息:the application has improperly defined a parameter object,
我用单步调试执行下去,发现Edit1.Text等原本赋值的地方都变成了空值,请问大大该代码有什么错误,如何改正?
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Insert into distributor');
ADOQuery1.SQL.Add('(Distri_num,Boss_name,Distri_company,Address,Phone,Bank_name,Bank_num,Memo)');
ADOQuery1.SQL.Add('Values');
ADOQuery1.SQL.Add('(:Distri_num,:Boss_name,:Distri_company,:Address,:Phone,:Bank_name,:Bank_num,:Memo)');ADOQuery1.Prepared := False;
ADOQuery1.Parameters.ParamByName('Distri_num').value :=Edit1.Text;
ADOQuery1.Parameters.ParamByName('Boss_name').value :=Edit3.Text;
ADOQuery1.Parameters.ParamByName('Distri_company').value := Edit2.Text;
ADOQuery1.Parameters.ParamByName('Address').value := Edit4.Text;
ADOQuery1.Parameters.ParamByName('Phone').value := Edit5.Text;
ADOQuery1.Parameters.ParamByName('Bank_name').value := Edit6.Text;
ADOQuery1.Parameters.ParamByName('Bank_num').value := Edit7.Text;
ADOQuery1.Parameters.ParamByName('Memo').value := Edit8.Text;ADOQuery1.Prepared;
ADOQuery1.ExecSQL;系统执行时,提示如下出错信息:the application has improperly defined a parameter object,
我用单步调试执行下去,发现Edit1.Text等原本赋值的地方都变成了空值,请问大大该代码有什么错误,如何改正?
解决方案 »
- qreport
- 怎样实现函数重载?子类中怎样调用基类的重载函数?
- Unit ParamDsg was compiled with a different version of MemTable.TMemoryTable
- 如何在图象上把数字信息找到呢?
- Dephi很不稳定,大家都是怎么做的, 比如在Action Update上写个事件,可就是不跑
- seek函数seek(0,2)什么意思?
- 重载的问题 ,有兴趣进来看看
- 大家帮忙看看为什么错,要怎么去写?(简单问题!)
- 文本狂中的内容和二进制的问题
- 如何用webbrowser打开存在MEMO字段的HTML?
- 请高手指点:如何判断stringgrid当前可见的第一列是哪列或者当前所有可见的列的宽度?
- 私人项目,有意合作请进
要留出空格的
ADOQuery1.SQL.Add('(Distri_num,Boss_name,Distri_company,Address,Phone,Bank_name,Bank_num,[Memo])');
Memo加上[Memo]