|
我下了一段代码如下所示,定义了9个edit控件,想把控件中的内容写到数据表里面,代码如下
procedure TMainForm.BizFormCreate(Sender: TObject);
var
sqlstr:string;
begin
sqlstr:='update XLKSJB set DHHM='''+Trim(edit1.text)+''',SBH='''+trim(edit2.text)+''',PXJ='''+trim(edit5.text)+''',FXXDZ='''+trim(edit6.text)+''',ZQTPXJHJJXLS='''+trim(edit4.text)+''',ZQTPXJHJJXDS='''+trim(edit3.text)+''',DWMC='''+trim(edit7.text)+''', DZ='''+trim(edit9.text)+''',FXXDS='''+trim(edit8.text)+'''where DHHM='''+trim(edit1.text)+'''';
DataSetBroker1.DataSet.close;
Tsqldataset( DataSetBroker1.DataSet).SQL.Clear;
Tsqldataset( DataSetBroker1.DataSet).SQL.Text:=sqlstr;
DataSetBroker1.DataSet.open;
end;
编译没有错误,但是运行时出现错误:数据集取字段失败。
是不是更新语句不应该用open执行?我看delphi书籍是,上面说应该用exectsql语句,但是那是ADOQUERY组件的语法,X3里面好像没有这个组件,我该怎么改谢谢了。 |
|