こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

perl初心者なのですが

use strict;
use CGI;
use DBI;

my $dbh = DBI->connect("dbi:ODBC:DB_test");

my $NAME1 = CGI->new();
my $ADDRESS1 = CGI->new();
my $LETTER_NUM1 = CGI->new();
my $TEL_NUM1 = CGI->new();

my $NAME = $NAME1->param('name');
my $ADDRESS = $ADDRESS1->param('address');
my $LETTER_NUM = $LETTER_NUM1->param('letter_num');
my $TELL_NUM = $TEL_NUM1->param('tell_num');

my $sth = $dbh->prepare("INSERT INTO table1(name1,address1,letter_num1,tell_num1) values(?,?,?,?)");
$sth->execute($NAME,$ADDRESS,$LETTER_NUM,$TELL_NUM);
$sth->finish;
$dbh->disconnect;

フォームから受け取ったデータをデータベースに格納したいのですが、うまくいきません。誰か教えてください。

投稿日時 - 2009-01-13 03:34:08

QNo.4626208

すぐに回答ほしいです

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

何故VBのカテゴリーなのか(Perlよくしりません)は別として、
以下のようでは

use strict;
use CGI;
use DBI;
my $q = new CGI;
print $q->header(-type=>'text/html; charset=Shift_JIS');
print '
<html>
<head>
<meta http-equiv="content-type" content="text/html;charset=Shift_JIS">
</head>
<body>
<form action="hoge.cgi" method="post">
<input type="text" name="name">
<input type="text" name="address">
<input type="text" name="letter_num">
<input type="text" name="tel_num">
<input type="submit" name="button", value="SUBMIT">
</form>
</body>
</html>
';
my $NAME = $q->param('name');
my $ADDRESS = $q->param('address');
my $LETTER_NUM = $q->param('letter_num');
my $TEL_NUM = $q->param('tel_num');
my $sth = $dbh->prepare("INSERT INTO table1(name1,address1,letter_num1,tell_num1) values(?,?,?,?)");
$sth->execute($NAME,$ADDRESS,$LETTER_NUM,$TELL_NUM);
$sth->finish;
$dbh->disconnect;

投稿日時 - 2009-01-13 15:15:03

あなたにオススメの質問