Re^2: Ms Access and win32 ole

[sumit07]

Hi Sinistral

I am now trying to open using this code

$oDatabase = $oAccess->DBEngine->OpenCurrentDatabase($filename);

It says invalid argument.Do we need to provide other arguments also.

With this code $oDatabase = $oAccess->DBEngine->OpenDatabase($filename);

It opens fine but the custom properties doesnot get added to the file's custom tab in the database properties.
Is there any difference between OpenDatabase and OpenCurrentDatabase.

my $filename = 'C:\Documents and Settings\551970\Desktop\database.accd
+b'; # $ARGV[0];
print $filename."\n";

$oAccess = Win32::OLE->new('Access.Application') or die qq{Couldn't st
+art new Access instance!};

# Open Access File
$oDatabase = $oAccess->DBEngine->OpenDatabase($filename);

 my $new_property = $oDatabase->Containers->Databases->Documents->User
+Defined->CreateProperty("Test1",12,"Test");

  $oDatabase->Containers->Databases->Documents->UserDefined->Propertie
+s->Append($new_property);

foreach (in $oDatabase->Containers->Databases->Documents->UserDefined-
+>Properties)
{
  #print Dumper($_);
print "prop ".$_->Name."\n";
}

undef $oDatabase;
#undef $oAccess;
$oAccess->Quit();