Win32::OLE를 사용해 Recordset 객체 생성

#
# date OLE 생성
#
use Win32::OLE::Variant;
  
use Win32::OLE qw(in with);

# global 변수 정의
my $m_RS;

# 초기화
if ( &init() )
{
# 초기화 완료 후 data가져오기 실행해야 함
&queryData();
}

# 초기화
# date: 2006.11.24 - jk.ryu
sub init()
{
print "초기화 시작\n";

eval { $m_RS = Win32::OLE->new('ADODB.Recordset'); };   # creates a recordset
die "Recordset 생성 실패" if $@;

return true;
}