MS SQL in Perl ?

Here is my "select" part :

#!C:\perl\bin\perl

use DBI;
$dbHandle = (DBI->connect('DBI:ADO:DSN', 'sa', ''));
$sql = "SELECT * FROM Test";
$statementHandle = $dbHandle->prepare($sql);
$statementHandle->execute() || die $statementHandle->errstr;

while (($cat1) = $statementHandle->fetchrow_array )
{
     print $cat1."\n";
 }

Above script works fine.  I just wonder how can I insert some value into the table ?
May I have some example script for insert ?
johnmemorAsked:
Who is Participating?
 
makerpCommented:
$sql = "INSERT INTO table (colname) VALUES (".$some_val.")"

where $some_val is a number, if its a string then wrap it in single quotes like this

$sql = "INSERT INTO table (colname) VALUES ('".$some_val."')"

hope this helps
0
 
johnmemorAuthor Commented:
Here is my "insert" part :

#!C:\perl\bin\perl

 use DBI;
 $dbHandle = (DBI->connect('DBI:ADO:DSN', 'sa', ''));
 $sql = "insert into Test (name) values(\"some_value\")";
 $statementHandle = $dbHandle->prepare($sql);
 $statementHandle->execute() || die $statementHandle->errstr;


I got error after execution.
0
 
johnmemorAuthor Commented:
How can I get the row count ?

This is what I have :

$rowCount = $dbh->do($sql);
print $rowCount."\n";


and I got -1, I have more than 1 record in the table.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.