Ну например вот-так: (это если ты в Виндоузе работаешь. Если в Унихе, то через DBI.)
---------------------------
use Win32::ODBC;
$db=new Win32::ODBC("dsn=DSN; UID=sa; PWD=");
die qq(So sorry \n) if (!$db);
$stmt="select name, filename, size from sysfiles";
if ($db->Sql($stmt)) {
print "SQL failed.\n";
print "Error: $db->Error() \n";
$db->Close();
exit;
}
if ($db->RowCount()) {
while($db->FetchRow()) {
undef %Data;
%Data = $db->DataHash();
print ("DB logical name: $Data{'name'} \n");
print ("DB phisical name: $Data{'filename'}\n");
print ("DB size: $Data{'size'} \n\n");
}
}
$db->Close();

>Если не сложно то объясните первую строку, а то у меня выходит по условию. Я не знаю в чем проблема.
>Не хочет он конектится к базе изверг!

>$db=new Win32::ODBC("dsn=DSN; UID=sa; PWD=");
создание коннекшиона к ODBC источнику. где dsn - имя созданного тобой DSN, uid - имя юзера, PWD - пароль юзера

>die qq(So sorry ) if (!$db);
ну а это - exception