A
Alan Chiew
Hi All,
The following piece of code is what I have tried to update a simple
Access database (none of the commented out code worked either). The
connection to the database seems to be fine because I am able to read
data from it. However, when trying to add another row of data, nothing
seems to happen.
I have also checked the permissions in IIS and they seem to be set up
fine.
Any ideas would be much appreciated.
Regards,
Alan
<%@LANGUAGE = PerlScript%>
<%
use Win32::OLE;
use Win32::OLE::Const 'Microsoft ActiveX Data Objects';
$Conn = Win32::OLE->new("ADODB.Connection");
$RS = Win32::OLE->new("ADODB.Recordset");
$DBFile = "E:\\vhosts\\internaltest\\public_html\\ITRtest.mdb";
$DSN = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};
DBQ=$DBFile;UID=;PWD=;";
$Conn->Open($DSN);
$RS->Open("test", $Conn, adLockOptimistic, adOpenDynamic);
$fields = ["barcode", "desc"];
$values = ["C999", "this"];
$RS->AddNew($fields, $values);
#$Conn->Open("INSERT INTO test VALUES ('aaa', 'bbb')");
#$RS->Open($SQL, $Conn, 1, 1);
#$SQL = 'insert into test (barcode) VALUES "C999"';
#$RS = $Conn->Execute($SQL);
#$RS->AddNew;
#$RS->Fields('barcode')->{value} = "ABC";
#$RS->Update;
$RS->Close;
$Conn->Close;
%>
The following piece of code is what I have tried to update a simple
Access database (none of the commented out code worked either). The
connection to the database seems to be fine because I am able to read
data from it. However, when trying to add another row of data, nothing
seems to happen.
I have also checked the permissions in IIS and they seem to be set up
fine.
Any ideas would be much appreciated.
Regards,
Alan
<%@LANGUAGE = PerlScript%>
<%
use Win32::OLE;
use Win32::OLE::Const 'Microsoft ActiveX Data Objects';
$Conn = Win32::OLE->new("ADODB.Connection");
$RS = Win32::OLE->new("ADODB.Recordset");
$DBFile = "E:\\vhosts\\internaltest\\public_html\\ITRtest.mdb";
$DSN = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};
DBQ=$DBFile;UID=;PWD=;";
$Conn->Open($DSN);
$RS->Open("test", $Conn, adLockOptimistic, adOpenDynamic);
$fields = ["barcode", "desc"];
$values = ["C999", "this"];
$RS->AddNew($fields, $values);
#$Conn->Open("INSERT INTO test VALUES ('aaa', 'bbb')");
#$RS->Open($SQL, $Conn, 1, 1);
#$SQL = 'insert into test (barcode) VALUES "C999"';
#$RS = $Conn->Execute($SQL);
#$RS->AddNew;
#$RS->Fields('barcode')->{value} = "ABC";
#$RS->Update;
$RS->Close;
$Conn->Close;
%>