|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Konstantin Tokar 2:5020/400 29 Jan 2004 17:16:09
To : Alexey Gradovtsev
Subject : Re: db-файлы Paradox
--------------------------------------------------------------------------------
Alexey Gradovtsev wrote:
> Wed Jan 28 2004 18:22, Konstantin Tokar wrote to Alexey Gradovtsev:
>
> KT> настроить ODBC источник для базы - в разделе 'System DSN', предположим,
> KT> Data Source Name == 'my_db' , тогда надо вызвать
> KT> $dbh = DBI->connect('dbi:ODBC:my_db', 'user', 'password');
>
> Under Win32 take care to define your DSN as a system DSN, not as a user DSN.
>
> Дык. Создаю system DSN под названием paradox. Вызываю:
> use DBI;
> $dbh = DBI->connect('dbi:ODBC:paradox', '', '') or die $DBI::errstr;
> и получаю:
> ===
> Инструкция по адресу 0x01e... обратилась к памяти по адресу 0x00...010. Память
> не может быть read.
Что-то у тебя не в порядке, может перл, или DBI, или DBD::ODBC, или
память битая. Вот пример, который я сделал за пару минут, базы из
комплекта Delphi:
Вот такой DSN я сделал:
REGEDIT4
[HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\paratest]
"Driver"="C:\\WINNT\\System32\\odbcjt32.dll"
"DefaultDir"="C:\\Program Files\\Common Files\\Borland Shared\\Data"
"DriverId"=dword:0000021a
"FIL"="Paradox 5.X;"
"SafeTransactions"=dword:00000000
"UID"="tokar"
[HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\paratest\Engines]
[HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\paratest\Engines\Paradox]
"CollatingSequence"="ASCII"
"ImplicitCommitSync"=""
"PageTimeout"=dword:00000005
"ParadoxNetPath"="C:\\WINNT\\system32"
"ParadoxNetStyle"="4.x"
"ParadoxUserName"="tokar"
"Threads"=dword:00000003
"UserCommitSync"="Yes"
Вот такую программу я написал:
#!perl -w
use strict;
use DBI;
use Data::Dumper;
my $dbh = DBI->connect('dbi:ODBC:paratest') || die($DBI::errstr);
print Dumper($dbh->selectall_arrayref('select * from country'));
Вот такой ответ получил:
$VAR1 = [
[
'Argentina',
'Buenos Aires',
'South America',
'2777815.0',
'32300003.0'
],
[
'Bolivia',
'La Paz',
'South America',
'1098575.0',
'7300000.0'
],
[
'Brazil',
'Brasilia',
'South America',
'8511196.0',
'150400000.0'
],
[
'Canada',
'Ottawa',
'North America',
'9976147.0',
'26500000.0'
],
[
'Chile',
'Santiago',
'South America',
'756943.0',
'13200000.0'
],
[
'Colombia',
'Bagota',
'South America',
'1138907.0',
'33000000.0'
],
[
'Cuba',
'Havana',
'North America',
'114524.0',
'10600000.0'
],
[
'Ecuador',
'Quito',
'South America',
'455502.0',
'10600000.0'
],
[
'El Salvador',
'San Salvador',
'North America',
'20865.0',
'5300000.0'
],
[
'Guyana',
'Georgetown',
'South America',
'214969.0',
'800000.0'
],
[
'Jamaica',
'Kingston',
'North America',
'11424.0',
'2500000.0'
],
[
'Mexico',
'Mexico City',
'North America',
'1967180.0',
'88600000.0'
],
[
'Nicaragua',
'Managua',
'North America',
'139000.0',
'3900000.0'
],
[
'Paraguay',
'Asuncion',
'South America',
'406576.0',
'4660000.0'
],
[
'Peru',
'Lima',
'South America',
'1285215.0',
'21600000.0'
],
[
'United States of America',
'Washington',
'North America',
'9363130.0',
'249200000.0'
],
[
'Uruguay',
'Montevideo',
'South America',
'176140.0',
'3002000.0'
],
[
'Venezuela',
'Caracas',
'South America',
'912047.0',
'19700000.0'
]
];
--- ifmail v.2.15dev5.2
* Origin: MTU-Intel ISP (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
