November 19, 2008 01:10am pst

03.04.2008 at 05:22PM PST, ID: 23214702

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

9.7

How do I update a database with Perl?

Asked by CharleneS77 in Perl Programming Language

Tags: Perl, IE 7

I am attempting to update a simple database with a Perl script, but I am not having much luck. Is there anything wrong with the following script?Start Free Trial

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:

           
           
             #!/usr/bin/perl -w
#
# update_customer.pl
#
 
use strict;
use lib qw(c:\Perl\lib);
#use DBI;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);  # provide descriptive error messages
use Win32::ODBC;  #use ODBC package vs. DBI as in text
 
print header(); # print out "Content-Type: text/html\n\n"
 
# Get user's desired action from form
my $action = param('form_action');
 
# Connect to database
my $db = new Win32::ODBC("DSN=accessDSN")
         or die Win32::ODBC::Error();
 
 
# Go to appropriate subroutine based on users's desired action
Update_Record() if($action eq 'updaterecord');
 
######################################################
 
sub Update_Record {
   my $old__first_name  = param('firstname');
   my $old__last_name   = param('lastname');
   my $criteria         = param('criteria');
   my $attribute        = param('attribute');
   my $sql;
 
 
   $sql  = qq{UPDATE CUSTOMER set $attribute = 'criteria' WHERE LastName = 'lastname' and FirstName = 'firstname'; };
   
 
 
}
 
 
print 'SQL string to execute = ' . $sql . "\n\n";
   if ($db->Sql($sql)) {
      print "SQL Error: " . $db->Error() . "\n";
      Handle_DB_Error();
      Display_Page();
      exit;
   }
 
   Display_Page();
}
 
 
##############################################################
 
sub Display_Page {
    print qq(<html><head><title>Record Updated!</title></head>
             <body>
                <center>
                <font size="6">Record Updated!</font>
                <hr />
                <font size="4">
                <a href="main_page.html">Back to Main Page</a>
                </font><br />
                </center>
             </body>
          </html>);
}
 
################################################################
 
 
sub Handle_DB_Error {
    print qq(<html><head><title>Database Error</title></head>
             <body>
                <center>
                <font size="6">Error with database call.</font>
                <hr />
                <font size="4" color="red">ODBC DB Error</font><br />
                <font size="3">Please hit your <b>Back</b> button to 
                               re-enter the data and try again.</font>
                </center>
             </body>
             </html>);
    exit;
}

           
         

Keywords: How do I update a database with Perl?

	Title
1	Perl Script help
2	What's a "databa"?
3	Perl Parameter not picked up by Server
4	perl script not working?
5	Running SCP via CGI Perl Script
6	calling a perl module

Loading Advertisement...

20081112-EE-VQP-44 - Hierarchy / EE_QW_2_20070628

1. Adam314 809,084
2. ozo 479,021
3. FishMonger 141,057
4. Tintin 118,861
5. hielo 74,770
6. mjcoyne 69,328
7. nedfine 45,740
8. clockwatc... 30,424
9. ahoffmann 29,519
10. teraplane 29,380
11. kawas 27,030
12. ravenpl 24,800
13. omarfarid 21,868
14. SmartIntel 21,140
15. oleber 18,950
16. marchent 17,990
17. suhasbha... 17,320
18. ddrudik 14,250
19. nognew 13,250
20. MadShiva 12,300
21. nixfreak 12,200
22. caterham... 11,000
23. hernst42 10,080
24. agriesser 10,000
25. sentner 9,648

1. ozo 3,750,786
2. Adam314 1,731,503
3. Tintin 767,155
4. kandura 579,965
5. mjcoyne 521,466
6. jmcg 517,810
7. FishMonger 493,691
8. maneshr 385,976
9. teraplane 373,588
10. manav_m... 338,348
11. clockwatc... 246,712
12. ahoffmann 215,082
13. rj2 211,481
14. davorg 153,165
15. Tim_Utsc... 113,107
16. shlomoy 109,110
17. gripe 98,559
18. suhasbha... 92,720
19. Perl_Diver 82,106
20. hielo 80,720
21. sstouk 74,470
22. nedfine 73,307
23. jhurst 72,319
24. rugdog 70,951
25. ZiaTioN 66,995

How do I update a database with Perl?

Asked by CharleneS77 in Perl Programming Language

Tags: Perl, IE 7

About this solution