|
共有评论7条
当前显示最后6条评论
|
| uindex |
2007/3/8 20:07:51 |
| 这个问题我也经常遇到,一般从新打开就好了 |
| realgz |
2007/4/10 16:57:06 |
你数据操作的函数 execute sql 感觉比较不好我替你写了一个overload函数
function BExecSQL(SqlStr: string; Params: array of Variant): boolean;overload;
……
function Tsomain.BExecSQL(SqlStr: string;
Params: array of Variant): boolean;
var
i,j:integer;
begin
//返回布尔值的execsql
DBtoken.Enter;
j := length(Params) ;
with adolink do begin
Close;
SQL.Clear;
SQL.Text:=SqlStr;
for i:= 0 to j-1 do
begin
Parameters[i].Value := Params[i];
end;
try
ExecSQL;
result:=true;
except
result:=false;
end;
SQL.Clear;
Close;
end;
DBtoken.Leave;
end;
调用用 ExecSQL('insert into UindexWeb_WebPage(ccontent,curl,PageRank,cTitle,cSuperKey,USiteId,doctype,charset,author,developtool,keywords,discription,HaveImage,HaveMedia,HaveLink,UHaveBadWord) '
+' values(:ccontent,:curl,:PageRank,:cTitle,:cSuperKey,:USiteId,:doctype,:charset,:author,:developtool,:keywords,:discription,:HaveImage,:HaveMedia,:HaveLink,:UHaveBadWord)',
[Clips,DocBaseUrl,UiPageRank,pagetitle,FSuperKey,CurrentSiteID,doctype,charset,author,developtool,keywords,discription,Imgs.Count,Movies.Count,links.Count,FhaveBadWord]
)
估计比你现在用format好点吧，规范的参数化查询会比较舒服啦，希望能加入下一个版本 |
| realgz |
2007/4/10 17:02:55 |
因为最近正好需要写一个网站内容更改监视的东西所以找到你这个东西了。
搜索代码还没来得及看。为了理解你的流程把它改成sqlvserver数据库了，用你原来的 ExecSQL方法有时候会报错，于是写了这个方法替代 居然发现有类似
insert into UindexWeb_FileList(Uurl,USiteId,Fcomment,UParent) values(' ',0,' ',0)
这样没有用处的语句会被执行 |
| uindex |
2007/4/14 20:02:06 |
| 的确是这样,下一版加上. |
| cooli |
2007/5/3 12:14:26 |
| .... |
| woninidaye |
2011/6/1 19:18:30 |
| bucuo |
| 我要发表评论 |
查看全部评论 |
![]() |
|
