use DBI;

#COMMENTED OUT ON 2/13/25 my $dsn = "DBI:JDBC:jdbc:ucanaccess://C:/path/to/database.accdb";
#COMMENTED OUT ON 2/20/25 my $dsn = "DBI:JDBC:jdbc:ucanaccess://C:/Work/Programming/jdbcConnectionForNdw/jdbcConnectionForMsAccessTest.accdb";
#COMMENTED OUT ON 2/27/25 my $dsn = "DBI:JDBC:ucanaccess://C:/Work/Programming/jdbcConnectionForNdw/jdbcConnectionForMsAccessTest.accdb";
					      #COMMENTED OUT ON 3/5/25 my $dsn = "dbi:JDBC:Driver={Microsoft Access Driver (*.mdb, *.accdb)};DBQ=C:/Work/Programming/jdbcConnectionForNdw/jdbcConnectionForMsAccessTest.accdb";
						                           #commented out on 3/5/25 BUT WORKS my $dsn = "dbi:ODBC:Driver={Microsoft Access Driver (*.mdb, *.accdb)};Dbq=C:\\Work\\Programming\\jdbcConnectionForNdw\\jdbcConnectionForMsAccessTest.accdb;";
												  #COMMENTED OUT ON 3/6/25 my $dsn = "dbi:JDBC:Driver={Microsoft Access Driver (*.mdb, *.accdb)};Dbq=C:\\Work\\Programming\\jdbcConnectionForNdw\\jdbcConnectionForMsAccessTest.accdb;";
		#COMMENTED OUT ON 3/6/25 my $dsn = "dbi:JDBC:hostname=localhost;port=12345;driver=net.ucanaccess.jdbc.UcanaccessDriver;database=C:/Work/Programming/jdbcConnectionForNdw/jdbcConnectionForMsAccessTest.accdb"; 
		my $dsn = "DBI:JDBC:hostname=localhost;port=12345;url=jdbc:ucanaccess:///C:/Work/Programming/jdbcConnectionForNdw/jdbcConnectionForMsAccessTest.accdb";
my $dbh = DBI->connect($dsn, '', '', { RaiseError => 1 })
or die "Failed to connect to the database: $DBI::errstr";

print "Connected successfully!\n";