refrescar datagrid y listbox??
Publicado por sergio (16 intervenciones) el 27/01/2005 21:10:49
hola
es que quiero refrescar el contenido de un listbox y de un datagrid que coje los datos de una base de datos cuando el usuario inserta con un formulario de dialogo información. El codigo del formulario es el siguiente pero se ejecuta cuando se carga el formulario. como puedo hacer que cambie el contenido cuando el usuario inserta un valor. gracias .
Un saludo.
Private Sub Asignatura_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim MyConString As String = "DRIVER={MySQL ODBC 3.51 Driver};" & _
"SERVER=" & nomSer & ";" & _
"DATABASE=" & nomBD & ";" & _
"PORT=" & nomP & ";" & _
"OPTION=3;"
Dim myConnection As New OdbcConnection(MyConString)
Dim adapter As New OdbcDataAdapter
Dim query As String = "SELECT t.nombre as " + "'titulacion'" + " , a.nombre asignatura FROM titulacion AS t , asignatura AS a WHERE t.id_tit = a.id_tit"
adapter.SelectCommand = New OdbcCommand(query, myConnection)
Dim ds As New DataSet
adapter.Fill(ds, "titulacion")
myConnection.Close()
'data set ds rellenado con las dos tablas
Dim tablaTit As DataTable
tablaTit = ds.Tables("titulacion")
DataGrid1.DataSource = tablaTit
DataGrid1.SetDataBinding(ds, "titulacion")
End Sub
es que quiero refrescar el contenido de un listbox y de un datagrid que coje los datos de una base de datos cuando el usuario inserta con un formulario de dialogo información. El codigo del formulario es el siguiente pero se ejecuta cuando se carga el formulario. como puedo hacer que cambie el contenido cuando el usuario inserta un valor. gracias .
Un saludo.
Private Sub Asignatura_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim MyConString As String = "DRIVER={MySQL ODBC 3.51 Driver};" & _
"SERVER=" & nomSer & ";" & _
"DATABASE=" & nomBD & ";" & _
"PORT=" & nomP & ";" & _
"OPTION=3;"
Dim myConnection As New OdbcConnection(MyConString)
Dim adapter As New OdbcDataAdapter
Dim query As String = "SELECT t.nombre as " + "'titulacion'" + " , a.nombre asignatura FROM titulacion AS t , asignatura AS a WHERE t.id_tit = a.id_tit"
adapter.SelectCommand = New OdbcCommand(query, myConnection)
Dim ds As New DataSet
adapter.Fill(ds, "titulacion")
myConnection.Close()
'data set ds rellenado con las dos tablas
Dim tablaTit As DataTable
tablaTit = ds.Tables("titulacion")
DataGrid1.DataSource = tablaTit
DataGrid1.SetDataBinding(ds, "titulacion")
End Sub
Valora esta pregunta


0