# Connect To Database

use Win32::ODBC;


$DSN = "MS Access Database"; #data base name

if (!( $db = new Win32::ODBC($DSN) )){ 
	#$db is handle,ID and PW can be input here 
	print "connect to database failed.</br>"; 
	print "Error:".win32::ODBC::Error()."<br>\n";
	exit; 
} 
else{ 
	print "connected to database (connected number", $db->Connection(), ")<br>"; 
} 

# List Out All The Table

@tables = $db->TableList; 
print @tables; 


#
if (! $db->Sql("SELECT * FROM [address] Where age>=20") ){ 
	@FieldNames = $db->FieldNames(); 
}