注册 登陆

delphi 预编译 实例

Delphi代码
  1. function WriteDB(PageUrl,PageDegest,CurrentTime,PageEncode: string;PageRank,PageLength: integer): boolean;   
  2. var Writer: TADOQuery;   
  3. begin  
  4.   Writer:= TADOQuery.Create(nil);   
  5.   try  
  6.   Result:= False;//提示:这和C不同,不会立即返回.   
  7.   Writer.SQL.Clear;   
  8.   Writer.SQL.Add('insert into so211_server(PageUrl,PageDegest,CurrentTime,PageEncode,PageRank,PageLength) values(:para1,:para2,:para3,:para4,:para5,:para6)');   
  9.   Writer.Parameters.ParamByName('para1').Value:=PageUrl;   
  10.   Writer.Parameters.ParamByName('para2').Value:=PageDegest;   
  11.   Writer.Parameters.ParamByName('para3').Value:=CurrentTime;   
  12.   Writer.Parameters.ParamByName('para4').Value:=PageEncode;   
  13.   Writer.Parameters.ParamByName('para5').Value:=PageRank;   
  14.   Writer.Parameters.ParamByName('para6').Value:=PageLength;   
  15.   Writer.ExecSQL;   
  16.   Result:=true;   
  17.   finally  
  18.     Writer.Close;   
  19.     Writer.Free;   
  20.   end;   
  21. end;  

« 上一篇 | 下一篇 »