jueves, agosto 31, 2006

Llenando un ListView en VB.NET



Imports System.Data.SqlClient

Public Class frmCliente

Dim cn As New SqlConnection
Dim da As New SqlDataAdapter
Dim ds As New DataSet
Dim cmd As New SqlCommand

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

cn = New SqlConnection("data source = servidor; initial catalog = Northwind; User Id = sa; Password = password")
cmd = New SqlCommand("SELECT * FROM Customers", cn)
da = New SqlDataAdapter
da.SelectCommand = cmd
cn.Open()
da.Fill(ds, "Customers")
cn.Close()
MostrarClientes()

End Sub

Private Sub MostrarClientes()
Dim objListItem As New ListViewItem
Me.ClientesListView.Items.Clear()

For Each drw As DataRow In ds.Tables("Customers").Rows
objListItem = ClientesListView.Items.Add(drw.Item("CompanyName").ToString, 0)
objListItem.SubItems.Add(drw.Item("ContactName").ToString)
objListItem.SubItems.Add(drw.Item("Phone").ToString)
objListItem.SubItems.Add(drw.Item("Region").ToString)
Next

End Sub
End Class

martes, agosto 29, 2006

Cómo... saber cuando usar Protected, Private, etc.

Estos modificadores de declaraciones de clases, métodos, propiedades y variables, se usarán cuando queramos modificar el "alcance" de visibilidad de dichos miembros.

Private:
Un miembro declarado como Privado, sólo es accesible en la clase en la que se ha declarado.

Protected:
Un miembro declarado como Protected es accesible en la clase en la que se ha declarado y en las que deriven de ella.

Friend:
Un miembro declarado como Friend es visible en:
- la clase en la que se ha declarado,
- el Namespace en el que está dicha clase,
- en el mismo programa en el que está la declaración; por ejemplo, si se compilan varios ficheros con distintos Namespaces en un mismo programa (ejecutable o componente).

Protected Friend:
Idem que Friend, además de ser visible en las clases derivadas.

Public:
Visible por todo el mundo.

jueves, agosto 24, 2006

Un "firefox" de verdad