RE:Porfa estoy empezando!! CLASES!!!
Espero te sirva y lo entiendas.
-------------------------------------------------
PROYECTO: COMPONENTES
-------------------------------------------------
Imports System.Data.SqlClient
Imports System.String
Imports Microsoft.VisualBasic
Public Class clsLista
Public Function ESZ(ByVal CodESZ As String, _
ByVal Estado As String) As DataTable
Dim CN As New SqlConnection(cadena de conexion)
Dim CMD As New SqlCommand
Dim DA As New SqlDataAdapter
Dim DS As New DataSet
Try
CMD.Connection = CN
CMD.CommandType = CommandType.StoredProcedure
CMD.CommandText = "GATRSS_ESZ"
CMD.Parameters.Add("@CODESZ", SqlDbType.VarChar).Value = CodESZ
CMD.Parameters.Add("@ESTADO", SqlDbType.VarChar).Value = Estado
DA.SelectCommand = CMD
CN.Open()
DA.Fill(DS, "ESZ")
ESZ = DS.Tables("ESZ")
Catch ex As Exception
ESZ = Nothing
MsgBox(ex.Message)
Finally
DS = Nothing
DA = Nothing
If CN.State = ConnectionState.Open Then CN.Close()
CN = Nothing
End Try
End Function
End class
-------------------------------------------------
WINFORM: Este es un ejemplo con componentes Infragristics pero cambias el código para .Net solo es parecido
En el Displaymember se coloca el nombre de lo que se quiere salga en la grilla y en el value el codigo de la tabla
con el que controlas el registro
-------------------------------------------------
Private Sub frmBuscarDomic_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim clsUbi As Componentes.clsLista
clsUbi = New Componentes.clsLista
Try
Dim ColX As UltraGridColumn
ColX = Nothing
ColX = cboESZ.DisplayLayout.Bands(0).Columns.Add("TNomTipESZ", "Etapa, Sector o Zona")
cboESZ.DisplayMember = "TNomTipESZ"
cboESZ.ValueMember = "PTCodTipESZ"
cboESZ.SetDataBinding(clsUbi.ESZ("", "01").DefaultView, "", True)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub