免费视频|新人指南|投诉删帖|广告合作|地信网APP下载

查看: 2839|回复: 1
收起左侧

从oracle spatial读取几何字段的坐标值

[复制链接]

1986

主题

10万

铜板

98

好友

技术员

Network change life, change t

积分
17879

斑竹勋章地信元老

QQ
发表于 2009-12-15 09:13 | 显示全部楼层 |阅读模式
从oracle spatial读取几何字段的坐标值:
有如下一些方式:   
  1.使用oci或者occi,在安装oracle后可以在oraclehome\md\demo\examples目录下参考其C++实现,   
  该方法效率最高,但实现比较复杂;   
   
  2.使用Oracle提供的OO4O,是com,在vb6代码如下:   
  '***************************************************************   
  'Gisc   Lab,   Nanjing   Normal   University   
  '   
  &#39urpose:   This   Demo   Shows   how   to   read   spatial   data   from   Oracle   
  '   
  'Input:   User   ID='Scott',   Password='Tiger',   Data   Source='Apollo',   
  '               SQL='select   *   from   interstates   where   rownum<2'   
  '   
  'Output:   xmlDocument   or   xmlReader   
  '   
  'Author:   Charlie   Chen   
  '   
  'Data:   7-28-2004   
  '***************************************************************   
      
    Dim   OraSession   As   OraSessionClass   
    Dim   OraDatabase   As   OraDatabase   
    Dim   interstates   As   OraDynaset   
    Dim   geom   As   OraObject   
    Dim   coords   As   OraCollection   
      
   
  Private   Sub   Command1_Click()   
          Set   OraSession   =   New   OraSessionClass   
            
            
          Set   OraDatabase   =   OraSession.OpenDatabase("apollo",   "scott/tiger",   0&)   
            
          Set   interstates   =   OraDatabase.CreateDynaset("select   *   from   interstates   where   rownum<2",   0&)   
            
          Set   geom   =   interstates.Fields("GEOM").Value   
            
          Set   coords   =   geom.SDO_ORDINATES   
   
          For   i   =   1   To   coords.Size   
                  Debug.Print   coords.Item(i)   
          Next   i   
  End   Sub   
   
  程序可读性和维护性较好,需要添加对oip9.tlb的引用   
   
  3.使用ODP.NET(Oracle公司提供的在.net平台上的数据访问组件),在.NET环境下可以直接转换为xml坐标字符串,但效率太低;   
   
  4.使用JDBC或者SDO   API,无论从哪方面来讲都比较理想。
轻轻的我来签到了,想带走一堆铜板...

1145

主题

10万

铜板

2

好友

传奇会员

Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30

积分
21817

灌水勋章活跃勋章冰雪节勋章

QQ
发表于 2013-11-10 20:03 | 显示全部楼层
进来看看 学习学习

评分

参与人数 1铜板 +1 收起 理由
admin + 1 亲,你好快哦~~~

查看全部评分

加强科技支撑和引领  实现地质找矿新突破 。     
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

在线客服
快速回复 返回顶部 返回列表