![]() |
|< 1 2 3 4 ... 12 >| | ![]() |
118 Einträge, 12 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#!f:/Perl/bin/perl
use strict;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use DBI;
my $dbh = DBI->connect("DBI:CSV:Kunden = f:/Apache2/cgi-bin/")
or die "Konnte Datenbank nicht oeffnen!\n$!";
my $sth = $dbh->prepare (' CREATE TABLE Kunden
( DHL integer ,
K_N integer,
Hellmann integer)')
or die "Konnte Datenbank nicht erstellen!\n$!";
$sth->execute();
$sth->finish();
$dbh->disconnect;
print header()
my $dbh = DBI->connect("DBI:CSV:f_dir=f:/Apache2/cgi-bin/");
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#!perl
use strict;
use warnings;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use DBI;
my $dbh = DBI->connect("DBI:CSV:f_dir=f:/Apache2/cgi-bin/")
or die "Konnte Datenbank nicht oeffnen!\n$!";
my $sth = $dbh->prepare (<<SQL) or die "Konnte Datenbank nicht erstellen!\n$!";
CREATE TABLE Kunden
( DHL integer ,
K_N integer,
Hellmann integer)
SQL
$sth->execute();
$sth->finish();
$dbh->disconnect;
![]() |
|< 1 2 3 4 ... 12 >| | ![]() |
118 Einträge, 12 Seiten |