procedure TLandF.change(UserID : string);
var
Query : TQuery;
begin
Query := TQuery.Create(nil);
Query.DatabaseName := DBName;
Query.SQL.Add('update userb set money=:strtofloat(fineedit.text) where UserId = :UserId');
//Query.ParamByName('money').AsFloat:=strtofloat(FineEdit.Text);
Query.ParamByName('UserId').Asstring := userId ;
Query.ExecSQL;
Query.Free;
end;编译没错误运行出错:invalid use of keyword. token:money=?)line numer:1.
要如何改
Query.DatabaseName := DBName;
这一句要不要设罢什么控件,dbname是不是一个路径别名
var
Query : TQuery;
begin
Query := TQuery.Create(nil);
Query.DatabaseName := DBName;
Query.SQL.Add('update userb set money=:strtofloat(fineedit.text) where UserId = :UserId');
//Query.ParamByName('money').AsFloat:=strtofloat(FineEdit.Text);
Query.ParamByName('UserId').Asstring := userId ;
Query.ExecSQL;
Query.Free;
end;编译没错误运行出错:invalid use of keyword. token:money=?)line numer:1.
要如何改
Query.DatabaseName := DBName;
这一句要不要设罢什么控件,dbname是不是一个路径别名
解决方案 »
- 求助 Delphi dbExpress里的SQLConnection连接MSSQL报错(DLL/Shared Library Name not Set)
- 谁有外贸管理系统源码
- 请问高手,如何DBGrid中的文本导到TXT文件和WORD文件?
- 取字符串中最大的数字,以下有问吗?
- 折腾了我三天的问题还未解决。
- 各位高手请问。。。。fastreport的问题?
- Delphi7的序列号谁有,给一份,谢谢
- asta的问题?
- 请教!如何根据姓名的每一个字的第一个字母来查询?
- 急急急!!!如何将网页中的参数传给这个网页中的Active Form 控件?
- 请问我学了一段时间ASP,转学Delphi容易些还是VB容易些?
- 记录复制问题
:strtofloat(fineedit.text)
“:”号不要
用“'”号引起来 Query.SQL.Add('update userb set money='+strtofloat(fineedit.text)+' where UserId = :UserId');
是不是用的paradox?呵呵,记得给我加多点分^_^你写的语句应该是对的
var
Query : TQuery;
begin
Query := TQuery.Create(nil);
Query.DatabaseName := DBName;
Query.SQL.Add('update userb set leftmoney=:m where UserId = :UserId');
Query.ParamByName('m').Asfloat := strtofloat(FineEdit.text) ;
Query.ExecSQL;
Query.Free;
end;
(运行时错误)
这个还是不行
我把表的字段改为:leftmoney还是不行呵
错误光标在Query.free
要怎么改
是不是只改字段就可以了
Query.ParamByName('m').Asfloat := strtofloat(FineEdit.text) ;Query.ParamByName('UserId').Asfloat := 什么?
特别谢谢镇江同志呵
procedure TLandF.change(UserID : string);
var
Query : TQuery;
begin
Query := TQuery.Create(nil);
Query.DatabaseName := DBName;
Query.SQL.Add('update userb set leftmoney=:aa where UserId = :UserId');
Query.ParamByName('aa').AsFloat := strtofloat(FineEdit.Text);
Query.ParamByName('UserId').Asstring := userId ;
Query.ExecSQL;
Query.Free;
end;