consulta sql con select

[guillebomtrasmiti]

Hola amigos, tengo un ligero pero grave problema...estoy haciendo un programita en visual .net 2005 contra una base de datos SQL, el motivo de mi pregunta es que tengo una tabla llamada productos y dentro de esta ademas de otros campos dos que dicen el nombre y el orden en el que deseo que salgan en el formulario principal...el caso es que claro tengo hecha una consulta para que se muestre un botón pero necesito que se muestren todos los que existan en la base de datos...que consulta debo hacer?¿', os mando mi código, gracias gracias gracias....

vereis que aquí cargo un solo botón....tengo 56 ....

Public Sub cargar_formulario()
conexion.ConnectionString = "Data Source=.\SQLEXPRESS6;AttachDbFilename=C:\VISUAL\Tp vVigoSe\TpvVigo\Tpv.mdf;" & _
"Integrated Security=True;" & _
"Connect Timeout=30;" & _
"User Instance=True"



cmd.Connection = conexion

cmd.CommandText = "select Producto from Productos where Orden=1"

conexion.Open()

Dim lector As SqlDataReader = cmd.ExecuteReader

While lector.Read

BProd1.Text = (lector("Producto").ToString)
End While
conexion.Close()

End Sub

[Aquaventus]

Mmmm segun entiendo es que quieres que muestres todos los productos que hay en la tabla "Productos"(Obviamente con todos los campos) pero no sabes como mostrarlos... No seria mejor si los mostraras en un Datagridview? Xq nosé donde quieres mostrar todos los datos ... :

Código vb:

Public Sub cargar_formulario()
conexion.ConnectionString = "Data Source=.\SQLEXPRESS6;AttachDbFilename=C:\VISUAL\Tp vVigoSe\TpvVigo\Tpv.mdf;" & _
"Integrated Security=True;" & _
"Connect Timeout=30;" & _
"User Instance=True"
 
 
 
cmd.Connection = conexion
 
cmd.CommandText = "select * from Productos where Orden=1"
 
conexion.Open()
 
'Esto se va
'Dim lector As SqlDataReader = cmd.ExecuteReader
 
'Lleno el datagridview con la consulta del producto
datagridview1.datasource = cmd.ExecuteReader()
 
 
conexion.Close()
 
End Sub
 

[guillebomtrasmiti]

no me vale primero todos los campos, solo necesito el nombre producto, que están ordenados por una columna orden del uno al infinito...no se cuantos dará de alta el cliente, tengo un formulario que necesito que al dar de alta un producto nuevo, el programa lo meta dentro de un botón que los tengo por el mismo orden...me explique bien?¿?

[guillebomtrasmiti]

no podeis ayudarme=?

[guillebomtrasmiti]

Dim nuevobotonProd As New Button

'--------------------------------------------------------------------
Dim conlumna As New DataColumn
conlumna.ColumnName.Contains("Producto")


cmd.Connection = conexion
cmd.CommandText = "select Producto from Productos ORDER BY Orden"

adapta.SelectCommand = cmd
adapta.Fill(undataset, "Productos")

For i As Integer = 0 To undataset.Tables("Productos").Rows.Count - 1
For j As Integer = 0 To undataset.Tables("Productos").Columns.Count - 1
nuevobotonProd.Text = cmd.CommandText
nuevobotonProd.BackColor = Color.Khaki
nuevobotonProd.Location = New Point(104, 320)
nuevobotonProd.Size = New Size(87, 54)
nuevobotonProd.Text = (undataset.Tables("Productos").Rows(i).Item(j).ToS tring)
Me.Controls.Add(nuevobotonProd)
Next
Next
he hecho esto pero sigue sin salirme bien...ayuda por favorrr

[Aquaventus]

La verdad no entiendo porque quieres meterlo dentro de un boton... :S pero segun veo tu logica, todos los botones que creas los pones uno encima de otro asignandole una posicion estatica, por lo que no podras ver la cantidad de botones que creaste. Imagina que tu consulta obtiene 200 registros, vas a crear 200 botones y chancarlos uno encima de otro ? por eso explicate que es lo que quieres haces porque no logro comprender lo que deseas realizar.

[guillebomtrasmiti]

JAJAJA, QUE BUENO, perdona, me explico imaginate un programa por ejemplo de un bar...esos que tickan la cocacola, y el whisky..etc...bueno, imagina que el cliente da de alta un producto nuevo, pues al lado...al lado no uno encima de otro eso es más que probable que lo tenga mal programado...necesito que salga el nuevo botón con el nuevo producto...imagina

whisky 1 whisky 2 whisky 3....

el problema es que no se como corcho hacerlo me pierdo en este punto, no se como decirle al visual.net que cuando exista un producto nuevo dentro de la tabla productos que le mire el orden y si por ejemplo es el orden 4 que cree un boton nuevo con ese tamaño que yo he puesto y aparezca el nombre del producto dentro...me explique mejor=) gracias de antemano por todo amigos

[Aquaventus]

Jajaja, ahora es otro el panorama que visualizo, ahora para generar tus botones tienes definida un area en la cual se van a crear estos? pues como te dije puede que no solo existan 5 o 6 registros, veo que tienes definido el tamaño de los botones. Seguido a esto lo botones se van a generar segun su orden( primero el de orden 1, luego el de orden 2....). Si estoy o no en lo correcto hazme saber. Ahora te mando el codigo segun entiendo. Saludos.

[guillebomtrasmiti]

eso essssss si genial''¡¡¡¡¡¡, tengo un espacio dónde tienen que aparecer 56 botones una vez se llene tengo unos botones para subir y bajar hacia los nuevos, eso es otra historia, lo que me pierdo es en este tema, estoy acostumbrado a programar para msdos y esto me está superando el visual esta genial en lo sencillo pero en los for y en los if...me pierdo y en esto todavía más...gracias gracis gracias..........aquaventus

[Aquaventus]

Código vb:

Dim nuevobotonProd As New Button
'Creo las variables que definen el area de botones por fila
Dim bxf,contador as Integer
'Creo la variables que contendran las dimensiones de los botones
Dim altoBoton, anchoBoton as Integer
'Creo las variables de los puntos en los cuales empiezo a pintar los botones
Dim x,y as Integer 
'-------------------------------------------------------------------------------------------
bxf = 4 'Por ejemplo defino 4 botones por fila
contador = 0
altoBoton= 90
anchoBoton = 60
x = 10
y = 10
 
'--------------------------------------------------------------------
Dim conlumna As New DataColumn
conlumna.ColumnName.Contains("Producto")
 
 
cmd.Connection = conexion
cmd.CommandText = "select Producto from Productos ORDER BY Orden ASC"
 
adapta.SelectCommand = cmd
adapta.Fill(undataset, "Productos")
 
For i As Integer = 0 To undataset.Tables("Productos").Rows.Count - 1
'Si alcanzo el maximo de columnas de la fila a pintar
if contador = bxf Then
'seteo el valor del contador
contador = 0
'doy la coordenada para que inicie otra fila para crear botones
y = y + altoBoton
End if
 
nuevobotonProd.BackColor = Color.Khaki
nuevobotonProd.Location = New Point(x, y)
nuevobotonProd.Size = New Size(altoBoton, anchoBoton)
nuevobotonProd.Text = undataset.rows(i).Item(0).toString()
 
Me.Controls.Add(nuevobotonProd)
'Aumento contador de columnas
contador = contador + 1
'aumento la coordenada para crear otro boton en la siguiente columna
x = x +anchoBoton
 
Next
 

Pruebalo porque lo hize a mano sin usar el visual, cualquier problema me informas. Saludos!.

[guillebomtrasmiti]

nuevobotonProd.Text = undataset.rows(i).Item(0).toString()

errorcito en este punto y yo lo he cambiado por esto, pero solo aparece un botón cuando en la base de datos tengo 3 productos dados de alta....
nuevobotonProd.Text = undataset.Tables("Productos").Rows(i).Item(0).ToSt ring()

¿puedes saber por que?., por cierto joer como se hace para saber tanto tio...me quedo flipao

[Aquaventus]

agregale un MessageBox.Show(undataset.rows(i).Item(0).toString ()) dentro del for para verificar si imprime todos los productos. Se aprende mas cuando se ayuda a los demas a solucionar sus errores ;). y me cuentas si bota solo 1 mensaje o todos los productos y el contenido.

[guillebomtrasmiti]

acuerdate que me da un error esa parte me dice que;rows no es un mienbro de system.data.dataset, yo lo cambio por este;
undataset.Tables("Productos").Rows(i).Item(0).ToSt ring()
y me sigue sacando solo un producto curiosamente el úlitmo nada más, solo crea un botón y le agrega el último nombre

[Aquaventus]

si creo que ya vi el error, cambialo asi :

Código vb:

For i As Integer = 0 To undataset.Tables("Productos").Rows.Count - 1
'Si alcanzo el maximo de columnas de la fila a pintar
if contador = bxf Then
'seteo el valor del contador
contador = 0
'doy la coordenada para que inicie otra fila para crear botones
y = y + altoBoton
End if
 
Dim nuevobotonProd As New Button
nuevobotonProd.BackColor = Color.Khaki
nuevobotonProd.Location = New Point(x, y)
nuevobotonProd.Size = New Size(altoBoton, anchoBoton)
nuevobotonProd.Text = undataset.Tables("Productos").Rows(i).Item(0).ToString()
 
Me.Controls.Add(nuevobotonProd)
'Aumento contador de columnas
contador = contador + 1
'aumento la coordenada para crear otro boton en la siguiente columna
x = x +anchoBoton
 
Next
 

la creacion de la variable boton la pongo adentro, creo que era por eso pruebalo ;)

EDIT : Llego a casa y te sigo ayudando. ahora ando en el trabajo.

[Aquaventus]

Ya lo solucioné esta probado!

Código vb:

For i As Integer = 0 To undataset.Tables("Productos").Rows.Count - 1
'Si alcanzo el maximo de columnas de la fila a pintar
if contador = bxf Then
'seteo el valor del contador
contador = 0
'doy la coordenada para que inicie otra fila para crear botones
y = y + anchoBoton
x = 10
End if
 
Dim nuevobotonProd As New Button
nuevobotonProd.BackColor = Color.Khaki
nuevobotonProd.Location = New Point(x, y)
nuevobotonProd.Size = New Size(altoBoton, anchoBoton)
nuevobotonProd.Text = undataset.Tables("Productos").Rows(i).Item(0).ToString()
 
Me.Controls.Add(nuevobotonProd)
'Aumento contador de columnas
contador = contador + 1
'aumento la coordenada para crear otro boton en la siguiente columna
x = x +altoBoton
 
Next
 

Ahora no creo que te salga error Cualquier cosa avisame. Saludos!

[guillebomtrasmiti]

genio GENIO genio GENIO genio GENIO genio si señor¡¡¡¡¡¡¡ solucionado....mil millones de agradecimientos.....que viva la madre que te parióoooo, eres un crack gracias amigo...

[Aquaventus]

jajaja de nada hombre. Mas bien cualquier otra duda nos las comentas y las solucionamos por aqui. Cdt Saludos .