in reply to ODBC and OLE DB

Yes, I'm using the Win32::OLE mod. Using the Win32::ODBC mod I've been unable to open a recordset that I can iterate through. I can open a connection for executing SQL statements, but I can't open a recordset (guess I just don't know the commands for creating the recordset object)

With the data transfer, I'm just going textfile-to-DB, but I'm looping through the recordset before each SQL INSERT statement to make sure I'm not inserting duplicate data.

Replies are listed 'Best First'.
RE: Re: ODBC and OLE DB
by KM (Priest) on May 25, 2000 at 20:39 UTC
    Well, as I mentioned you are trying to execute the SQL with a method that doesn't exist in Win32::ODBC. Refer to my last response (or the docs for Win32::ODBC) for the correct method. Below is a quick example of using Win32::ODBC:

    use Win32::ODBC;

my $DSN = qq(DSN Name);
my $db;

if (!($db = new Win32::ODBC($DSN))){
    print "Connection Error: " . Win32::ODBC::Error . "\n";
    exit;
}

my $qry = qq(select * from table);

if ($db->Sql($qry)){
    print "SQL Error: " . $db->Error . "\n";
    $db->Close;
    exit;
}

while($db->FetchRow){
    my %record = $db->DataHash;
    print $record{FIELD};
    ... etc ...
}

$db->Close;

    [download]

    Again, read the docs that come with Win32::ODBC, and visit roth.net for more documentation.

    Cheers,
    KM

[reply]
[d/l]

In Section Seekers of Perl Wisdom