Oct
16
2007
Un ejemplo de como llenar un DataGridView a partir de una consulta a SQL. Utilizaremos una base de datos ms Access.
VB.NET:
-
Imports System.Data
-
Imports System.Data.OleDb
-
-
Public Class frmMain
-
-
Public sConexion As String = “Provider=Microsoft.Jet.OLEDB.4.0; Data Source=” & sBaseDatos
-
-
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
-
-
Dim cn As New OleDbConnection(sConexion)
-
Dim MiDataSet As New DataSet
-
Dim MiAdaptador As New OleDb.OleDbDataAdapter
-
-
Try
-
cn.Open()
-
-
‘ Creamos la consulta
-
-
Dim sql As String = “Select id_num, campo1, campo2,” & _
-
” campo3, campo4″ & _
-
” From tabla1 Where “ & _
-
” campo1 like ‘” & Trim(Replace(Me.txtBusqueda.Text, “‘”, “k”)) & “%’”
-
-
‘creamos un comando
-
Dim comando As New OleDbCommand(sql, cn)
-
MiAdaptador.SelectCommand = comando
-
MiAdaptador.Fill(MiDataSet)
-
DataGridView1.DataSource = MiDataSet.Tables(0)
-
-
Catch ex As Exception
-
‘mostramos el error
-
MessageBox.
Show(“error “ &
Err.
Number.
ToString & vbCrLf & ex.
Message)
-
Finally
-
‘cerramos la conexion solo si esta abierta
-
If (cn.State And ConnectionState.Open) <> 0 Then
-
cn.Close()
-
End If
-
End Try
-
-
End Sub
Ahora vamos a obtener el valor de una columna en una fila seleccionada con doble clic.
VB.NET:
-
Private Sub DataGridView1_RowHeaderMouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGridView1.RowHeaderMouseDoubleClick
-
-
‘ Creamos la variable que contendrá el valor
-
-
Dim Variable As Integer = CInt(DataGridView1.Item(0, DataGridView1.CurrentRow.Index).Value)
-
-
´Ahora lo mostramos
-
MessageBox.Show(CStr(Variable))
-
-
End Sub
-
End Class
Oct
13
2007
Esta es una versión similar del ejemplo para hacer login en vbnet y mssql.
Como siempre es un ejemplo sencillo para su fácil comprensión de como hacer un login en VB.Net y como base de datos Ms Access.
Vamos a necesitar una base(datos.mdb) con la tabla usuarios y los campos usuario, password y estatus de valor entero. además, en este ejemplo utilizaremos un Try - Catch - Finally para interceptar una excepción y validar el usuario y password.
Un bloque Try - Catch - Finally es un contenedor que se pone alrededor del código donde es posible que se produzca una excepción, y consta de las secciones siguientes:
Clic Para Continuar »
Jun
30
2007
Escribir en un fichero de texto con VB .NET es muy fácil.
Este es un ejemplo simple de como podemos crear o escribir dentro de un archivo de texto los datos de una tabla, podemos usarlo para registrar que datos fueron afectados por algún proceso de nuestro programa.
No olvides cambiar la ruta del archivo en tu pc C:\
VB.NET:
-
Public Sub GrabaArchivo(ByVal TablaTmpLog As DataTable)
-
-
‘Buffer = espacio de memoria diseñada para
-
‘el almacenamiento temporal de datos
-
-
Dim Bitacora As StreamWriter
-
Dim NuevaLinea As String = “”
-
Dim BitacoraPath As String = _
-
“\\Kikegavilan\Logs\” & Date.Today.ToString(“MMM dd yyyy”) & “.log”
-
-
‘ verificamos si existe
-
If File.
Exists(BitacoraPath
) =
False Then
-
‘ lo creamos
-
Bitacora =
File.
CreateText(BitacoraPath
)
-
Else
-
‘ lo abrimos para agregar texto
-
Bitacora =
File.
AppendText(BitacoraPath
)
-
End If
-
-
Dim currRow As DataRow
-
Dim RowNums As Integer
-
-
NuevaLinea = vbCrLf & “–” & vbCrLf & “Movimiento a las “ & _
-
Date.Now.ToShortTimeString & vbCrLf
-
-
‘agregamos datos al buffer en una linea nueva
-
Bitacora.WriteLine(NuevaLinea)
-
-
For RowNums = 0 To TablaTmpLog.Rows.Count - 1
-
-
currRow = TablaTmpLog.Rows(RowNums)
-
NuevaLinea = currRow(0, DataRowVersion.Current).ToString
-
-
Bitacora.WriteLine(NuevaLinea)
-
‘ limpiamos el buffer y escribimos los datos contenidos al stream
-
Bitacora.Flush() subyacente
-
Next
-
-
NuevaLinea = vbCrLf & “********************* ***** “ & vbCrLf
-
Bitacora.WriteLine(NuevaLinea)
-
Bitacora.Flush()
-
Bitacora.Close() ‘ no olvides cerrar el archivo
-
End Sub
Enlaces que te pueden interesar:
Programacion
Más información
May
30
2007
XmlReader.ReadElementString (Método)
Éste es un método auxiliar para leer elementos sencillos de sólo texto.
XmlReader.ReadElementString ()
Lee un elemento de sólo texto.
Compatible con .NET Compact Framework.
XmlReader.ReadElementString (String)
Comprueba si la propiedad Name del elemento encontrado coincide con la cadena especificada antes de leer un elemento de sólo texto.
Compatible con .NET Compact Framework.
XmlReader.ReadElementString (String, String)
Comprueba si las propiedades LocalName y NamespaceURI del elemento encontrado coinciden con las cadenas especificadas antes de leer un elemento de sólo texto.
Compatible con .NET Compact Framework.
Clic para ver un ejemplo
May
30
2007
Este es un ejemplo para leer archivos xml, probado en windows xp.
Como primer paso debemos tener un archivo XML que nos sirva para probar nuestra aplicación. Podemos crearlo con el código detallado abajo con el nombre de XMLPrueba.xml. Debemos crear este archivo en un editor como el NotePad, ya que necesitamos un archivo sin caracteres extraños.
VB.NET:
-
<?xml version=“1.0″ encoding=“UTF-8″?>
-
<usuarios>
-
<name codigo=“mtorres”>
-
<nombre>Maria </nombre>
-
<apellido>Torres </apellido>
-
</name>
-
<name codigo=“cortiz”>
-
<nombre>Carlos </nombre>
-
<apellido>Ortiz </apellido>
-
</name>
-
</usuarios>
Luego de tener nuestro archivo XML creado podremos crear nuestro código en VB.NET
Utilizando el XMLTextReader
Este formato es muy sencillo y para leer el achivo XML debemos hacerlo secuencialmente, línea por línea.
VB.NET:
-
Imports System.IO
-
Imports System.Xml
-
Module ParsingUsingXmlTextReader
-
Sub Main()
-
Dim m_xmlr As XmlTextReader
-
‘Creamos el XML Reader
-
m_xmlr = New XmlTextReader(“C:\XMLPrueba.xml”)
-
-
‘Desabilitamos las lineas en blanco,
-
‘ya no las necesitamos
-
m_xmlr.WhiteSpaceHandling = WhiteSpaceHandling.NONE
-
-
‘Leemos el archivo y avanzamos al tag de usuarios
-
m_xmlr.Read()
-
-
‘Leemos el tag usuarios
-
m_xmlr.Read()
-
-
‘Creamos la secuancia que nos permite
-
‘leer el archivo
-
While Not m_xmlr.EOF
-
‘Avanzamos al siguiente tag
-
m_xmlr.Read()
-
-
’si no tenemos el elemento inicial
-
‘debemos salir del ciclo
-
If Not m_xmlr.IsStartElement() Then
-
Exit While
-
End If
-
-
‘Obtenemos el elemento codigo
-
Dim mCodigo = m_xmlr.GetAttribute(“codigo”)
-
‘Read elements firstname and lastname
-
-
m_xmlr.Read()
-
‘Obtenemos el elemento del Nombre del Usuario
-
Dim mNombre = m_xmlr.ReadElementString(“nombre”)
-
-
‘Obtenemos el elemento del Apellido del Usuario
-
Dim mApellido = m_xmlr.ReadElementString(“apellido”)
-
-
‘Escribimos el resultado en la consola,
-
‘pero tambien podriamos utilizarlos en
-
‘donde deseemos
-
Console.WriteLine(“Codigo usuario: “ & mCodigo _
-
& ” Nombre: “ & mNombre _
-
& ” Apellido: “ & mApellido)
-
Console.Write(vbCrLf)
-
End While
-
-
‘Cerramos la lactura del archivo
-
m_xmlr.Close()
-
-
End Sub
-
End Module
Utilizando el XmlDocument
Este formato es mas complejo y nos permite recorrer los nodos sin tener que utilizar una lectura secuencial. Definitivamente este formato es más eficiente que el anterior principalmente para documentos XML muy grandes.
VB.NET:
-
Imports System.IO
-
Imports System.Xml
-
Module ParsingUsingXmlDocument
-
Sub Main()
-
Try
-
Dim m_xmld As XmlDocument
-
Dim m_nodelist As XmlNodeList
-
Dim m_node As XmlNode
-
-
‘Creamos el "XML Document"
-
m_xmld = New XmlDocument()
-
-
‘Cargamos el archivo
-
m_xmld.Load(“C:\XMLPrueba.xml”)
-
-
‘Obtenemos la lista de los nodos "name"
-
m_nodelist = m_xmld.SelectNodes(“/usuarios/name”)
-
-
‘Iniciamos el ciclo de lectura
-
For Each m_node In m_nodelist
-
‘Obtenemos el atributo del codigo
-
Dim mCodigo = m_node.Attributes.GetNamedItem(“codigo”).Value
-
-
‘Obtenemos el Elemento nombre
-
Dim mNombre = m_node.ChildNodes.Item(0).InnerText
-
-
‘Obtenemos el Elemento apellido
-
Dim mApellido = m_node.ChildNodes.Item(1).InnerText
-
-
‘Escribimos el resultado en la consola,
-
‘pero tambien podriamos utilizarlos en
-
‘donde deseemos
-
Console.Write(“Codigo usuario: “ & mCodigo _
-
& ” Nombre: “ & mNombre _
-
& ” Apellido: “ & mApellido)
-
Console.Write(vbCrLf)
-
-
Next
-
Catch ex As Exception
-
‘Error trapping
-
Console.Write(ex.ToString())
-
End Try
-
End Sub
-
End Module
Enlaces que te pueden interesar:
dotnetcr.com
Roy Rojas de http://www.dotnetcr.com
Loading ...