
20.09.2002, 13:23
|
|
Регистрация: Jan 2000
Адрес: St-Petersburg
Сообщений: 1,229
|
#!/user/bin/perl
use DBI;
$dbh = DBI->connect("DBI:mysql:mydatabase:localhost:3306","user","password");
...дальше пошли SQL запросы...
$dbh->disconnect;
Простые запросы, ответ которых нам не нужен, отправляем через do, например:
$dbh->do("INSERT INTO types(id) VALUES(0)");
Если ответ нужен (например выборка):
$sth = $dbh->prepare("SELECT * FROM types ORDER BY id");
$sth->execute;
__________________
Two beer or not two beer?...
|