解析delta得到sql语句的函数

文章作者 100test 发表时间 2011:03:17 19:33:55
来源 100Test.Com百考试题网


  {解析出sql语句}

  function TForm1.gensqls(AdoCon:TADOConnection. pdelta: OleVariant. const ptablename, pkeyfields: WideString): WideString.

  var

  i, j: integer.

  s1, s2: string.

  Cmdstr: string.

  FieldList, Keylist: TstringList.

  Cds0update: TClientDataSet.

  sqlstr: WideString.

  ado: TADOQuery.

  begin

  if varisnull(pdelta) then

  Exit.

  Cds0update:=TClientDataSet.Create(nil).

  Cds0update.data:=pdelta.

  if not Cds0update.Active then

  Cds0update.Open.

  try

  FieldList:=TstringList.Create.

  Keylist:=TstringList.Create.

  Keylist.Delimiter:=,.

  Keylist.DelimitedText:=pkeyfields.

  ado:=TADOQuery.Create(nil).

  ado.Connection:=AdoCon.

  ado.sql.Text:=0select * from ptablename where 1=0.

  ado.Open.

  ado.GetFieldNames(FieldList).

  ado.Free.

  for i:=1 to FieldList.Count do

  if Cds0update.FindField(FieldList[i-1])


相关文章


修改计算机名称导致Oracle的em不能用
oracle数据库的CPU_IO信息采集
Oracle提议基于开放标准的云管理API
常用的SQL注射语句解析
解析delta得到sql语句的函数
OracleGoldenGate备份软件
Oracle导出SQL脚本的spool实现
Oracle内部函数调用追踪器
OracleSQL精妙SQL语句讲解
澳大利亚华人论坛
考好网
日本华人论坛
华人移民留学论坛
英国华人论坛