Re: ðÏÄÓËÁÖÉÔÅ ÐÏ Mysql

[Alexandr V. Tkachenko]

> С сервером-то соединяется? А как ведет себя обычный mysql.exe?
>
> Sincerely,
> Andrew Khmelev

sub sql{
my $opt_user="Администратор";
my $opt_password="";
my $database="test";
my $socket="localhost";

 my $drh = DBI->install_driver('mysql');
 my $dbh = $drh->connect($socket,$database,$opt_user,'mysql') or die "error,
блин!";

 $dbh->do("DROP TABLE foo");
 $dbh->do("CREATE TABLE foo (Fielfd_1 VARCHAR(60))");
 my $sth = $dbh->prepare("INSERT INTO foo VALUES('ХХХНННZZZ')");
 $sth->execute;
 $sth->finish;
 my $query = "SHOW TABLES";
 my $sth = $dbh->prepare("INSERT INTO $query");
 my $line;
 while ($line = $sth->fetchrow_arrayref){
  print "$$line[0] <BR>\n"
 }
 my $rc = $sth->finish;
 $rc = $dbh->disconnect;


Процедура запускается, на этапе соединения не ругается, да и вообще никаких
действий не производит :) , т.к. ни на экране, не в mysqladm изменений не
наблюдается...
Пробовал примеры из сети такие же, как приведенный здесь, только на ПХП -
они работают  :((