use strict;
[download]

$db = new Win32::ODBC("DSN=clamon.world;UID=scott;PWD=tiger");
[download]

use strict;
use Win32::OLE;
my $db = CreateObject OLE "ADODB.Connection";
$db or die "Whoa partner!";
$db->Open("DSN=clamon.world;UID=scott;PWD=tiger");
my $rs = $db->Execute("SELECT * FROM EMP where EMPNO = 7900");
print ($_)->{Description}."<br>\n" foreach(keys %{$db->Errors()}) unle
+ss($rs);

while(!$rs->EOF){
  #see the ADO documention for getting out the data you want 
  $rs->MoveNext();
}
[download]

Hi, I added the use strict; but nothing out of the ordenary changed. I usually use strict. The Sql_test is now also defined(Cut/paste error as you mentioned), but that didn't do the trick either. Why must I only define the DSN name alone? I would kind of expect to use the user and password to gain access to the tabels??

Note: The TNS name of the database may not be the same as the DSN name (actually, when you configured the DSN entry, you placed the TNS name in the server area.)

use strict;
use DBI;

#-- Define local constants
use constant TRUE      => 1;
use constant FALSE     => 0;

use constant ORAUSER   => 'scott';
use constant ORAPASS   => 'tiger';
use constant ORATNS    => 'clamon';


#-- Define local variables
my $gDBHandle;
my $gSQLCmd;
my $gSQLHandle;

my @gFields;


#-- Connect to the database
$gDBHandle = DBI->connect
  (
    'dbi:Oracle:' . ORATNS, ORAUSER, ORAPASS,
    {
      AutoCommit  => FALSE,
      PrintError  => FALSE,
      RaiseError  => FALSE,
    }
  ) || die 'Could not connect to Oracle ['.$DBI::errstr.' - '.$DBI::er
+r.']';


#-- Get the data
$gSQLCmd = 'SELECT * FROM emp WHERE empno = ?';
$gSQLHandle = $gDBHandle->prepare
  (
    $gSQLCmd
  ) || die 'Error with SQL statement ['.$DBI::errstr.' - '.$DBI::err.'
+]';

$gSQLHandle->execute(7900) || die 'Error with SQL statement ['.$DBI::e
+rrstr.' - '.$DBI::err.']';

while (@gFields = $gSQLHandle->fetchrow_array)
{
  print 'Row: ',$gFields[0],"\t",$gFields[1],"\t",$gFields[2],"\n";
}


#-- Close the database connection
$gDBHandle->disconnect();


#-- Exit
exit;


#-- End of sample
[download]

I hope this helps...

Hi, Thanks for the help. As soon as I got the DBI module up and running everything went just fine after following you example. Thanks, RuneK

According to the documentation on CPAN, your use of the constructor is fine.

I have zero experience with the this API, but from a quick perusal of the documentation, I'd suggest removing the call in void context to FetchRow(); I think it's moving the record index established by the SQL command, so that the call to DataHash() has nothing to return.

#!perl -w
use strict;
use Win32::ODBC;
my $dsn = "DSN=clamon.world;UID=scott;PWD=tiger";
my $statement = q(SELECT * FROM EMP where EMPNO = 7900);

my $db = Win32::ODBC->new($dsn);
unless ($db){
  my $error = Win32::ODBC::Error;
  die "Error in connecting to db: $error\n";
}

if ($db->Sql($statement){
  my $error = $db->error();
  die "Error in $statement:\n\t$error\n";
}

while ($db->FetchRow){
  my %line = $db->DataHash();
  foreach my $key (sort keys %line){
    print "$key = $hash{$key}\n";
  }
  print "\n";
}
$db->Close();
[download]

Best regards,
perl -le "s==*F=e=>y~\*martinF~stronat~=>s~[^\w]~~g=>chop,print"

Hi perl -le "s==*F=e=>y~\*martinF~stronat~=>s~^\w~~g=>chop,print", What happens is that everything still seems fine until it reaches the below section. Then it cycles through the while indefinetly, BUT skips the print line for every cycle. That is probably because the $key is empty. Now the wierd thing is why does it cycle indefinetly when there is only one record in that table that matches and why doesn's that single record get printed? I think the problem could be with the setup of the oracle river and DSN on my client, but since I haven't done that before either then it's kind of a mess. Any ideas?

while ($db->FetchRow){                #<-Cycles indefinetly
  my %line = $db->DataHash();
  foreach my $key (sort keys %line){
    print "$key = $hash{$key}\n";     #<-Skips every time
  }
  print "\n";
[download]