Greetings all.
I have a problem with PERL and SQL Server.
I need to upload a database query to a web page using PERL and SQL Server. I have tried to do this myself but nothing displays on the page. The .CGI file will call the PERL but does not display any of the results of the query search via SQL Server on my page. I have commented out the output I wanted because this causes an Internal Server Error.
I realise that this is a very basic PERL Script. I do struggle with PERL but i do urgently need to create this connection.
Below is the CGi script I am using to Call the page and display the result. Usernames and passwords have been edited to aid ambiguity.
I do hope someone can help. Thank you,
Jonnie -
#!/usr/bin/perl
-
-
#include the Perl libraries for connecting to databases
-
use DBI;
-
-
#state that you will be using the CGI package for webpages in Perl
-
use CGI;
-
-
#state that text after a print statement will be in HTML
-
print "Content-type: text/html\n\n";
-
-
#start the HTML part of the page and create the title bar
-
print "<html>";
-
print "<head>";
-
print "<title>SQL Server Testing of ???.SQL</title>";
-
print "</head>";
-
-
#start the body of the HTML part of the page
-
print "<body>";
-
-
#connect to the database
-
#use the statement below, substituting u0021646 for your user id and your_password for your SQL Server password.
-
#blah blah is the database server used.
-
$dbh = DBI->connect("*******","*****","*****");
-
-
#Select the database to be used (your user id)
-
$dbh->do("clergy");
-
-
#specify the records to be selected
-
$sql="SELECT clergy_code, clergy_name, age FROM clergy WHERE (age>30)";
-
#$sql="SELECT *";
-
#prepare the query
-
$sth=$dbh->prepare ($sql);
-
-
#execute the query
-
$sth->execute;
-
-
#get the results a record at a time
-
while(($clergy_code, $clergy_name, $age)=$sth->fetchrow_array){
-
#print results
-
print "clergy_code: ".$clergy_code. "clergy_name: ".$clergy_name. "age: ".$age."\n";
-
print "<br />";
-
};
-
-
#<font face = "arial" color = "blue" size = "2">Data one is $clergy_code, Data two is $clergy_name, Data #three is $age.</font>
-
-
#print "<table border = "1">";
-
#print "<tr>";
-
#print "<th>Clergy Code</th>";
-
#print "<th>Clergy Name</th>";
-
#print "<th>Age</th>";
-
#print "</tr>";
-
#print "<tr>";
-
#print "<td>.$clergy_code.</td>";
-
#print "<td>.$clergy_name.</td>";
-
#print "<td>.$age.</td>";
-
#print "</tr>";
-
#print "</table>";
-
-
print "</body>";
-
-
#sources include George Cormack
-
#helpdesk/user_guides/perl_sql1.html
-
-
#finish the query and reclaim the memory used
-
$sth->finish;
-
-
#disconnect from the database
-
$dbh->disconnect;
-
4  4155   miller 1,089
Recognized Expert Top Contributor -
$dbh = DBI->connect("*******","*****","*****");
-
-
#Select the database to be used (your user id)
-
$dbh->do("clergy");
-
-
$sql="SELECT clergy_code, clergy_name, age FROM clergy WHERE (age>30)";
-
$sth=$dbh->prepare ($sql);
-
$sth->execute;
-
Hello Jonnie,
Your problems are entirely in the above set of code. First of all, you should always include error messages in your database operations. We all create syntax errors, so do yourself a favor and let dbi tell you about them. Secondly, your method of selecting a database appears malformed. Unfortunately, I only use MySQL, so I can't know for sure if the syntax is wrong. But I would suggest that you include the database you're going to use in the actual connect string instead of a later statement. -
my $dbname = 'clergy';
-
my $dbuser = 'fooUSER'
-
my $dbpass = 'fooPASS'
-
my $dbhost = 'localhost';
-
-
$dbh = DBI->connect("dbi:mysql:$name:$host", $user, $pass) or die "Database connection failed.";
-
-
my $sql = "SELECT clergy_code, clergy_name, age FROM clergy WHERE (age>30)";
-
$sth = $dbh->prepare($sql);
-
$sth->execute or die $dbh->errstr;
-
You will probably have to edit the value mysql to somethign more appropriate, but this coding style should enable you to better figure out what is wrong with your setup.
Good Luck,
- Miller
Thank you Miller miller.
Unfortunately I have tried everything I can think of to try and make this connection work. I cannot do so.
My preference is to use PERL and SQL server. This is something that I have never managed to do before.
I would hope that someone with an experience of using SQL can combine their knowledge of SQL combined with all I know of PERL to provide that killer script that I am looking for.
If not, I can try another way maybe using Access (this is a step back I know) and Javascript to connect to a database that way. At least then I can use what time I have left to create something.
Many thanks for all your help everyone.
Jonnie
KevinADC 4,059
Recognized Expert Specialist
You said you commented out the part you wanted because it causes an internal server error, that is becuase you have strings like this: - print "<table border = "1">";
You have to escape double-quotes within a double-quoted string: - print "<table border =\"1\">";
or use a quoting operator that does it for you: - print qq~<table border = "1">~;
where '~' is an arbitrary delimter that tells perl where the 'q' or 'qq' operator begins and ends. You could use a different delimiter: - print q!<table border = "1">!;
-
print qq#<table border ="$foo">#;
-
print q(<table border = "1">);
-
print q[<table border = "1">];
-
note that brackets need to be used as a pair and not as a single character
Hello everyone.
I'm sorry I haven't been replying much to this thread in recent days. Obviously i've been racking my brains these past weeks working out how to resolve this problem.
I thought I found the answer when I changed tac and tried to connect the same database, only with MS Access, JavaScript and ASP. The truth is I am still learning all of these aspects of programming although I am quite familiar with Access but haven't even touched PHP. .
I now have a month to get a connection going. Gonna need lotsa luck :)
Sign in to post your reply or Sign up for a free account.
Similar topics | |
by: christian_stengel |
last post by:
Hi *,
I have just started to learn python and I am having a problem with
an python client connecting to a perl server using ssl (I tried this
with pyOpenSSL and with the build in SSL Module).
I don't want to check a cerificate, so i simply tried a
from OpenSSL import SSL
|
by: Ann Marinas |
last post by:
Hi all,
I would like to ask for some help regarding separating the asp.net
webserver and the sql server.
I have created an asp.net application for a certain company. Initially,
we installed both the iis and sql server in a single machine. Not too
long ago, the machine had some hardware problems, and management has
decided to purchase new servers, for both asp.net and sql server.
|
by: mm |
last post by:
I have several korn shell scripts I use with a MySQL database on the
same server (Solaris). I am moving to a Linux environment where the
MySQL database is on another server. I would like to convert the
database connection code to connect to the database on another Linux
server. I see alot of information on Perl DBI CLI and PHP DBI CLI but
cannot find any examples of Korn Shell connecting to a database on
another server.
Is there...
|
by: kriz4321 |
last post by:
I have perl(version 5.004) Installed in my unix server. I need to connect to SQL Database via perl.
Can you tell me what modules I should Install and how to make a test connection to the same.
What version of DBI and DBD::ODBC should be Installed for the this?
When I checked this site 'http://ppm.activestate.com/PPMPackages/zips/6xx-builds-only/"
there are many modules corresponding to DBI.. confused in choosing the right one..
|
by: hakiran |
last post by:
Hello all,
I have been using Perl DBI the last 6months or so. I use it extensively with MySQL. But recently i tried to access Oracle DB with it and was having trouble. Any help would be appreciated.
Here is the code and the error i get. I know the table/view do exist.
Thanks all
Kiran
----------
| | |
by: bhusandi |
last post by:
Dear All,
I am new to this forum and perl ..;)
I am trying to connect to Sybase (windows env) but am getting the error:
"install_driver(Sybase) failed: Can't locate loadable object for module DBD::Syba
se in @INC (@INC contains: C:/Perl/lib C:/Perl/site/lib .) at (eval 1) line 3
Compilation failed in require at (eval 1) line 3.
Perhaps a module that DBD::Sybase requires hasn't been fully installed"
Here is the code:
|
by: Rebles |
last post by:
I'm writing a PERL script to access and insert rows into a Microsoft SQL. i'm using MS SQL Server Management Studio Express (2005) to architect tables and queries.
I've inserted two records into my "Pools" table
One from MS SQL Manager as a test, and another from my PERL script.
The one inserted by MS SQL Manager shows up everytime. The row from my PERL script doesn't show up on MS SQL Manager and ONLY shows up on my PERL script and...
|
by: Rebles |
last post by:
Hi, I just posted this in the MS SQL Section, but maybe my problem is rooted in Perl, so it's more appropriate to post here instead (sorry for the double post)
I'm writing a PERL script to access and insert rows into a Microsoft SQL. i'm using MS SQL Server Management Studio Express (2005) to architect tables and queries.
I've inserted two records into my "Pools" table
One from MS SQL Manager as a test, and another from my PERL script....
|
by: bobt1991 |
last post by:
I just installed Microsoft Visual Studio 2008 Express edition, and it installs some sort of stripped down version of SQL Server. It comes with no tools for connecting to your "local" database, creating tables, etc., but it does allow you to create database files in SDF format within the IDE.
My question is: How do you then connect to these database files in Perl? I tried creating an ODBC connection, but there seems to be no way to tie an...
|
by: marktang |
last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However, people are often confused as to whether an ONU can Work As a Router. In this blog post, we’ll explore What is ONU, What Is Router, ONU & Router’s main usage, and What is the difference between ONU and Router. Let’s take a closer look !
Part I. Meaning of...
|
by: Hystou |
last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can effortlessly switch the default language on Windows 10 without reinstalling. I'll walk you through it.
First, let's disable language synchronization. With a Microsoft account, language settings sync across devices. To prevent any complications,...
| | |
by: jinu1996 |
last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven tapestry of website design and digital marketing. It's not merely about having a website; it's about crafting an immersive digital experience that captivates audiences and drives business growth.
The Art of Business Website Design
Your website is...
|
by: Hystou |
last post by:
Overview:
Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows Update option using the Control Panel or Settings app; it automatically checks for updates and installs any it finds, whether you like it or not. For most users, this new feature is actually very convenient. If you want to control the update process,...
|
by: agi2029 |
last post by:
Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing, and deployment—without human intervention. Imagine an AI that can take a project description, break it down, write the code, debug it, and then launch it, all on its own....
Now, this would greatly impact the work of software developers. The idea...
|
by: conductexam |
last post by:
I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and then checking html paragraph one by one.
At the time of converting from word file to html my equations which are in the word document file was convert into image.
Globals.ThisAddIn.Application.ActiveDocument.Select();...
|
by: adsilva |
last post by:
A Windows Forms form does not have the event Unload, like VB6. What one acts like?
|
by: muto222 |
last post by:
How can i add a mobile payment intergratation into php mysql website.
| | |
by: bsmnconsultancy |
last post by:
In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence can significantly impact your brand's success. BSMN Consultancy, a leader in Website Development in Toronto offers valuable insights into creating effective websites that not only look great but also perform exceptionally well. In this comprehensive...
| |
