错在哪里?

renrjs 2009-07-17 04:55:59
SimpleDataSet1命名为sdt

var
td: TTransactionDesc;//要uses下DBXPress
p:string;
begin
td.TransactionID:=1;
td.IsolationLevel:=xilREADCOMMITTED;
dm.SQLConnection1.StartTransaction(td);
p:='update renysrk set in_num=:in_num,place=:place,ps=:ps where incard_no=:incard_no';
dm.sdt.Active:=false;
dm.sdt.DataSet.CommandText:=p;
dm.sdt.DataSet.Params.ParamByName('in_num').value := edit6.Text;
dm.sdt.DataSet.Params.parambyname('place').value := edit9.Text;
dm.sdt.DataSet.Params.parambyname('ps').value := edit10.Text;
dm.sdt.DataSet.Params.parambyname('incard_no').value := k;
dm.sdt.Execute;
dm.SQLConnection1.Commit(td);
...
end
报'missing data provider or data packet'错.求高人指点.
...全文
68 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
renrjs 2009-07-20
  • 打赏
  • 举报
回复
[Quote=引用 2 楼 willflyz 的回复:]
dm.sdt这个应该有个属性ProviderName,你设置了没有?
[/Quote]


ProviderName在哪里??,我没找到,请说详细点.
willflyz 2009-07-18
  • 打赏
  • 举报
回复
dm.sdt这个应该有个属性ProviderName,你设置了没有?
genispan 2009-07-17
  • 打赏
  • 举报
回复
我一直用ADO的

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOConnection1.begintrans; //事务开始
try
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('insert biao2(b1,b2,b3) values(''5'',''5'',5)');
adoquery2.ExecSQL;

adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('insert biao1(b1,b3) values(''5'',5)');
adoquery2.ExecSQL;
ADOConnection1.committrans; //事务提交
MessageBox(handle,'chegn','提示信息框',MB_OK);
except
MessageBox(handle,'提示信息框','提示信息框',MB_OK);
ADOConnection1.rollbacktrans; //事务回滚
end;
end;

2,498

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧