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;

 

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