Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / (Perl) ODBC MS SQL / 4 сообщений из 4, страница 1 из 1
23.08.2002, 10:42
    #32045431
Tey
Tey
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
(Perl) ODBC MS SQL
Привет всем. У меня проблема! Как прочитать данные из MS SQL при помощи Perl. Пока я смог только подключиться к базе данных при помощи ODBC:

#!/usr/bin/perl
$dsn = 'TMeter';
$login = 'statread';
$pwd = 'statread';
use Win32::ODBC;
$connectstring = "DSN=$dsn;UID=$login;PWD=$pwd;

А дальше как ?!! Как теперь данные считать???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.08.2002, 13:19
    #32046157
WildMan
WildMan
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
(Perl) ODBC MS SQL
Код: plaintext
1.
2.
3.
4.
5.
openDB($ref2db);
&SQLError('Îøèáêà SQL çàïðîñà [Main Search].') if ($ref2db->Sql($sql));
while ($db->FetchRow()) {
	  ($VAR{'MODEL'}, $VAR{'MPAGE'}, $VAR{'OPNAME'}, $VAR{'OPAGE'},$VAR{'PRICE'}, $VAR{'REM'},$date, $VAR{'IDS'}, $VAR{'SNAME'},$phone, $fax)=$ref2db->Data('MODEL', 'MDPG', 'OPNM', 'OPPG', 'PRICEMIN', 'REM', 'DATEUPDT', 'IDS', 'SLNM', 'PHONE', 'FAX' );
	  } 
&closeDB($ref2db);

Где Опен и Клозе ДБ мои функции дял устанволение конекта и открытия базы ... могешь напримую нужные операторы в писать не бзая функции
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.08.2002, 12:21
    #32047094
WildMan
WildMan
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
(Perl) ODBC MS SQL
да забыл сказать
что sql=сам запрос типа "Select v1, v2 и так далее, но чтобы имена полей в запросе совпадали с именами в
Код: plaintext
$db->Data(...
А OpenDB это:
Код: plaintext
unless ($db) {$db = new Win32::ODBC( "dsn=$DSN;UID=$UID;PWD=$PWD" )};

]
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
07.09.2005, 09:47
    #33255398
Orlic
Orlic
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
(Perl) ODBC MS SQL
Все примеры коннекта к MS SQL - у явным указанием логина и пароля. Но ведь модуль WIN32::ODBC позволяет создавать такде соединение с использованием DSN в администраторе ODBC. Или не так???

Правда, у меня это не проходит, пишет:
Код: plaintext
1.
[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

как это можно исправить???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / (Perl) ODBC MS SQL / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 503ms
Закрыть
start [/forum/topic.php?fid=23&mobile=1&tid=1477656]:
 0ms
get settings:
 7ms
get forum list:
 16ms
check forum access:
 5ms
check topic access:
 5ms
track hit:
 185ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 29ms
get tp. blocked users:
 1ms
others: 243ms
total:  503ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]