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 = then Exit;
// 设置二维数组
SetLength(Ary_Gateway, , );
i := ;
j := ; // 写入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 > then
SetLength(Ary_Gateway, j + , );
Add(IntToStr(i) + ' 4660 ' + FieldValues['AT_IP']);
Ary_Gateway[j, ] := IntToStr(i);
Ary_Gateway[j, ] := FieldValues['AT_ID'];
Ary_Gateway[j, ] := FieldValues['AT_IP'];
Ary_Gateway[j, ] := FieldValues['LINE_NAME'];
Ary_Gateway[j, ] := 'Kitting';
Ary_Gateway[j, ] := IntToStr(FieldValues['AT_Polling']);
Inc(j);
next;
end;
SaveToFile('ipindex');
Free;
end;
end;
后续会写一篇介绍使用存储过程。