procedure TForm7.Button1Click(Sender: TObject);
var khh:string; begin
with aq do
begin
khh:=edit6.text;
SQL.Clear;
SQL.Add('update kc_user set 用户名=:id,类型=:typ,姓名=:name,密码=:pw,工号=:iid ,');
sql.Add('where 用户名="'+khh+"");
parameters.ParamByName('id').value:=trim(edit1.text);
parameters.ParamByName('typ').value:=trim(edit2.text);
parameters.ParamByName('name').value:=trim(edit3.text);
parameters.ParamByName('pw').value:=trim(edit4.text);
parameters.ParamByName('iid').value:=trim(edit5.text);
execsql;
showmessage('添加成功');
end;
end; end. 运行程序,它显示的错误"illegal character in input file:""(﹩22)"
为什么?应该怎样修改?是否还有其它错误?我是个新手,请教啊,请教啊,各位仁兄..........
var khh:string; begin
with aq do
begin
khh:=edit6.text;
SQL.Clear;
SQL.Add('update kc_user set 用户名=:id,类型=:typ,姓名=:name,密码=:pw,工号=:iid ,');
sql.Add('where 用户名="'+khh+"");
parameters.ParamByName('id').value:=trim(edit1.text);
parameters.ParamByName('typ').value:=trim(edit2.text);
parameters.ParamByName('name').value:=trim(edit3.text);
parameters.ParamByName('pw').value:=trim(edit4.text);
parameters.ParamByName('iid').value:=trim(edit5.text);
execsql;
showmessage('添加成功');
end;
end; end. 运行程序,它显示的错误"illegal character in input file:""(﹩22)"
为什么?应该怎样修改?是否还有其它错误?我是个新手,请教啊,请教啊,各位仁兄..........
解决方案 »
- drawgrid画图之后图像闪动很严重,求指点
- 帮忙推荐个差不多的简单控件
- Delphi里有没有类似C里#define的命令?
- 为什么我的delphi在每次启动时都要添加一便第三方控件,急!!
- 有关PARADOX的建表和改变结构问题(用SQL语句)
- 灌水高手救命
- 哪个兄弟DELPHI6.0的下载地址,急需!
- 如何将listview中的内容打印到报表中???
- dbExpress兼容性问题。
- 有关利用Idhttp登陆上QQ空间并获取数据的问题
- 用ADODATASET。SAVETOFILE后,将文件取出通过网络发送,另一端接收后用ADODATASET.LOADFROMFILE 载入时报错,无效字符,文件中有中文,如何解决
- 请问如何象myie2那种新建一个不激活的子窗口?我新建子窗口,老是自动激活为新窗口。谢谢。
sql.Add('where 用户名="'+khh+"");
不是 有人 给你解答了么怎么还发帖啊