#!/usr/bin/perl -w

use strict;
use DBI;

#connect to Access file via ODBC
my $accessDSN =	q(driver=Microsoft Access Driver (*.mdb);).
				q(dbq=D:\\Course 1 Case Study Files\\Order Entry System.mdb);
my $dbhA = DBI->connect("dbi:ODBC:$accessDSN",'','') or die "$DBI::errstr\n"; 

#prepare handles for each table.
my @tables = qw(Customers OrderLineItems Orders Products); 
my @tblSth = map {prepare($_,$dbhA)} @tables;	
  
#print column data for each table
  for my $sHandle(@tblSth){
	$sHandle->execute;
  	my $index = (keys %{$sHandle->fetchrow_hashref("NAME")});

  	for my $col(0..$index){
		print join " ",$sHandle->func($col,"DescribeCol"), "\n";
	}
   }
	
sub prepare{
	my ($table,$dHandle) = @_;
	return $dHandle->prepare("select * from $table");
}