GBASE南大通用技术分享:perl语言连接GBase8a数据库的方法之二,ODBC协议

31 阅读1分钟

2.2、通过ODBC协议连接南大通用同GBase 8a。

ODBC是由微软提出的数据库访问标准应用程序编程接口,大部分数据库管理系统都配置了ODBC驱动以实现应用对自己的访问。unixODBC是一款开源的ODBC驱动管理器。 

GBase 8a ODBC驱动安装

[root@vm220 ~]# rpm -iv GBaseODBC-9.5.0.2-centos7.x86_64.rpm 

unixODBC安装

[root@vm220 ~]# yum install unixODBC unixODBC-devel 

安装其它依赖的组件

[root@vm220 ~]#  yum install perl-DBI perl-ExtUtils-MakeMaker

用odbinst命令查看配置文件信息 

[gbase@vm220 ~]$ odbcinst -j 

unixODBC 2.3.1 

DRIVERS............: /etc/odbcinst.ini 

SYSTEM DATA SOURCES: /etc/odbc.ini 

FILE DATA SOURCES..: /etc/ODBCDataSources 

USER DATA SOURCES..: /home/gbase/.odbc.ini 

SQLULEN Size.......: 8 

SQLLEN Size........: 8 

SQLSETPOSIROW Size.: 8 

odbinst.ini配置的是驱动信息,GBase8a驱动安装后,会增加下面的一段: 

[gbase@vm220 ~]$ cat /etc/odbcinst.ini ... 

[GBase8a] Driver=/usr/lib64/libgsodbc8.so 

UsageCount=1 ...... 

odb.ini配置了数据源。 

[gbase@vm220 [gbase8a] 

Driver = GBase8a # 与odbcinst.ini中配置的驱动名一致 

DATABASE = db01 

DESCRIPTION = GBase 8a ODBC Driver 

DSN SERVER = 192.168.10.220 

PORT = 5258 

UID = root 

PASSWORD = root 

isql测试GBase8a的连通性

[gbase@vm220 ~]$ isql gbase8a -v 

+---------------------------------------+ 

| Connected! |

 | |

 | sql-statement | 

| help [tablename] | 

| quit |

| |

 +---------------------------------------+

 SQL> select count(1) from db01.t; 

+---------------------+ 

| count(1) | 

+---------------------+

 | 2 | 

+---------------------+ 

SQLRowCount returns 1 

DBD-ODBC组件安装

[root@vm220 tmp]# tar -zxf DBD-ODBC-1.61.tar.gz 

[root@vm220 tmp]# cd DBD-ODBC-1.61/ 

[root@vm220 DBD-ODBC-1.61]# perl Makefile.PL 

[root@vm220 DBD-ODBC-1.61]# make && make install

编写测试脚本

[gbase@vm220 ~]$ cat test_odbc.pl 

#!/usr/bin/perl use DBI; 

use encoding 'utf-8'; 

$dbh=DBI->connect('dbi:ODBC:gbase8a', 'root', 'root'); 

my $sth=$dbh->prepare("select * from db01.employee"); 

$sth->execute(); 

while(@data=$sth->fetchrow_array()) 

print "$data[0] $data[1]\n"; 

}

测试结果

[gbase@vm220 ~]$ perl test_odbc.pl 

100 张三 

105 李四 

216 王五