class DarkRaha extends com { // разработка приложений
            String a="Главная" b="Контакты" c="О сайте"
};

JDBC

загрузка драйвера
соединение с БД
выполнение запросов
параметризованные запросы

ODBC

ODBC
ODBC для wxWidgets
JDBC - ODBC мост

ADO

ADO

VCL

VCL компоненты

PHP

PHP

DBI (perl)

dbi пример

Hibernate

Hibernate

Справка по DBI

Пример DBI для MySQL

DBI - perl модуль реализующий абстрактный интерфейс для доступа к базам данным. Реальное взаимодействие с базой данных осуществляется через другие специальные perl модули - драйвера баз данных.

Если используется ActivePerl установить DBI и драйвер для MySQL (DBD-mysql пакет) можно через менеджер пакетов, который запускается в командной строке ppm. Драйвер можно скачать отдельно и установить в ручную со следующей страницы

http://search.cpan.org/dist/DBD-mysql/

Ниже приведен пример для DBI версии 1.609.


use strict;
use warnings;
use DBI; # подключаем dbi модуль
my $dbh; # обработчик базы данных
my $sth; # обработчик sql запроса
my @rows; # для сохранения выборки из нескольких записей
my $row; # для сохранения выборки из одной записи

# соединение к локальному серверу MySQL
$dbh = DBI->connect("DBI:mysql:test", 
         "root", "root1",
         { RaiseError => 1, AutoCommit => 0 }) 
         || die "Connection error: $DBI::errstr";

# соединение к удаленному серверу
#$dbh = DBI->connect("DBI:mysql:databasename;host=remotehost.com", 
#                    "username", "password", { RaiseError => 1 }
#	           );

# запросы без возвращаемого значения
# можно сделать через do
#$dbh->do("CREATE TABLE tblname (id int, str varchar(45))");
$dbh->do("INSERT INTO tblname VALUES(1, ?)",undef, ("anystr"));


# выборка одной записи
$sth = $dbh->prepare("SELECT * FROM tblname WHERE id=1");
$sth->execute();
$row = $sth->fetchrow_hashref();
print "row: $row->{id} \n";

# выборка массива записей
$sth = $dbh->prepare("SELECT * FROM tblname WHERE id>?");
$sth->execute(0); # 0 значение для параметра запроса
# массив значений столбцов всех записей
@rows = $sth->fetchrow_array(); 
print "rows: @rows\n";

# сбрасываем обработчик запроса
# чтобы можно было закрыть соединение
$sth=undef; 

# закрываем соединение
$dbh->disconnect();

Рейтинг@Mail.ru