TSTRINGGRIP + UPDATE SQL 问题

szeyin 2012-09-04 09:35:22

EXCEL檔有2栏 : keyno, partno
sql table tpadea 主要有 2栏 : dea001 及 dea004

载入excel檔到 Tstringgrid1(已弄好), 每一行与tpadea 比較, 如找到相同的key(dea001); 就更新tpadea的partno(DEA004) 为 tstringgrip的partno. (StringGrid1.Cells[7, r])

以下方法失敗, 请问应该怎样更正? 谢谢.

procedure TForm1.Button1Click(Sender: TObject);
var
r: Integer;
begin
For r := 1 to StringGrid1.RowCount - 1 do
with ADOQuery1 do
begin
Active := false;
SQL.Clear;
SQL.Add('UPDATE TPADEA');
SQL.Add('SET DEA004 = StringGrid1.Cells[7, r] WHERE DEA001=StringGrid1.Cells[5, r]');
ExecSQL
end;
ADOQuery1.Refresh;
end;
end.

...全文

78 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

szeyin 2012-09-04

打赏
举报

[Quote=引用 1 楼的回复:]

Delphi(Pascal) code
SQL.Add('SET DEA004 = '+Quotedstr(StringGrid1.Cells[7, r])+' WHERE DEA001='+Quotedstr(StringGrid1.Cells[5, r]));
[/Quote]

....Cannot perform this operation on a closed dataset..process stopped.

szeyin 2012-09-04

打赏
举报

[Quote=引用 5 楼的回复:]

1楼就是正确答案了...前提是你的字段类型都是字符串.
[/Quote]

1 DRAG BUTTON ASS'Y 大鈕裝配 –913645–F 6WD055010 OPUS 4500BRi -913645-F
2 SPOOL ASS'Y 線轆裝配 –400918–F 6WD056010 OPUS 4500BRi -400918-F
3
4
5
.
.
.

全是字串

szeyin 2012-09-04

打赏
举报

[Quote=引用 1 楼的回复:]

Delphi(Pascal) code
SQL.Add('SET DEA004 = '+Quotedstr(StringGrid1.Cells[7, r])+' WHERE DEA001='+Quotedstr(StringGrid1.Cells[5, r]));
[/Quote]

无更新

robotdeng 2012-09-04

打赏
举报

用Showmessage(SQL.text); 查看你的SQL命令是否正确.

robotdeng 2012-09-04

打赏
举报

1楼就是正确答案了...前提是你的字段类型都是字符串.

szeyin 2012-09-04

打赏
举报

[Quote=引用 1 楼的回复:]

Delphi(Pascal) code
SQL.Add('SET DEA004 = '+Quotedstr(StringGrid1.Cells[7, r])+' WHERE DEA001='+Quotedstr(StringGrid1.Cells[5, r]));
[/Quote]

仍然是石沉大海.

haitao 2012-09-04

打赏
举报

[Quote=引用 2 楼的回复:]
Delphi(Pascal) code
如果DEA001字段类型是整数
SQL.Add('SET DEA004 = StringGrid1.Cells[7, r] WHERE DEA001='+StringGrid1.Cells[5, r]);

如果DEA001字段类型是字符串
SQL.Add('SET DEA004 = StringGrid1.Cells[7, r] WHERE DE……
[/Quote]

哦，set DEA004=后的内容也要类似处理

haitao 2012-09-04

打赏
举报

如果DEA001字段类型是整数

SQL.Add('SET DEA004 = StringGrid1.Cells[7, r] WHERE DEA001='+StringGrid1.Cells[5, r]);



如果DEA001字段类型是字符串

SQL.Add('SET DEA004 = StringGrid1.Cells[7, r] WHERE DEA001='+quotedstr(StringGrid1.Cells[5, r]));

kaikai_kk 2012-09-04

打赏
举报

SQL.Add('SET DEA004 = '+Quotedstr(StringGrid1.Cells[7, r])+' WHERE DEA001='+Quotedstr(StringGrid1.Cells[5, r]));

zencart批量更新后台邮箱地址sqlzencart批量更新后台邮箱地址sql UPDATE `configuration` SET `configuration_value` = '新邮箱地址' WHERE `configuration ...MySql update inner join！MySql跨表更新多表update sql语句？如何将select出来的部分数据update到另一个表...

执行一般的sql更新语句为update table_name set column_name=value where column_name1=value1;但是我们有时候需要将某个表用的字段根据两个表中相关字段更新为另一个表中某个字段的数据，即a表中主键aid在b表中有个外键bid相关，b表中字段b需要根据a、b表对应id更新为a表中字段c的数据，如果根据以上的sql一条一条的更...

Sql Server Update## UPDATE 单表单字段UPDATE 单表多字段UPDATE 多表 ## UPDATE 单表单字段基础语法：UPDATE 表名称 SET 列名称 = 新值 WHERE 列名称 = 某值示例：UPDATE Person SET FirstName = 'Fred' WHERE LastName = 'Wilson' UPDATE 单表多字段基本语法：...

批量修改 SQL update

sql语句update In this article, we’ll walk-through the SQL update statementto modify one or more existing rows in the table. 在本文中，我们将逐步介绍SQL更新语句，以修改表中的一个或多个现有行。 In order to modify data in a ...

数据库相关

2,498

社区成员

88,446

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章