Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / (PERL&MSSQL) Запрос / 4 сообщений из 4, страница 1 из 1
28.06.2005, 07:40
    #33137332
vidoq
vidoq
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
(PERL&MSSQL) Запрос
в базе есть такие таблицы:
------------------------
отдел юзер инфа тел
------------------------

инфу с таблицы нужно вывести так:

_________________________________
отдел 1
--------------------------------------
юзер тел инфа
юзер тел инфа
юзер тел инфа
юзер тел инфа
_________________________________
отдел 2
--------------------------------------
юзер тел инфа
юзер тел инфа
юзер тел инфа
юзер тел инфа

и.т.д. вопрос как? как сделать функцию на вывод отдела всего 1 раз?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.06.2005, 10:45
    #33137584
vidoq
vidoq
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
(PERL&MSSQL) Запрос
т.е. он проверяет Отдел у каждого юзера и выдает название отдела всего 1 раз, а потом всех его юзеров.
далее опять выдает название отдела и его юзеров... и.т.д!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.06.2005, 11:57
    #33137858
Black
Black
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
(PERL&MSSQL) Запрос
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
...
select dep,user,telephone,info from table_name
...
my $dep_name;
while(my @user_info=$sth->fetchrow_array) {
print "<b>$user_info[0]</b><hr>"if($dep_name ne "$user_info[0]");
$dep_name=$user_info[ 0 ];

print join(" - ", $user_info[ 1 ..$#user_info]) ."<br>";
}
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.06.2005, 13:10
    #33138171
vidoq
vidoq
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
(PERL&MSSQL) Запрос
не идет, говорит:
Can't call method "FetchRow_array" on an undefined value at squid.pl1.pl1_1.pl

подключаю таблицу так:
Код: plaintext
1.
2.
3.
4.
5.
$query = "select men.tab_n, cex_name, #t1.bytes_p, #t1.bytes_b, #t1.login from men
	left join namecex on men.cex=namecex.cex
	left join #t1 on #t1.tab_n = men.tab_n
	where bytes_p is not null and p1 = 1
	order by cex_name" ;    #взяли из таблицы данные о пользователях байтах и их отделах

в таблице есть такие вот поля:
Код: plaintext
1.
2.
3.
4.
5.
tab_n - табельный номер
login   - логин пользователя
bytes_p  - байты платного
bytes_b  -байты бесплатного трафика
cex_name - название отдела
получается получить отдел можно только по табельному номеру, а логин это для интернета.

задача все та же, как вывести список пользователей разных всех отделов...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / (PERL&MSSQL) Запрос / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 466ms
Закрыть
start [/forum/topic.php?fid=23&mobile=1&tid=1478061]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 161ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 213ms
total:  466ms
x
x
Закрыть


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