Visual Basic.NET - Mostrar datos en DataGrid

   
Vista:

Mostrar datos en DataGrid

Publicado por Dany josedaniel.v.solis@hotmail.com (5 intervenciones) el 10/04/2014 21:18:08
Que tal a todos.

En mi aplicacion estoy tratando de mostrar los registros de una que tengo en MySql en un control DataGridView, algo estoy haciendo mal porque no he sido capaz de realizarlo.

En mi formulario tengo 4 cajas de texto y 5 botones de comando los cuales ya estan programados para buscar,agregar,modificar o eliminar registros de Mi tabla Mysql.

En este formulario agregue un DataGridView en el cual pretendo:

>Mostrar los registros que tengo en mi tabla.
>Cuando busque un registro el cursor se situe en la linea donde esta ese registro.
>Cuando agregue o elimine un registro se refresque el DataGrid y se visualice inmediato.

Pero para hacer eso necesito cargar primeramente los datos en el DataGrid y aun no lo he logrado conseguir esto es lo que tengo hasta ahora:

Para la conexion:

Imports MySql.Data.MySqlClient

Module Modulo_conexion
Public cadena As String
Public conexion As New MySqlConnection
Public sql As String
Public mycommand As New MySqlCommand
Public myAdapter As New MySqlDataAdapter



Public Sub conectarme()

'realizo la conexion'
Try
'localhost
cadena = "server='localhost'; user id=root; pwd=root; database=rutas_de_cable"
conexion.ConnectionString = cadena
conexion.Open()
MsgBox("conexion establecida!!!")

Catch ex As Exception
MsgBox("No es Posible Establecer Conexion con la Base de Datos Debido a Problemas de Configuracion, Verifique los Parametros de Conexion Por Favor!", MsgBoxStyle.Critical, "Advertencia")
End Try

End Sub

End Module

En el Load del formulario:

Imports MySql.Data.MySqlClient

Public Class FrmAsignacion

Dim encontro As Integer

Private Sub FrmAsiganacion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

conectarme()
'encontro = 1
Dim Sql As String
Sql = ("SELECT * FROM asignacion_de_rutas")
Dim DataAdapter As New MySqlDataAdapter(Sql, conexion)
Dim Ds As New DataSet
conexion.Open()
DataAdapter.Fill(Ds, "asignacion_de_rutas")
conexion.Close()
DGVAsig.DataSource = Ds
DGVAsig.DataMember = "asignacion_de_rutas"

End Sub

Pero no me carga los datos y no me marca ningun error, al DataGrid le agregue 45 columnas mismas que tiene la tabla que quiero mostrar.

Espero me puedan ayudar.

De antemano gracias.

Saludos DS.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder