Guten Morgen,
Ich habe mir eine Funktion gebaut die mir einen
SQLDataReader zur Verf�gung stellt. Die sieht so aus:
Public Shared Function CreateRS(ByVal sql)
Dim cn As SqlConnection
Dim cmd As SqlCommand
Dim dr As SqlDataReader
cn = New SqlConnection("workstation id=VERWEYEN_132;packet
size=4096;user id=sa;data source=ESALES;persist security info=True;initial
catalog=kKatalog;password=")
cn.Open()
cmd = New SqlCommand(sql)
cmd.Connection = cn
dr = cmd.ExecuteReader(CommandBehavior.Default)
dr.Read()
CreateRS = dr
End Function
In einer anderen Funktion nutze ich die o.g. und will per Do while
Reader.read()
die einzelnen Datens�tze durchgehen. Leider geht er gar nicht in die
Schleife
rein obwohl ein Datensatz vorhanden ist. Wenn ich ein Response.Write davor
raushaue geht es. Jemand ne Idee?
Hier die zweite Funktion:
Function pgBilder(ByVal intProduktgID) 'Gibt Produktgruppen-Bilder
zur�ck
Dim rsPgBilder, strResult
Dim pgImageFolder =
ConfigurationSettings.AppSettings("pgImageFolder")
rsPgBilder = Tools.CreateRS("Select * FROM tProduktGruppenbilder
WHERE f_produktgID = " & intProduktgID & " ORDER BY f_pgbSort")
'Response.Write("BILD:" & rsPgBilder("f_pgbID") & "<--")
Do While rsPgBilder.read()
strResult += "TEST"
strResult += "<a href=""javascript:""
onclick=""OpenWindow('lupe.asp?img=" & rsPgBilder("f_pgbID") & "." &
rsPgBilder("f_pgErweiterung") & "&erw=" & rsPgBilder("f_pgErweiterung") &
"')"">"
If rsPgBilder("f_pgErweiterung") <> "gif" Then
strResult += "<img border=""0"" src=""" &
Tools.ResizeImg(Server.MapPath(pgImageFolder) & "\" & rsPgBilder("f_pgbID")
& "." & rsPgBilder("f_pgErweiterung"), 120, 120) & """></a><br><span
class=""pgBildText"">" & rsPgBilder("f_pgbText") & "</span><br><br>"
Else
strResult += "<img border=""0"" width=""120"" src=""" &
pgImageFolder & rsPgBilder("f_pgbID") & "." & rsPgBilder("f_pgErweiterung")
& """></a><br><span class=""pgBildText"">" & rsPgBilder("f_pgbText") &
"</span><br><br>"
End If
Loop
strResult += "Hier sollte was stehen!"
pgBilderPH.InnerHtml = strResult
rsPgBilder.close()
End Function
Gruss, Dirk
*************************
_______________________________________________
This ASP.NET email is sponsored by:
UDEX ProMenu.Net - Die Software f�r Navigation - Jetzt kostenlos testen!
Tree- Style, Horizontal- Slide, Vertical- Slide. http://www.udexnet.com
_______________________________________________
Asp.net Mailingliste, Postings senden an:
[EMAIL PROTECTED]
An-/Abmeldung und Suchfunktion unter:
http://www.glengamoi.com/mailman/listinfo/asp.net
*************************
