Jetzt hab ich noch ne Frage, warum erstellt er die Tabellen nicht wenn ich das ganze so mache???
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl
use CGI::Carp "fatalsToBrowser";
use CGI qw(:all);
use DBI;
$verbinden1="DBI:mysql:event";
$verbinden2="root";
$verbinden3="root";
$dbh = DBI->connect( "$verbinden1","$verbinden2","$verbinden3") || die
"Verbindung zur Datenbank fehlgeschlagen: $DBI::errstr";
$sql = qq{create table Event (Name VARCHAR(20) not NULL,Veranstalter VARCHAR(30) not NULL,Ort VARCHAR(20) not NULL,Location VARCHAR(20) not NULL,Datum DATE not NULL,Beginn time not NULL,Titel VARCHAR(50) not NULL,Art VARCHAR(20),Mail VARCHAR(20) not NULL,Url VARCHAR(30),Beschreibung TEXT,)};
$sth = $dbh->do( $sql );
$dbh->disconnect();
Wenn ichs nur so mache gehts
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl
use CGI::Carp "fatalsToBrowser";
use CGI qw(:all);
use DBI;
$verbinden1="DBI:mysql:event";
$verbinden2="root";
$verbinden3="root";
$dbh = DBI->connect( "$verbinden1","$verbinden2","$verbinden3") || die
"Verbindung zur Datenbank fehlgeschlagen: $DBI::errstr";
$sql = qq{create table Event (Name VARCHAR(20) not NULL,)};
$sth = $dbh->do( $sql );
$dbh->disconnect();
Danke
Tom