sub GetArray { my($this, $stmt) = @_; unless($this->{Cnn}) { Win32::MsgBox('Keine Verbindung!'); return undef; } my @retArr; my $rst = $this->{Cnn}->Execute($stmt); unless($rst->EOF and $rst->BOF) { $rst->MoveFirst; while(not $rst->EOF) { push(@retArr, [$rst->Fields(0)->{value}]); for my $_sp (0..$rst->Fields->{count}) { push(@{$retArr[$_sp]}, $rst->Fields($_sp)->{value}); } $rst->MoveNext; } } return \@retArr; }