|< 1 2 3 >| | 29 Einträge, 3 Seiten |
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
#Der MySQL-Code:
#create database Mitarbeiter;
#use Mitarbeiter;
#create table Mitarbeiter(
#ID integer not null auto_increment,
#Nachname varchar(45),
#vorname varchar(45),
#Telefon integer,
#Kuerzel varchar(10),
#KST integer,
#Mail varchar(45),
#Buero varchar(10)
#primary key (ID));
use strict;
use warnings;
use DBI;
my $option = 1;
my $auswahl = 1;
my $user = 'root';
my $pass = '12345';
my $db = 'Mitarbeiter';
my $host = 'localhost';
my $driver = "DBI:mysql:$db:$host";
my $dbh = DBI->connect($driver, $user, $pass) or die $DBI::errstr;
......
#Person eingeben
if ($option == 1){
print "\nBitte geben Sie den Nachnamen ein. \n";
my $nachname = <STDIN>;
print "\nBitte geben Sie den Vornamen ein. \n";
my $vorname = <STDIN>;
print "\nBitte geben Sie die interne Telefonnummer ein. \n";
my $tel = <STDIN>;
print "\nBitte geben Sie den Kuerzel ein. \n";
my $kuerzel = <STDIN>;
print "\nBitte geben Sie die Kostenstelle ein. \n";
my $kst = <STDIN>;
print "\nBitte geben Sie die E-Mail ein. \n";
my $mail = <STDIN>;
print "\nBitte geben Sie die Bueronummer ein. \n";
my $buero = <STDIN>;
print "\n\n";
my $statement = 'insert into Mitarbeiter values(null, $nachname, $vorname, $tel, $kuerzel, $kst, $mail, $buero)';
my $sth = $dbh->prepare($statement)or die $DBI::errstr;
$sth->execute() or die $DBI::errstr;
};
|< 1 2 3 >| | 29 Einträge, 3 Seiten |