Форум dkLab и Denwer
Здесь общаются Web-разработчики.
Генеральный спонсор:
Хостинг «Джино»

Как сделать таблицу Exel из таблицы MySQL? (dimka)
Author Message
dimka
Guest





Карма: 388
   поощрить/наказать


PostPosted: Fri Aug 22, 2003 2:12 pm ()
   Post subject: Как сделать таблицу Exel из таблицы MySQL?
Reply with quote

нашел скрипт на mysql.ru
Code (perl): скопировать код в буфер обмена
#!/usr/local/bin/perl
use DBI;
$table = "table"; $db = "base"; $db_serv = "192.168.0.1"; $user = "user"; $passwd = "password";
$c = DBI->connect("DBI:mysql:$db:$db_serv", $user, $passwd);
$statement = "select count(*) from $table";
$cc = $c->prepare($statement);
$ccc = $cc->execute;
@row = $cc->fetchrow_array;
$n = $row[0];
$statement = "select * from $table";
$cc = $c->prepare($statement);
$ccc = $cc->execute;
open (www.perldoc.com/perl5.6/pod/func/open.html) F, "$ARGV[0]";
for ($i=0; $i<$n; $i++) {
@row = $cc->fetchrow_array;
print (www.perldoc.com/perl5.6/pod/func/print.html) F "$row[0];$row[1];$row[3]\n";
}
не работает ругается. Поставил пакет расширения, стал ругаться на 16 строку то есть конкретно на print F "$row[0];$row[1];$row[3]\n"; в чем может быть проблема? Я не професиионал мне просто нужна таблица mysql в excel если кто подскажет еще одно решение буду очень благодарен.
Back to top
Enilatiar
Участник форума



Joined: 09 Jun 2003
Posts: 690
Карма: 24
   поощрить/наказать


PostPosted: Fri Aug 22, 2003 2:34 pm (спустя 22 минуты)
   Post subject:
Reply with quote

Загрузите менеджер MySQL, например, MySQL-front.
Выделите в нужной таблице нужные данные и копи-пастите в Excel.
Back to top
View user's profile Send private message
dimka
Guest





Карма: 388
   поощрить/наказать


PostPosted: Fri Aug 22, 2003 2:52 pm (спустя 17 минут)
   Post subject:
Reply with quote

Enilatiar wrote:
Загрузите менеджер MySQL, например, MySQL-front.
Выделите в нужной таблице нужные данные и копи-пастите в Excel.
не совсем то что нужно, хотелось бы автоматом сделать, кликнул на линк, раз и браузер предлагает загрузить готовый фалик :(
Back to top
Enilatiar
Участник форума



Joined: 09 Jun 2003
Posts: 690
Карма: 24
   поощрить/наказать


PostPosted: Fri Aug 22, 2003 3:31 pm (спустя 39 минут)
   Post subject:
Reply with quote

Code (perl): скопировать код в буфер обмена
use DBI;
my ($table, $db, $db_serv, $user, $passwd) = ('table', 'db', 'localhost', 'root', '');
my $c = DBI->connect("DBI:mysql:$db:$db_serv", $user, $passwd);

my $statement = "select * from $table";
(my $csv = $c->prepare($statement))->execute;

open (www.perldoc.com/perl5.6/pod/func/open.html) F, ">C:/test.csv";
while ( my @row = $csv->fetchrow_array ) {
    print (www.perldoc.com/perl5.6/pod/func/print.html) F join (www.perldoc.com/perl5.6/pod/func/join.html) (';', @row), "\n";
}
close (www.perldoc.com/perl5.6/pod/func/close.html) F;
Back to top
View user's profile Send private message
Андрей Анатольич (Venom)
Участник форума



Joined: 02 Sep 2003
Posts: 28
Карма: 4
   поощрить/наказать

Location: Екатеринбург

PostPosted: Mon Sep 29, 2003 12:40 am (спустя 1 месяц 6 дней 9 часов 8 минут)
   Post subject:
Reply with quote

dimka: Привет, давно не виделись =)

Ты хочешь сделать сохранение таблицы в файл или сразу в поток из БД? Если в поток, то могу подсказать как.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic All times are GMT + 3 Hours
Page 1 of 1    Email to a Friend.
You cannot post new topics in this forum. You cannot reply to topics in this forum. You cannot edit your posts in this forum. You cannot delete your posts in this forum. You cannot vote in polls in this forum. You cannot attach files in this forum. You cannot download files in this forum.
XML