procedure TForm1.Button3Click(Sender: TObject);
var
str1,str2:string;
begin
str1:='XJ4FUPS42-1';
str2:='20130101' ;
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('update 测试时间');
query1.SQL.Add('set 测试时间=20130101');
query1.SQL.Add('where 蓄电池组名称=XJ4FUPS42-1');
query1.ExecSQL;
end;新手求教
数据库字段都是字符型
update set where.....请问我错在哪?
str1,str2变量代入也不行。
var
str1,str2:string;
begin
str1:='XJ4FUPS42-1';
str2:='20130101' ;
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('update 测试时间');
query1.SQL.Add('set 测试时间=20130101');
query1.SQL.Add('where 蓄电池组名称=XJ4FUPS42-1');
query1.ExecSQL;
end;新手求教
数据库字段都是字符型
update set where.....请问我错在哪?
str1,str2变量代入也不行。
解决方案 »
- 请问,access 和delphi自带的数据库 哪个更好。
- 咨询一下,一般软件的中英文界面切换怎么做?
- 送分100分:如何将一个数组转换成字符串。
- 插入记录,说参数ckbSysMng.Checked 没有默认值,是哪里有错?
- 如何在使用TNMHTTP实现网络下载时,设置登陆代理服务器的用户名和密码?
- 真的很急,渴望尽快答复,多谢了!!!!!
- 一个简单的报表打印控制问题?
- 在wise installmaster中,可以让它制作出来的安装程序在安装过程中自动创建一个SQL数据库吗?
- 菜鸟问题:如何将数据库中查询出的数据导入到EXECL?
- 怎么样将Excel中的数据赋给Delphi中的变量
- cxGrid数据录入问题,输入字符显示过滤列表
- 将DBGrid显示数据利用Button按钮导出为Excel档
begin
str1:='XJ4FUPS42-1';
str2:='20130101' ;
with query1 do
begin
close;
sql.Clear;
sql.Add('update 表名 set 测试时间='''+str1+''' where 蓄电池组名称='''+str2+'''');
ExecSQL;
end;
end;
{修改成这样,亲测!}
str1:='XJ4FUPS42-1';
str2:='20130101' ;
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('update 测试时间');
query1.SQL.Add('set 测试时间='+quotedstr(str2));
query1.SQL.Add('where 蓄电池组名称='+quotedstr(str1));
query1.ExecSQL;
end
procedure TForm1.Button3Click(Sender: TObject);
const S_SQL = 'update 测试时间 set 测试时间 = %s where 蓄电池组名称 = %s';
var
str1,str2 : string;
begin
str1:='XJ4FUPS42-1';
str2:='20130101' ;
query1.Close;
try
query1.SQL.text := format(S_SQL, [quotedstr(str1), quotedstr(str2)]);
query1.ExecSQL;
except on e: exception do
showmessage(e.message);
end;
end;
var
str1,str2:string;
begin
str1:='XJ4FUPS42-1';
str2:='20130101' ;
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('update 测试时间');
query1.SQL.Add('set 测试时间=''20130101''');
query1.SQL.Add('where 蓄电池组名称=''XJ4FUPS42-1''');
query1.ExecSQL;
end;
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.Button3Click(Sender: TObject);
const S_SQL = 'update 测试时间 set 测试时间 = %s where 蓄电池组名称 = %s';
var
str1,str2 : string;
begin
str1:='XJ4FUPS42-1';
str2:='20130101' ;
query1.Close;
try
query1.SQL.text := format(S_SQL, [quotedstr(str1), quotedstr(str2)]);
query1.ExecSQL;
except on e: exception do
showmessage(e.message);
end;
end;