Hola a todos tengo un problema vastante gordo he creado un formulario con varias Textbox y tengo aparte en un modulo una una clase llamada dsmini que carga un dataset y un data adapter pero no se como hacer que se actualizen las cajas de texto estoy atascado
El codigo del formulario en el que me atasque es el :
Public Class frmParametros
Private Sub frmParametros_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Call dsmini("select * from Parámetros", "prm")
If dbset.Tables(0).Rows(0)(0) = 0 Then
Me.Height = 533
Dim bins As New BindingSource
bins.DataSource = dbset
'bins.DataMember = dbset.Tables(0).Rows(0)(2)
tx1.DataSource = bins
tx1.DataField = dbset.Tables(0).Rows(0)(2)
'tx1.Text = dbset.Tables(0).Rows(0)(2)
tx2.Text = dbset.Tables(0).Rows(0)(3)
tx3.Text = dbset.Tables(0).Rows(0)(4)
tx4.Text = dbset.Tables(0).Rows(0)(5)
tx5.Text = dbset.Tables(0).Rows(0)(6)
tx6.Text = dbset.Tables(0).Rows(0)(7)
tx7.Text = dbset.Tables(0).Rows(0)(8)
tx8.Text = dbset.Tables(0).Rows(0)(9)
tx9.Text = dbset.Tables(0).Rows(0)(10)
tx10.Text = dbset.Tables(0).Rows(0)(11)
tx11.Text = dbset.Tables(0).Rows(0)(12)
tx12.Text = dbset.Tables(0).Rows(0)(13)
tx13.Text = dbset.Tables(0).Rows(0)(14)
tx14.Text = dbset.Tables(0).Rows(0)(15)
tx15.Text = dbset.Tables(0).Rows(0)(16)
Else
Me.Height = 138
End If
C1TextBox1.Text = dbset.Tables(0).Rows(0)(0)
C1TextBox2.Text = dbset.Tables(0).Rows(0)(1)
'asigno nombre de la delegacion
Call dsmini("select nombre from delegaciones where cd = " & C1TextBox1.Text, "deleg")
C1TextBox11.Text = dbset.Tables(0).Rows(0)(0)
' asigno el nombre de la moneda
Call dsmini("select nombre from divisas where cd = " & C1TextBox2.Text, "mon")
C1TextBox10.Text = dbset.Tables(0).Rows(0)(0)
' pongo los camopos como solo lectura
C1TextBox10.ReadOnly = True
C1TextBox11.ReadOnly = True
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call dsmini("select * from Parámetros", "prm")
Try
Me.Validate()
' dbset.GetChanges()
dbadapter.Update(dbset.Tables(0))
dbset.AcceptChanges()
Catch ex As Exception
MessageBox.Show("Error al actualizar los datos" & vbCrLf & ex.Message)
End Try
End Sub
End Class
la verdad es que he leido cosas por ahi que me falta un Bildingsource pero no se usarlo manual mente si alguno me puede ayudar se lo agradeceria
Gracias salu2