|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alex Gain 2:5020/400 25 Oct 2000 07:03:49
To : All
Subject : Re: как из Перла обращаться к базе MS SQL
--------------------------------------------------------------------------------
Привет Sanyo, а к Oracle-8 сильно надо менять этот скрипт?
Alex.
In article <972041282@p1.f66.n5070.z2.ftn>,
Sanyo.Titaev@p1.f66.n5070.z2.fidonet.org
says...
>
>Salut erge@chat.ru!
>
>20 Oct 28 01:38, erge@chat.ru wrote to All:
>
> e> Может кто подскажет как под виндами из перла обращаться к базе MS
SQL.
> e> или где доки нарыть по этому делу. Помогите плиз...
>
>use Win32::ODBC;
>
>$db = new Win32::ODBC("dsn=PING; uid=xxx; pwd=yyy") || die " error";
>$db->Sql("select top 500 Ping from ping where sourceaddress='oasis.irk.ru' and
>$db->targetaddress='www.ru' AND [D_DATE]>dateadd(hh,-1,getdate()) order by
>$db->D_DATE DESC");
>
>while ($db->FetchRow())
>{
> %data = $db->DataHash();
> print "$data{'Ping'}\n";
>}
>for $key ( keys %data )
>{
> print "$key - $data{$key}\n";
>}
>
>
>незнаю правда насколько оно корректно дальше $db = new, оно писалось давно
и я
>взял первое попавшееся из оставшегося
>
>Sanyo
>
--- ifmail v.2.15dev5
* Origin: VSV (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
