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;

 

后續會寫一篇介紹使用存儲過程。