//第一步 插入N〉10条数据后 ,执行第三步时 提示我 键列信息不足或不正确 更新影响过多行
//该如何修改呢????
procedure TForm1.Button3Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Insert into Card(ID,Name,IFuse) Values(''000003'',''Wang'',''0'')');
ADOQuery1.ExecSQL;
end;
//第二步
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select Top 10 * from Card');
ADOQuery1.Open;end;
//第三步
procedure TForm1.Button2Click(Sender: TObject);
begin
ADOQuery1.Edit;
While Not ADOQuery1.Eof do
begin
ADOQuery1.Fieldbyname('IFUse').Value:='2';
ADOQuery1.Next;
end;
end;
//该如何修改呢????
procedure TForm1.Button3Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Insert into Card(ID,Name,IFuse) Values(''000003'',''Wang'',''0'')');
ADOQuery1.ExecSQL;
end;
//第二步
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select Top 10 * from Card');
ADOQuery1.Open;end;
//第三步
procedure TForm1.Button2Click(Sender: TObject);
begin
ADOQuery1.Edit;
While Not ADOQuery1.Eof do
begin
ADOQuery1.Fieldbyname('IFUse').Value:='2';
ADOQuery1.Next;
end;
end;
解决方案 »
- 如何保证程序启动前数据库已经启动
- fastreport简单问题,急,各位高手请进,解决马上给分!!!!
- 请高手帮我把下列VB代码转为Delphi,很急,谢谢
- 为何在繁体操作系统中我的程序窗体、按钮等会变大?
- 用ActiveX可以实现把Word的强大的文字功能集成到IE中吗? 若有实例,愿给1000分赠送!
- 编译出的程序总是太大了
- UpdateSQL 到底有什么用? 哪位高手说两句!!
- 高分请教一个简单的问题>>>>>>>
- 各位大虾小虾,我是p-mail作者,这个软件说实话做得不好,但真的需要您(尤其是已经下载的)真诚的建议!!!
- OP中有static变量吗,还有怎么接收命令行参数?
- 關于數據執行速度的問題(對不起﹐就這么點分了)
- 请用过IDFTP的高手看过来啊见人有分啊
id name ifuse
--------------------
0001 张三 1
0001 张三 1
0001 张三 1
0001 张三 1这样的话,如果更新应该会出现楼主所说的问题