Mostrar filas depende un numero

[pepelucho]

Holas, quisiera mostrar un listado de datos que estan en mi base de datos en una tabla de mi form, como puedo hacer para generar esa tabla con las filas dependiendo el numero de datos que tengo??

Gracias de antemano

[RootK]

Hola.. tienes varias opciones.. algunas podrían ser:

1.- Hacer un top desde tu query para indicar cuantos registros deseas traerte

"select top " + variable + " * from tabla"

2.- Hacer la query y regresar la informacion a un dataset y hacer un for

...
dim ds as dataset
...
For i = 0 to Tamaño
'recorres el dataset
Next

3.- Obtener la info desde un datareader y recorrerlo hasta el tamaño que lo necesitas.

dim dr as xxxDataReader = xxxCommand.ExecuteReader()

For i = 0 to Tamaño
'obtengo el reader...
Next

Es solo una idea general.. cualquier duda por aqui andamos..

[pepelucho]

No explique bien este ticket, lo que quisiera hacer con asp.net es un codigo parecido a este que lo tengo asi en asp:

<table width="434" align="center">
<tr>
<%
counter=0
Do While Not Rs.EOF
if rs("imagen")<>"" then
%>

<td colspan="4">
<div align="center"><font size="2" color="#666666"><img src="mante/images/<%=rs("imagen")%>" vspace="0" hspace="5" border="0"><br>
<% Response.Write "<b><font face=Verdana size=1><b><a href=" &rs.Fields("enlace") & " target=_blank>"&rs("libro")&"</a> &nbsp; </b></font><br>"%>

</font></div><br>
</td>
<%
else
%>
<td colspan="4">
<%Response.Write "<b><font face=Verdana size=1><b><a href=" &rs.Fields("enlace") & " target=_blank>"&rs("libro")&"</a> &nbsp; </b></font><br>"%>
</td>
<%
end if
counter=counter+1
Rs.MoveNext
%>
<%If counter MOd 2=0 Then Response.Write "</tr><tr>"
Loop
%>
</table>

[RootK]

Sería algo así (usando un stringbuilder para un mejor performance)

...
...
'obtengo mi reader
Dim dr as SqlDataReader = myCommand.ExecuteReader()
Dim sb as New StringBuilder
...
sb.Append("<table width=434 align=center><tr>")
Do while dr.read()
If Ctype(dr("imagen"),String) <> "" Then
...
..
sb.Append("<td colspan=4>")
...
Else
...
sb.Append("<td colspan=4>")
...
End IF
counter=counter+1
If counter MOd 2=0 Then
sb.Append("</tr><tr>"")
End If

Loop

sb.Append("</table>")

Response.write(sb.ToString())

Espero que sea lo que buscas.

Salu2