Opened by master at 2005-06-06 10:52
User since
2003-10-20
610 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-10-20
610 Artikel
BenutzerIn
Ja müsste eigentlich mit nur einer $dbh gehen..
jedoch merkert er dann, dass "$dbh->prepare" noch mit anderen ergebnissen belegt ist.
Dein code bringt mir leider keine fehlermeldung... er hängt einfach nur auf... wie vorher...
In den Subs steht folgendes:
ich habe nun den code nochmal vereinfacht
Hier der komplette Code:
dazu kommt wie gesagt folgende fehlermeldung:
---
DBD::ODBC::st execute failed: [Microsoft][ODBC SQL Server Driver]Die Verbindung
ist mit Ergebnissen von einem anderen hstmt belegt (SQL-HY000)(DBD: st_execute/S
QLExecute err=-1) at usw.
----
Darum habe ich auch es auch mit mehreren connects($dbh3) versucht. Das seltsame.. mit select gehts.. :-(
jedoch merkert er dann, dass "$dbh->prepare" noch mit anderen ergebnissen belegt ist.
Dein code bringt mir leider keine fehlermeldung... er hängt einfach nur auf... wie vorher...
In den Subs steht folgendes:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
sub open_sql
#SQL öffnen
{
$dbh = DBI->connect($_[1]);
$sth = $dbh->prepare($_[0]);
$sth->execute;
}
sub close_sql { $sth->finish(); $dbh->disconnect();} #SQL schliessen....
ich habe nun den code nochmal vereinfacht
Hier der komplette Code:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
use DBI;
use DBD::ODBC;
use strict;
my $dbh = DBI->connect('dbi:ODBC:driver={SQL Server}; server={192.168.0.118}; database=TWIXGAMS');
my $sth = $dbh->prepare("SELECT Feld32,ID FROM READY2 WHERE bearbeitet is NULL");
$sth->execute;
while (my $result = $sth->fetchrow_hashref() )
{
print "$result->{'ID'}\n";
my $sth3 = $dbh->prepare("UPDATE READY2 SET bearbeitet=1 WHERE ID=?") or die $dbh->errstr();
$sth3->execute($result->{'ID'}) or die $dbh->errstr();
$sth3->finish();
print "erledigt"; exit;
}
$sth->finish();$dbh->disconnect();
dazu kommt wie gesagt folgende fehlermeldung:
---
DBD::ODBC::st execute failed: [Microsoft][ODBC SQL Server Driver]Die Verbindung
ist mit Ergebnissen von einem anderen hstmt belegt (SQL-HY000)(DBD: st_execute/S
QLExecute err=-1) at usw.
----
Darum habe ich auch es auch mit mehreren connects($dbh3) versucht. Das seltsame.. mit select gehts.. :-(
$i='re5tsFam ^l\rep';$i=~s/[^a-z| ]//g;$\= reverse "\U!$i";print;