|
|
<![CDATA[
#---- CommandTypeEnum Values ----;
use constant adCmdText => 0x0001;
#---- CursorTypeEnum Values ----;
use constant adOpenKeyset => 1;
#---- LockTypeEnum Values ----;
use constant adLockReadOnly => 1;
use constant adSchemaTables => 20;
$accessfile = "access2002.mdb";
use OLE; # use Win32::OLE
$Conn = CreateObject OLE "ADODB.Connection";
$RS_Tables = CreateObject OLE "ADODB.Recordset";
$Conn->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=$accessfile");
$RS_Tables = $Conn->OpenSchema(adSchemaTables);
while ( !$RS_Tables->EOF ) {
$table = $RS_Tables->{TABLE_NAME}->Value;
if ( !($table =~ /MSys/) )
{
print "table = $table\n";
}
$RS_Tables->MoveNext;
}
$RS_Tables->Close;
$Conn->Close;
]]>
<![CDATA[
]]>
|
|