Opened by Gast at 2004-04-10 23:52
User since
2004-04-11
6 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2004-04-11
6 Artikel
BenutzerIn
:D saugeil es funktioniert, aber wie könnte ich jetzt noch ne sub anhängen wo ich z.B. ne Fehlermeldung ausgebe, dass die Tabelle bereits existiert?
Hier noch für alle die dasselbe Problem wie ich hatten/haben der "test-area-code":
edit renee: [code]-Tags eingefügt...\n\n
<!--EDIT|renee|1081851723-->
Hier noch für alle die dasselbe Problem wie ich hatten/haben der "test-area-code":
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
#!/usr/bin/perl
# Einbinden der Module
#use strict;
use CGI qw/:standard :html3/;
use CGI::Carp qw/fatalsToBrowser/;
use DBI;
my $http=new CGI;
print $http->header();
print $http->start_html(-title=>'test-area');
my $db=DBI->connect('dbi:mysql:dbxxxxxxxx;dbxxx.puretec.de','dboxxxxxxx','xxxxxxxx');
my $sql_create = qq/ CREATE TABLE IF NOT EXISTS test (
vortrag_id INTEGER,
titel VARCHAR(127),
sprecher_id INTEGER,
minuten INTEGER ) /; # SQL zum erstellen einer Tabelle
my $resultcode_create = $db->do($sql_create) or warn $db->errstr;
$db->disconnect();
edit renee: [code]-Tags eingefügt...\n\n
<!--EDIT|renee|1081851723-->