home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 27 / IOPROG_27.ISO / SOFT / P2XAP.ZIP / odbcsamp.pl < prev    next >
Encoding:
Text File  |  1998-09-06  |  1.6 KB  |  68 lines
  1. # ODBC test program
  2.  
  3. # Seting up an ODBC database
  4.  
  5. #a) Click Settings/ControlPanel
  6. #b) Click 32-Bit ODBC
  7. #c) Select "System DSN" tab
  8. #d) Click Add, select "Microsoft Access Driver", click Finish
  9. #e) Enter the following properties
  10. #   Data Source Name:  test_dsn  (This is the most important field)
  11. #   Description: Anything
  12. #f) Click on Create... and choose a filename, eg. c:\database\test.mdb
  13. #g) Next time Click on Select ... and choose a filename, eg. c:\database\test.mdb
  14.  
  15.  
  16. use Win32::ODBC;
  17.  
  18. &insertData;
  19. &getData;
  20.  
  21.  
  22. exit(0);
  23.  
  24.  
  25. sub insertData {
  26.    $dsn = "test_dsn";
  27.   
  28.    $db = new Win32::ODBC($dsn);
  29.    die "ERROR: Failed to open database\n" if(!$db);
  30.  
  31.    $sql = "CREATE TABLE test_table (";
  32.    $sql .= "id char(02), ";
  33.    $sql .= "name char(04), ";
  34.    $sql .= "city char(03) )";
  35.     
  36.     $db->Sql($sql);
  37.    ($ErrNum, $ErrText, $ErrConn) = $db->Error();
  38.  
  39.    $sql = "DELETE FROM test_table";
  40.    $db->Sql($sql);
  41.  
  42.    $sql = "INSERT INTO test_table (id, name, city) VALUES ('01', 'Jack', 'NY')";
  43.    $db->Sql($sql);
  44.  
  45.    $sql = "INSERT INTO test_table (id, name, city) VALUES ('02', 'John', 'Lon')";
  46.    $db->Sql($sql);
  47.  
  48.    $sql = "INSERT INTO test_table (id, name, city) VALUES ('03', 'Mike', 'HK')";
  49.    $db->Sql($sql);
  50.  
  51.    $sql = "INSERT INTO test_table (id, name, city) VALUES ('04', 'Carl', 'LA')";
  52.    $db->Sql($sql);
  53. }
  54.  
  55.  
  56. sub getData {
  57.    
  58.    $sql = "SELECT * from test_table order by id";
  59.    
  60.    $db->Sql($sql);
  61.    while ($db->FetchRow()) {
  62.       ($id, $name, $city) = $db->Data("id", "name", "city");
  63.       print $id, " - ", $name, " - ", $city, "\n";
  64.    }
  65.    $db->Close();
  66. }
  67.  
  68.