Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

bindingsource

22/05/2006 - 20:56 por gabriel | Informe spam
necesitaria saber como relacionar una serie de textboxes en un winform con un
dataset que creé y llené por código. Lo que tengo también es un BindingSource
apuntado al dataset (a una tabla de este) y una BindingNavigator unida a
este. Con la binding Navigator puedo pasear perfectamente por los registros
aunque no veo los datos, que quiero verlos en los textboxes que todavía no
pude unir. Los KB que encuentro en msoft hablan todos de como hacer esto
arrastrando los componentes y utilizando asistentes, pero yo lo vengo
haciendo por código y quisiera saber como trabajarlo así. Muchas Gracias
 

Leer las respuestas

#1 Carlos Gómez
23/05/2006 - 06:28 | Informe spam
Private Sub Form_Load(ByVal sender As Object, ByVal e As EventArgs) _
Handles MyBase.Load
CrearDataSet()
IniciarBinding()
End Sub

Dim datos As New DataSet()
Dim bmb As BindingManagerBase

Private Sub CrearDataSet()
Dim cn as New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data " & _
"Source=C:\Archivos de programa\Microsoft Visual Studio\VB98\BIBLIO.MDB")
cn.Open()
Dim da As New OleDbDataAdapter("SELECT * FROM Publishers",cn)
da.Fill(datos,"Publishers")
cn.Close()
End Sub

Private Sub IniciarBinding()
textbox1.DataBinding.Add("Text",datos,"Publishers.Name")
TextBox2.DataBinding.Add("Text",datos,"Publishers.City")
TextBox3.DataBinding.Add("Text",datos,"Publishers.State")
bmb = Me.BindingContext(datos,"Publishers")
bmb.Position = 0
End Sub

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) _
Handles Button1.Click
bmb.Position +=1
End Sub

Private Sub Button2_Click(ByVal sender as Object, ByVal e As EventArgs) _
Handles Button2.Click
bmb.Position -=1
End Sub


Desde Aguadulce - España
Carlos Gomez

Preguntas similares