Hay algo mejor

[serbc24]

Hola a todos:

Me han pasado un codigo para cuando quiero abrir un formulario y que se llenen de datos, el codigo es bastante complicado, lo que me gustaria saber si hay algo mas comodo que el codigo que os pongo:

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

Try

Dim oConexion As New SqlConnection

Dim oDataAdapter As SqlDataAdapter

'crear conexion

Dim strcon As String

strcon = "Server=(local);Database=video;Trusted_Connection= TRUE;"

oConexion.ConnectionString = strcon

'crear adaptador

oDataAdapter = New SqlDataAdapter("SELECT * from SOCIOS", oConexion)

'crear commandbuilder

Dim oCommandBuilder As SqlCommandBuilder = New SqlCommandBuilder(oDataAdapter)

'crear dataset

Dim odataset As DataSet

odataset = New DataSet

oConexion.Open()

'llenar con el adaptador el dataset

oDataAdapter.Fill(odataset, "socios")

oConexion.Close()

'establecer el indicador del registro

'a mostrar en la tabla

Dim iposicFila As Integer = 0

'cargar columnas del registro en

'los controles del formulario

Dim oDataRow As DataRow

oDataRow = odataset.Tables("socios").Rows(iposicFila)

'cargar los controles del formulario con

'los valores de los campos del registro

Me.txtNumsocio = oDataRow("numsocio")

Catch ex As Exception

'Si se produce algún error

'lo capturamos mediante el objeto

'de excepciones particular para

'el proveedor SqlConnection

MsgBox(ex.Message)

End Try

End Sub



Muchas Gracias