[英]DBD::SQLite::db prepare failed: no such table Perl
我创建了一个SQLite数据库和一个名为“COMPANY”的表。
我的目的是创建一个模块 ( Connect.pm ),它祝福数据库处理程序 ($dbh) ,它是到数据库的连接,创建对象后,我可以调用 Connect.pm 中可用的插入方法。
当我尝试将数据插入数据库时,它给了我以下错误:
DBD::SQLite::db 准备失败:没有这样的表:在 temp.pl 第 6 行的 COMPANY。
DBD::SQLite::db 准备失败:没有这样的表:在 temp.pl 第 6 行的 COMPANY。
连接.pm
package Connect;
use strict;
use DBI;
use Data::Dumper;
sub new {
my $class = shift;
my $driver = "SQLite";
my $database = "WEBSITE.db";
my $dsn = "DBI:$driver:dbname:$database";
my $userid = "";
my $password = "";
my $dbh = DBI->connect($dsn, $userid, $password, { RaiseError => 1}) or die $DBI::errstr;
my $self = { dbh => $dbh};
print STDERR "Opened database successfully\n";
bless $self, $class;
return $self;
}
sub insert {
my $self = shift;
my ($id, $firstName, $lastName, $email, $comment) = @_;
my $sth = $self->{ dbh }->prepare("INSERT INTO COMPANY VALUES (?, ?, ?, ?, ?)");
my $rv = $sth->execute($id, $firstName, $lastName, $email, $comment) or die $DBI::errstr;
my $value = "Inserted Successfully";
if($rv < 0){
$value = $DBI::errstr;
}
return $value;
}
1;
临时文件
use DBI;
use strict;
use Connect;
my $obj = Connect->new();
my $status = $obj->insert("002", "Test", "User", "a\@b.com", "Comment");
$obj->disconenct();
我可以使用这个程序来创建数据库并查询它,这很有效。
use DBI;
use strict;
my $driver = "SQLite";
my $database = "WEBSITE.db";
my $dsn = "DBI:$driver:dbname=$database";
my $userid = "";
my $password = "";
my $dbh = DBI->connect( $dsn, $userid, $password, { RaiseError => 1 } ) or die $DBI::errstr;
my $sth = $dbh->prepare('INSERT INTO COMPANY VALUES (?, ?, ?, ?, ?)');
my $rv = $sth->execute( "003", "Test", "User", "a\@b.com", "Test Comment" ) or die $DBI::errstr;
您模块中的 DSN 是错误的:“DBI:$driver:dbname:$database”应该是“DBI:$driver:dbname=$database”(dbname 后面应该有一个等号,而不是冒号)。 ThisSuitIsBlackNot 发表于 1 月 10 日 15:57 是正确答案...
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.