I wonder why my perl can not execute query "use $database".
Please tell me where is my fault.
Here is the error message and my code: === #error message DBD::ADO::db do warning: Can't Execute 'use gua' === #my code: #!/usr/bin/perl use strict; use DBD::ADO; use DBI; my $dsn="sigma"; my $uname="sa"; my $pword="penguin"; my $host="127.0.0.1"; mybd4l=("gua");
print "I am dumping...bd4ln"; my $elemenbd4l; foreach $elemenbd4l(bd4l){ my $strbd4l="use $elemenbd4l"; print "$strbd4ln"; my $dbh1 = DBI->connect("dbi:ADO:$dsn", $uname, $pword) || die "Could not open SQL connection."; my $rsnya = $dbh1->do($strbd4l);