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;
后续会写一篇介绍使用存储过程。