Fehlermeldung weiterer SQL-Anweisungen nach (fetch, execute, fetchrow_array) - #120946 (Allgemeines zu Perl)

xcoder44

2009-04-27 14:38

User since
2009-04-27
16 Artikel
BenutzerIn
[default_avatar]

Hallo Leute,

Ich habe folgendes Problem.
Ich arbeite mit MS-SQL Server 2005 und Windows Server 2003.

Mein Datenbankinterface ist DBI::ODBC und es funktioniert alles soweit mit den SQL abfragen, nur nicht, wenn ich es in folgender Reihe ablaufen lasse:

Code (perl): (dl )

my $fetch = $db->prepare("SELECT [zeit] FROM [doro].[dbo].[meldung] WHERE [fahrer_id]='1899';");
$fetch->execute();
my ($zeitstempel) = $fetch->fetchrow_array();
print "\n\nZeit:$zeitstempel";

sleep (1);

my $data = 'XYZ';
my ($id) = $db->selectrow_array("INSERT INTO [doro].[dbo].[system] ([bezeichnung]) VALUES('$data'); SELECT SCOPE_IDENTITY();");
print "\n\nZu suchende id:$id";

sleep (1);

my ($test2) = $db->selectrow_array("SELECT * FROM [doro].[dbo].[system] WHERE [id] = '$id';");
print "\n\nGefundene id:$id";

Ich denke es liegt an dem Handle der 'fetch'-Geschichte, welcher immer noch die Finger in der Datenbank hat, oder?

Aber eigentlich ist müsste dies doch nach 'execute' vobei sein, oder?

Was habe ich hier vergessen,
muss ich die Variable '$fetch' danach schliessen ?

(ich dachte zuerst, die Abfragen liegen zu nahe beinander, dachte die 'sleep'-Anweisungen)

Gruss, xcoder44