Xpoint
   [напомнить пароль]

Как заставить работать Perl с MS Access 2003

Метки: [без меток]
[удл]
2008-07-22 20:59:02 [обр] Николай[досье]

Люди, помогите!

есть код:

#!C:\Perl\bin\perl.exe
 use warnings;
 use DBI;
 use DBD::ODBC;

 my $dbh = DBI->connect("dbi:ODBC:DataBaseA.mdb", "", "")or
    die("$DBI::errstr");
    my $sth = $dbh->prepare(q{Select * from Album})or die($dbh->errstr(), "\n");
    my $rc = $sth->execute() or
       die($sth->errstr(),"\n");

       my @array;
       while (@array = $sth->fetchrow_array()) {
       write();
       }
warn($DBI::errstr) if $DBI::err;
$dbh->disconnect();
$sth->finish();

format STDOUT =
@@<<<<<<<<<<@<<<<<<<<<<@<<<<<<<<<<@<<<<<<<<<<
$array[0],$array[1],$array[2],$array[3],$array[4]
.

пишет ошибку:

DBI connect('DataBaseA','',...) failed: [Microsoft][Диспетчер драйверов ODBC] Источник данных не найден и не указан драйвер, используемый по умолчанию (SQL-IM002) at qwe.pl line 6
Невозможно установить связь с базой данных: [Microsoft][Диспетчер драйверов ODBC] Источник данных не найден и не указан драйвер, используемый по умолчанию (SQL-IM002) at qwe.pl line 6.

DataBaseA.mdb - файл базы данных Access 2003 (в нем одна таблица на 5 атрибутов и несколько кортежей)

подскажите как зарегестрировать эту базу данных в качестве допустимого источника базы данных ODBC.

Просто я с базами только начинаю работать, и вот такая вот, может быть для Вас смешная, проблема у меня.

(DBI и DBD:ODBC устанавил недавно с помощью ppm)

спустя 1 час 43 минуты [обр] Василий Свиридов(3/175)[досье]
Пойдите в Control Panel->Administrative Tools->Data Sources (ODBC) и зарегистрируйте там свой DSN, а потом обращайтесь к нему из кода, с тем именем, которое зарегистрировали. Это не перл-специфично, вроде так любой ODBC коннектор работает.
спустя 22 часа [обр] Николай[досье]
Огромное спасибо!
разъяснили ламеру. Все сделал, все заработало ;)
Powered by POEM™ Engine Copyright © 2002-2005