• Viernes 8 de Noviembre de 2024, 13:04

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - chevaz

Páginas: [1]
1
Visual Basic para principiantes / Re: Alguien sabe porque ....?
« en: Domingo 13 de Marzo de 2011, 00:12 »
Hola  :D
La verdad no controlo del todo Access, pero creo que hay un tipo de dato llamado Text, en el que no le asignas un mínimo o máximo de carácteres, ¿puede que sirva para eso?

Disculpame si dije cualquier cosa  :lol:

Saludos y éxito  :hola:

2
VB .NET / Pasar datos de consulta a un Datagrid
« en: Domingo 13 de Marzo de 2011, 00:08 »
Hola! Antes que nada me presento: Soy chevaz, me llamo Sebastián  :lol: y soy algo así como un 'programador aficionado' de Visual Basic.NET. Me registré en éste foro porque pude notar que cada vez que Googleo para encontrar la solución a un problema sale un link a este foro.

Les cuento mi problema:
Estoy haciendo un simple controlador de Stock, para el kiosco de un vecino/amigo. Las bases de datos que utilizo son en MySQL, la conexión la he logrado y las consultas las hace, no tengo ningún problema en eso.
Mi problema se presenta al momento de imprmir los resultados de una consulta en un datagridview, la verdad me está dando dolor de cabeza ya  :hitcomp:

He probado varios ejemplos de otras personas y sus open-source, y he utilizado éste, ya que mi código no utiliza los DataSource o controles así.

Código: vb.net
  1. Public Sub grid()
  2.         Try
  3.             Conexion = New MySqlConnection()
  4.             Conexion.ConnectionString = Sql
  5.             Conexion.Open()
  6.             Query.CommandText = ("SELECT codigo, producto, existencia, precio FROM productos")
  7.             Query.Connection = Conexion
  8.             Consultar = Query.ExecuteReader
  9.             While Consultar.Read
  10.                 Dim codigo As String = Consultar(0).ToString
  11.                 Dim producto As String = Consultar(1).ToString
  12.                 Dim existencia As String = Consultar(2).ToString
  13.                 Dim precio As String = Consultar(3).ToString
  14.                 'frmprincipal.datagrid.Refresh()
  15.             End While
  16.         Catch ex As Exception
  17.             MsgBox("Error " & ex.Message)
  18.         End Try
  19.     End Sub
  20.  

Todo va bien hasta que llega el momento de imprimir. He probado haciendo un While para que imprima todas las filas, pero no muestra nada  <_<
Si me pudieran dar una solución a mi código, o decirme otro camino para realizar esto se los agradecería! Me está dando dolor de cabeza no poder hacer eso.

Saludos y gracias por leer  :hola:

Páginas: [1]