【结帖】query 更新数据库问题,求助贾工!!

lity

一点按钮出现错误提示

jiahaiminghr

楼主，执行的是Update语句，所以不要用Close、Open，直接用query1.Execute方法即可

lity

缺陷挺多的,麻烦帮忙修改下,上网找了好久，都没找到合适的,帮帮忙拉!

jiahaiminghr

Close;
          query1.CommandText:='update sjb1 set ps=ps+1 where xm = ''name''';
          open;
改成
query1.CommandText:='update sjb1 set ps=ps+1 where xm = ''name''';
query1.Execute

lity

数据库里面的票数并没有变化啊,票数字段设置的自动填充,值是0.
点一下按钮想提示个对话框,用showmessage提示,可是却说其未定义

jiahaiminghr

数据库里的票数没有变化：与你的更新sql有关，你可以先在数据库提供的工具中调试一下Update语句

调用showMessage：
Business.Forms.Dialogs.ShowMessage()

lity

用radiogroup,query1.CommandText:='update sjb1 set ps=ps+1 where xm = ''name''';
query1.Execute
更新的语句'update sjb1 set ps=ps+1 where....,where 条件句子选择的是radiogroup中选择的,请问where这句该怎么写???谢谢拉

jiahaiminghr

这个需要根据你的表结构及存储内容来决定。
你的语法应该没有问题，关键是看实际执行时，name和你数据库存储的记录能否匹配。

可以设置断点跟踪一下，或者直接用sqlserver的事件探查器看一下实际执行的update语句

lity

procedure TTPBD.Button1Click(Sender: TObject);
var
  name:string;
  i:integer;

begin
  //  datasetbroker1.DataSet.recno:= radiogroup1.ItemIndex;
   for i:=0 to RadioGroup1.Items.Count-1 do
    begin
////////////////
      name:=datasetbroker1.DataSet.FieldByName('MZ').AsString;///////name需要付值为radioGroup中选择的名字,请问下这句应该怎么改?????
//////////////////

      if name <>'' then
      begin
        query1 := TQuery.Create(nil);
         with Query1 do
          begin
             Close;
             CommandText:='update TPSJB set ps=ps+1 where id = ''name''';
             Execute;
         end;
      end;
      query1.free;
end;
   Business.Forms.Dialogs.ShowMessage('投票成功!');
   button1.Enabled :=false;
end;

谢谢

jiahaiminghr

Name := RadioGroup1.Items[RadioGroup1.ItemIndex]