can i connect with mysql and mssql in one perl program

[karthik12chintu]

i have predifined mysql connections now i want to use mssql connection for example subroutine.i tried but failed. i am thankful if any one could help this out..thanks in advance

use strict;
require Exporter;
use C4::Context;
use DBI;
use DBD::ODBC;
use CGI;
sub fixEthnicity($) {
 
    my $ethnicity = shift;
    my $dbh = C4::Context->dbh;
    my $sth=$dbh->prepare("Select name from ethnicity where code = ?");
    $sth->execute($ethnicity);
    my $data=$sth->fetchrow_hashref;
    $sth->finish;
    return $data->{'name'};
}
sub example {
 
# CONFIG VARIABLES
my $platform = "ODBC";
my $database = "xdclient";
my $host = "localhost";
my $port = "3000";
my $tablename = "dbo.User_login";
my $db_user     = "sa";
my $db_pass     = "ablogics";
my $dsn_name    = 'DBI:ODBC:xdclient';
my $h = DBI->connect($dsn_name, $db_user, $db_pass);
my $sth=$h->prepare("SELECT password FROM dbo.User_login WHERE #username = 'satya'");
# Execute the query
$sth->execute() or die "Couldn't execute statement:
$DBI::errstr; stopped";
# Fetch each row and print it
while ( my @row = $sth->fetchrow_array() )
{
return $row[0];
}
}
 
 

[RonB]

Saying "i tried but failed" doesn't tell us anything.

1) In what way did it fail?

2) What error message did you receive?

3) What does the C4::Context module do and what error handling does it provide?