Perl Connect Access Database
The topic is to install ActivePerl (505 or more), and MS Access 97
1. Install the Win32-ODBC module
step 1:
Download Win32-odbc.zip from the Tools section, unwave to a Temp directory with Winzip after downloading, there are three files:
Readme
Win32-odbc.ppd
Win32-odbc.tar.gz
Step 2:
Under the DOS window, run the following DOS command in the Temp directory:
PPM Install Win32-odbc.ppd
II. Prepare the test database (Access)
step 1:
Start MS Access, create a new empty database, named odbctest.mdb, save it in a directory (remember the path).
Step 2:
Then create a table to create three fields:
Field name data type
Name characters, length 50
Email character, length 50
AGE number, long integer
Save this table as Address (Note that this example is not available with an automatically added ID). Enter a number of records:
Nighthawk nighthawk@163.net 20 1234567
John jt@163.net 24 0284393293
Kit Kit@21cn.com 18 3948932
After saving, turn off the database file.
Step 3:
Open the ODBC data source (32-bit) in the control panel, in the user DSN column, find the user data source list, select the name "MS Access 97 Database", then press the Configure button.
Press "SELECT .." in the Database box, select the database file odbctest.mdb established in step 1.2, press OK. Other projects in ODBC settings are all default settings, then OK, determine, close the dialog window.
Third. At this time, the database is already available, let's test:
#! / usr / bin / perl
Use Win32 :: ODBC;
$ DSN = "MS Access 97 Database";
$ Dbase = "access.mdb";
#Connect to the database
IF (! ($ db = new win32 :: odbc ($ dsn))) {
Print "Connect the database failed ./N";
exit ();
}
Else {
Print "Connect the database success (connection number:", $ dB-> connection (), ") / n / n";
}
# 图 表 数据 数据
PRINT "Table in the database:";
@Tables = $ dB-> TableList;
Print @tables;
Print "/ n";
# Select data table
IF (! $ db-> sql ("Select * from [address] where agn> = 20")) {
@Fieldnames = $ db-> fieldnames ();
$ Cols = # FieldNames 1;
# Table in the field
Print "Table Address field Number of: $ cols / n";
# Field list
For ($ I = 0; $ i <$ cols; $ i ) {
Print "$ FIELDNAMES [$ I] / T";
Print "/ n";
# List the record of age than 20
While ($ db-> fetchrow ()) {
@Values = $ db-> data ();
Print @VALUES;
Print "/ n";
}
}
##### SQL #########
# Add record
$ SQLINSERT = "INSERT INTO Address Values ('Euler', 'Euler/@21cn.com', 28, '021-345689')
#update record
$ SQLUPDATE = "Update Address Set Age = AGE 10";
#Delete Record
$ SQLDELETE = "delete from address where name = 'jimtyan'";
$ rc = $ db-> sql ($ sqlinsert);
DIE QQ (SQL failed "$ SQLINSERT":), $ db-> error (), QQ (/ N) if $ rc;
$ rc = $ db-> sql ($ sqlupdate);
DIE QQ (SQL failed "$ SQLUPDATE":), $ db-> error (), QQ (/ N) if $ rc;
$ rc = $ db-> sql ($ sqldelete);
DIE QQ (SQL failed "$ SQLDELETE":), $ db-> error (), QQ (/ N) if $ rc;
# Close the link
$ dB-> close ();
