Hi,
Use while loop after execute i.e
$sth->execute();
while(@doctyp = $sth->fetchrow_array)
{
## process ur @doctyp array here.
}
Thanks & Regards
Bala
On Mon, 31 Jan 2005 10:22:48 +0100, Atterbigler Josef
<[EMAIL PROTECTED]> wrote:
> Hi
>
> I don´t get all rows from database with my perlscript, following error
> displayed: Use of uninitialized value in concatenation (.)
>
> The same query statement on mssql server I get more rows, whats wrong?
>
> my $statement2 = "select Doctyp, Count (*) as count_doctyp from tdoc_kd where
> archdate between '05/23/2003' and '05/26/2003' group by Doctyp Order by
> count_doctyp DESC";
>
> #----------------------------------------------------------------
> # Databasequery
>
> $sth = $dbh->prepare($statement2);
> $sth->execute();
>
> @doctyp = $sth->fetchrow_array;
>
> $sth->finish;
>
> #------------------------------------------------------------------
>
> # Output
>
> print "$doctyp[0] \t";
> print "$doctyp[1] \n";
> print "$doctyp[2] \t";
> print "$doctyp[3] \n";
>
> Thanks for your help
>
> regards
> Joe
>
> *"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*
> Hinweis: Dieses E-mail kann vertrauliche und geschützte Informationen
> enthalten.
> Sollten Sie nicht der beabsichtigte Empfänger sein, verständigen Sie bitte
> den Absender und löschen Sie dieses E-mail dann sofort.
>
> Notice: This e-mail contains information that is confidential and may be
> privileged.
> If you are not the intended recipient, please notify the sender and then
> delete this e-mail immediately.
> *"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> <http://learn.perl.org/> <http://learn.perl.org/first-response>
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
