Re^5: DBI::DBM - How to use this for SQL connection

Usualy files with '.sql' extension are plain text files containing SQL commands. Regarding DBD::DBM, there is no server involved in the process, just "DBM files stored in binary format".

So if you have files named usr.* you ca try using 'usr' as the table name.

Comment on Re^5: DBI::DBM - How to use this for SQL connection

Replies are listed 'Best First'.
Re^6: DBI::DBM - How to use this for SQL connection by Anonymous Monk on Apr 06, 2011 at 13:28 UTC
Thanks really for ur help. As when i open my file, it opens up with SQL with some particular Server, so only i asked this. Still i find a error when i run my Select DBM perl directly : DBD::DBM::st execute failed: Cannot open .\users.lck: No such file or directory at D:/Perl/site/lib/DBD/File.pm line 574. for Statement "SELECT COUNT() FROM users" at H:\job\modules.pl line 13. DBI::st=HASH(0x1c10300) following is the code i'm using `#!/usr/bin/perl -w use strict; use DBI; my $dbh = DBI->connect('dbi:DBM:server=RS-ERDSG06:f_ext=.sql') or die "Can't connect to $DBI::errstr"; my $sql = "SELECT COUNT() FROM users"; my $sth = $dbh->prepare($sql) or die "Can't prepare statement: $DBI::errstr"; $sth->execute(); print $sth, "\n"; $dbh->disconnect;` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^6: DBI::DBM - How to use this for SQL connection
by Anonymous Monk on Apr 06, 2011 at 13:28 UTC

Thanks really for ur help. As when i open my file, it opens up with SQL with some particular Server, so only i asked this. Still i find a error when i run my Select DBM perl directly : DBD::DBM::st execute failed: Cannot open .\users.lck: No such file or directory at D:/Perl/site/lib/DBD/File.pm line 574. for Statement "SELECT COUNT(*) FROM users" at H:\job\modules.pl line 13. DBI::st=HASH(0x1c10300)

following is the code i'm using

#!/usr/bin/perl -w
use strict;
use DBI;

my $dbh = DBI->connect('dbi:DBM:server=RS-ERDSG06:f_ext=.sql')
    or die "Can't connect to $DBI::errstr";

my $sql = "SELECT COUNT(*) FROM users";

my $sth = $dbh->prepare($sql)
    or die "Can't prepare statement: $DBI::errstr";

$sth->execute();

print $sth, "\n";

$dbh->disconnect;
[download]

[reply]
[d/l]