J
joe
Hi i just wrote a little quick and dirty script to query odbc, i could not
find anything similar so i wrote this.
use Win32::ODBC;
print "Enter ODBC data source: ";
$myprompt = <STDIN>;
chop($myprompt);
my($db) = new Win32::ODBC("$myprompt");
while (true){
print "> ";
$myprompt = <STDIN>;
chop($myprompt);
if ($myprompt eq "quit"){
$db->Close();
exit;
}
$db->Sql("$myprompt");
my(@fields) = $db->FieldNames;
while ($db->FetchRow()) {
my(%data) = $db->DataHash();
foreach $field (sort @fields) {
$test = "$data{$field} ";
print "$test";
}
print "\n";
}
}
find anything similar so i wrote this.
use Win32::ODBC;
print "Enter ODBC data source: ";
$myprompt = <STDIN>;
chop($myprompt);
my($db) = new Win32::ODBC("$myprompt");
while (true){
print "> ";
$myprompt = <STDIN>;
chop($myprompt);
if ($myprompt eq "quit"){
$db->Close();
exit;
}
$db->Sql("$myprompt");
my(@fields) = $db->FieldNames;
while ($db->FetchRow()) {
my(%data) = $db->DataHash();
foreach $field (sort @fields) {
$test = "$data{$field} ";
print "$test";
}
print "\n";
}
}