4 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!/usr/bin/perl -w
use DBI;
$dbname = "mydb";
$host="myhost";
$port="myport";
$username="user";
$password="pwd";
$dbh = DBI->connect("dbi:PgPP:dbname=$dbname;host=$host;port=$port",
$username, $password
) or die $DBI::errstr;
print "CONNECTED";
$sth = $dbh->prepare("INSERT INTO test.test_tabelle(id, name) VALUES(?, ?)");
$sth->bind_param(1, '1234') or die $sth->errstr;
$sth->bind_param(2, 'zipfeklatscher') or die $sth-errstr;
$sth->execute or die $sth->errstr;
4 Einträge, 1 Seite |