|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Sanyo Titaev 2:5070/66.1 20 Oct 2000 11:27:42
To : erge@chat.ru
Subject : как из Перла обращаться к базе MS SQL
--------------------------------------------------------------------------------
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
--- GoldED/W32 3.0.1
* Origin: -=The Bulls=- mailto:tit@irk.ru (2:5070/66.1)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
как из Перла обращаться к базе MS SQL 