|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Sanyo Titaev 2:5070/66.1 26 Oct 2000 15:22:46
To : Alex Gain
Subject : как из Перла обращаться к базе MS SQL
--------------------------------------------------------------------------------
25 Oct 28 07:03, Alex Gain wrote to All:
AG> From: AgainU@yahoo.com (Alex Gain)
AG> Привет Sanyo, а к Oracle-8 сильно надо менять этот скрипт?
AG> Alex.
если у тебя в ODBC есть поддержка oracle8, то в следующей строчке
достаточно поставить правильный dsn, uid and pwd
>> $db = new Win32::ODBC("dsn=PING; uid=xxx; pwd=yyy") || die " error";
насчет синтаксиса sql запроса ничего на скажу - не знаю
>> $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)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
