捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  粤ICP备10103342号-1 DELPHI盒子 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 盒子检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
 
广告
评论：Uindex R4 Beta3
woninidaye 41617 2011/6/1 19:18:30
bucuo
cooli 29258 2007/5/3 12:14:26
....
uindex 28909 2007/4/14 20:02:06
的确是这样,下一版加上.
realgz 28814 2007/4/10 17:02:55
因为最近正好需要写一个网站内容更改监视的东西所以找到你这个东西了。
搜索代码还没来得及看。为了理解你的流程把它改成sqlvserver数据库了，用你原来的 ExecSQL方法有时候会报错，于是写了这个方法替代 居然发现有类似
insert into UindexWeb_FileList(Uurl,USiteId,Fcomment,UParent)  values(' ',0,' ',0)
这样没有用处的语句会被执行
realgz 28813 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好点吧，规范的参数化查询会比较舒服啦，希望能加入下一个版本
uindex 28354 2007/3/8 20:07:51
这个问题我也经常遇到,一般从新打开就好了
sunleon 28351 2007/3/8 11:18:56
请问一下,装好了所有控件,打开dpr时,delphi提示报错,access violation at address01DA6617 in moudle 'vcldesigner70.bpl'.Read of address 00000000,请问这是怎么回事呢?我用的是delphi7,
第一页 上一页 下一页 最后页 有 7 条纪录 共1页 1 - 7
 用户名：
 密　码：
自动登陆(30天有效)
 
  DELPHI盒子版权所有 技术支持:深圳市麟瑞科技有限公司 1999-2024 V4.01 粤ICP备10103342号-1 更新RSS列表