ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Anton Dolgov                         2:5020/3450    27 Mar 2001  11:18:04
 To : All
 Subject : perl + mysql ?
 -------------------------------------------------------------------------------- 
 

 
 #!/usr/bin/perl
 use DBI;
 $driver = "mysql";
 $database = "test";
 $table = "Auth";
 $hostname = "localhost";
 $host = "localhost";
 $port = 3306;
 $user = "user";
 $password = "password";
 $dsn = "DBI:$driver:database=$database;host=$hostname;port=$port";
 $dbh = DBI->connect($dsn, $user, $password);
 $drh = DBI->install_driver("mysql");
 
 $dbh->do("CREATE TABLE Auth (user_id SMALLINT NOT NULL AUTO_INCREMENT, user_pass
 $dbh->VARCHAR(80) NOT NULL, point SMALLINT(6) NOT NULL, PRIMARY KEY
 $dbh->(user_id));"); do("CREATE TABLE Sponsor (sponsor_id SMALLINT NOT NULL
 $dbh->AUTO_INCREMENT, sponsor_name VARCHAR(80) NOT NULL, banner_url VARCHAR(80) 
 $dbh->NOT NULL, click_url VARCHAR(80), referer VARCHAR(80), refresh VARCHAR(10),
 $dbh->PRIMARY KEY (sponsor_id), KEY (sponsor_name));"); do("CREATE TABLE User
 $dbh->(user_id SMALLINT NOT NULL AUTO_INCREMENT, user_name VARCHAR(80) NOT NULL,
 $dbh->user_email VARCHAR(80) NOT NULL, user_address VARCHAR(80),  user_city
 $dbh->VARCHAR(80), user_zip VARCHAR(10),  user_phone VARCHAR(20), user_fax
 $dbh->VARCHAR(20),  PRIMARY KEY (user_id));"); do("INSERT INTO
 $dbh->Auth(user_id,user_pass) VALUES(345,\"123\");");
 
 $sth = $dbh->prepare("SELECT * FROM Auth;");
 
 $sth->execute();
 
 PS: какова причина не работы этого скрипта ? а конкретнее - по крайней мере
 $sth = $dbh->prepare("SELECT * FROM Auth;");
 
 $sth->execute();
 
 просто ввожу это же в клиенте mysql - всё работает на ура - то есть показывается
 таблица а так - не фига... и вообще как сделать
 чтобы $temp_variable сожержала значение
 $sth = $dbh->prepare("SELECT * FROM Auth WHERE user_id = $user_entry;");
 
 $sth->execute();
 
 С уважением - Anton
 
 --- GoldEd VS FreGate!!! GoldEd WIN???
  * Origin: Даёшь смех в каждый дом. (2:5020/3450)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    perl + mysql ?   Anton Dolgov   27 Mar 2001 11:18:04   Re: perl + mysql ?   v_simakov   30 Mar 2001 12:30:21   perl + mysql ?   Vovik Alyekhin   30 Mar 2001 19:32:30