Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- my $user = '';
- my $pass = '.';
- my $connection = "dbi:Sybase:server=;database=Adventure";
- my $dbh_SQL = DBI->connect($connection, $user, $pass) or die 'Cannot connect';
- my $query_cust_main = "
- SELECT BusinessEntityID,
- Title,
- FirstName,
- LastName,
- Suffix,
- JobTitle
- FROM HumanResources.vEmployee
- order by JobTitle";
- my $query_cust_sth = $dbh_SQL->prepare($query_cust_main);
- $query_cust_sth->execute();
- my $all_cust = $dbh_SQL->selectall_arrayref($query_cust_main, {Slice => {}});
- foreach my $data (@$all_cust){
- print $data->{BusinessEntityID}." ".$data->{FirstName}." ".$data->{LastName}." ".$data->{JobTitle}."n";
- }
Add Comment
Please, Sign In to add comment