DELPHI中使用UNIDAC连接ORACLE数据库

DELPHI中使用UNIDAC连接ORACLE数据库

 

 

最近在DELPHI中使用到UNIDAC连接到oracle数据库，这样可以不要安装oracle客户端，比较方便使用；所以简单学习了一下，主要是用到查询和执行存储过程，其中存储过程我测试了没有返回参数、有返回参数、有多高返回参数、有返回游标等存储过程，没有深入研究，以下就简单的查询和执行存储过程按步骤说一下：

1，执行查询语句：

      a)新建一个ORACLECONNECTION。如图所示：

b)双击ORACLECONNECTION,出现下图，按图填写连接ORACLE的相关参数，点击CONNECT就可以连接了。

 

c)添加一个Tuniquery,编写SQL语句，点击EXECUTE按钮,点击DATA EDITOR...按钮可以获取记录；

d)新建一个TcLIENTDATASET,新建一个TdataSetProider,把新建的TClientDataSet的providernae属性设置为新建的Tdatasetprovider，把新建的tdatasetprovider的dataset属性设置为刚才建好的TUniqry就可以了；

e)使用代码如下：



// IsLIPattern := FData.IsLIPattern;

  with  UniQryGetAT do//新建的TUNIQUERY

   begin



    // 获取配置的AT500DID

    Close;//关闭

    SQL.Text :=//sql语句

      'SELECT B.AT_ID, B.AT_IP, C.LINE_NAME, B.AT_POLLING, C.LINE_STAGE ' +

      'FROM BD_PC_AT A, BD_AT_INFO B, BD_LINE C ' +

      'WHERE UPPER(A.TGS_PC_NAME) = UPPER(''' +

      Impack.Net.IPAddress.LocalHostName + ''') AND B.LINE_NO = C.LINE_NO  ' +

      ' AND A.AT_ID = B.AT_ID ORDER BY B.AT_ID  ';

    OutputDebugString(PChar(SQL.Text));

    Open;//打开



    // GwCount := RecordCount;

    // if GwCount = 0 then Exit;

    // 设置二维数组

    SetLength(Ary_Gateway, 5, 7);

    i := 0;

    j := 0;



    // 写入IPINDEX文件

    with TStringList.Create do

    begin

      while not Eof do

      begin

        Inc(i);

        while i < FieldValues['AT_ID'] do

        begin

          Add(IntToStr(i) + ' 4660 0.0.0.0');

          Inc(i);

        end;

        if j > 4 then

          SetLength(Ary_Gateway, j + 1, 7);

        Add(IntToStr(i) + ' 4660 ' + FieldValues['AT_IP']);

        Ary_Gateway[j, 0] := IntToStr(i);

        Ary_Gateway[j, 1] := FieldValues['AT_ID'];

        Ary_Gateway[j, 2] := FieldValues['AT_IP'];

        Ary_Gateway[j, 4] := FieldValues['LINE_NAME'];

        Ary_Gateway[j, 5] := 'Kitting';

        Ary_Gateway[j, 6] := IntToStr(FieldValues['AT_Polling']);

        Inc(j);

        next;

      end;

      SaveToFile('ipindex');

      Free;

    end;

  end;



 

后续会写一篇介绍使用存储过程。