Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #! C:\xampp\perl\bin\perl.exe
- use CGI qw(:standard);
- use DBI;
- print header;
- print start_html;
- print start_form;
- print p("Emp Number:",textfield("EmpNo"));
- print p("Emp Name:",textfield("EmpName"));
- print p(submit("Submit Form"));
- print end_form;
- if(param()){
- #Read form data
- $EmpNo = param("Emp Number");
- $EmpName = param("Emp Name");
- Insert_db();
- }
- sub Insert_db{
- # Step 1: MySQL database: Declare DSN
- my $dsn = "DBI:mysql:as5-dylan";
- #default admin username/Password in mysql
- my $username = "root";
- my $password = '';
- # Step 2:connect to MySQL database
- my $dbh = DBI-> connect($dsn,$username,$password) ;
- #Step 3: Pose an INSERT Query
- # A)Formulating the query
- $query = "INSERT INTO emp ('EmpNo', 'EmpName') VALUES ('$EmpNo','$EmpName')";
- # B) Verify the Query
- $sth = $dbh->prepare($query);
- # C)Executing the Query
- $sth->execute();
- # Step 4: Disconnect from the MySql Server
- $dbh->disconnect();
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement