Visual Basic.NET - Porfa estoy empezando!! CLASES!!!

 
Vista:

Porfa estoy empezando!! CLASES!!!

Publicado por Jean Carlo (1 intervención) el 04/07/2006 22:55:23
Por favor alguien q me pueda ubicar como utilizar las clases que hago en VB.net en los winforms, o sea como los utilizo, alguna ayuda o algun link a alguna pagina porfavor
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Porfa estoy empezando!! CLASES!!!

Publicado por sofia (2 intervenciones) el 05/07/2006 01:23:33
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar