01 use strict;
02 use warnings;
03 use DBI;
04
05 my $user="";
06 my $pass="myPass";
07
08 my $dbh = DBI->connect("dbi:ADO:Provider=Microsoft.SQLSERVER.CE.OLEDB.3.5;Data Source=E:\\PUCC\\DB\\D_stud.sdf", $user, $pass);
09
10
11 my $sth = $dbh->prepare("SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_TYPE = 'TABLE'");
12
13 $sth->execute();
14
15 while (my $href = $sth->fetchrow_hashref()) {
16	print $href->{TABLE_NAME} . "\n";
17 }