Leser: 2
|< 1 2 >| | 16 Einträge, 2 Seiten |
1
2
3
4
5
my $DBN="DBI:mysql:produkte";
my $DBUSER="user";
my $DBPASS="pass";
my $dbh = DBI->connect($DBN,$DBUSER,$DBPASS) or die $DBI::errstr;
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
!/usr/bin/perl
use strict;
use warnings;
use DBI;
use DBD::ODBC;
my $DSN='driver={SQL Server};Server="zdvsvlis";uid="";pwd=""';
my $dbh = DBI->connect("dbi:ODBC:$DSN") or die $DBI::errstr;
my $statement_create="Create database produkte";
my $sth_create=$dbh->prepare($statement_create) or die $DBI::errstr;
$sth_create->execute();
$sth_create->finish();
$dbh->disconnect();
|< 1 2 >| | 16 Einträge, 2 Seiten |