delphi7取oracle11g存储过程结果返回集遇到问题

Question

oracle11g存储过程cursor

Answer 1

是不是DELPHI 的调用代码有问题呢？
参考下sql server的存储过程调用方式with qry1 do
begin
  sql.Text:=' ddd :p1';
  //ddd为存储过程名，:p1为参数占位符，有多个可以写成 :p1,:p2,:p3...
  Parameters[0].Value:='120523' ;
  //Parameters[1].Value:='120523' ;
  open;
end;

Answer 2

调用存储过程为什么不用TStoredProc?

Answer 3

到盒子发帖，看看，ORACLE 貌似有个专业东西，unidac 操作很方便 ，

Answer 4

盒子指的是？ORAcle的专业东西指的是？

Answer 5

在Query.open之前，将此Query的SQL语句输出看下。从提示上看，应该是参数传的有问题。
4楼的方法 ，应该是比较常用的方法。

Answer 6

删除目录   ----   删除目录与拷贝目录很类似，但为了能删除位于根目录下的一个空目录，需要在辅助函数中设置一个标志变量，即：如果删除的是空目录,则置bEmptyDir为True，这一句已经用深色框表示了。   ----   2.1删除目录的递归辅助函数：DoRemoveDir   function   DoRemoveDir(sDirName:String):Boolean; 
var 
      hFindFile:Cardinal; 
      tfile:String; 
      sCurDir:String; 
      bEmptyDir:Boolean; 
      FindFileData:WIN32_FIND_DATA; 
begin 
      //如果删除的是空目录,则置bEmptyDir为True 
      //初始时,bEmptyDir为True 
      bEmptyDir:=True; 
      //先保存当前目录 
      sCurDir:=GetCurrentDir; 
      SetLength(sCurDir,Length(sCurDir)); 
      ChDir(sDirName); 
      hFindFile:=FindFirstFile( '*.* ',FindFileData); 
      if   hFindFile <   > INVALID_HANDLE_VALUE   then 
      begin 
                repeat 
                            tfile:=FindFileData.cFileName; 
                            if   (tfile= '. ')   or   (tfile= '.. ')   then 
                            begin 
                                  bEmptyDir:=bEmptyDir   and   True; 
                                  Continue; 
                            end; 
                            //不是空目录,置bEmptyDir为False 
                            bEmptyDir:=False; 
                            if   FindFileData.dwFileAttributes= 
                            FILE_ATTRIBUTE_DIRECTORY   then 
                            begin 
                                      if   sDirName[Length(sDirName)] <   > '\ '   then 
                                            DoRemoveDir(sDirName+ '\ '+tfile) 
                                      else 
                                            DoRemoveDir(sDirName+tfile); 
                                      if   not   RemoveDirectory(PChar(tfile))   then 
                                            result:=false 
                                      else 
                                            result:=true; 
                            end 
                            else 
                            begin 
                                      if   not   DeleteFile(PChar(tfile))   then 
                                            result:=false 
                                      else 
                                            result:=true; 
                            end; 
                until   FindNextFile(hFindFile,FindFileData)=false; 
                FindClose(hFindFile); 
      end 
      else 
      begin 
                ChDir(sCurDir); 
                result:=false; 
                exit; 
      end; 
      //如果是空目录,则删除该空目录 
      if   bEmptyDir   then 
      begin 
                //返回上一级目录 
                ChDir( '.. '); 
                //删除空目录 
                RemoveDirectory(PChar(sDirName)); 
      end;       //回到原来的目录下 
      ChDir(sCurDir); 
      result:=true; 
end; ----   2.2删除目录的函数：DeleteDir   function   DeleteDir(sDirName:String):Boolean; 
begin 
            if   Length(sDirName) <   =0   then 
                  exit; 
            //删除... 
            Result:=DoRemoveDir(sDirName)   and   RemoveDir(sDirName); 
end;

Answer 7

这个和你用什么去连ORACLE 数据库有关系 ， 可以用ODBC 就行！！

Answer 8

是odac  否则你会一直困饶的

Answer 9

盒子指的是？ORAcle的专业东西指的是？  盒子论坛= 国内唯一专业DELPHIBBS ：bbs.2ccc.com    delphi世界 oracle 操作 最好用 unidac