Visual Basic .Net codigos de apoyo!!!

Leer Archivos de Excel 2007 con Asp.Net

2010-08-17T15:11:00.000-07:00

En algunas ocasiones es necesario leer informacion almacena en formato de Excel a manera de base de datos y una vez almacenada en un DataSet mostrar los datos por ejemplo en un GridView.

Vamos a ver un ejemplo secillo para leer registros de Excel 2007 y mostrarlos en un grid, y a la ves insertar un nuevo registro capturado desde la interfaz de usuario con ASp.Net

Bien, pues manos a la obra

Aqui tienen el archivo de Excel de Ejemplo, como lo mensionamos antes, tiene formato de Office 2007 (.xlsx)

En un nuevo proyecto Web, agregamos un CommandButton, un label y un Gridview, tal como se observa en la imagen:

El Codigo:

En el Button, agregamos:

Dim archivo As String 'Declaramos una variable de tipo String para definir la ruta al archivo
archivo = Server.MapPath("agenda.xlsx") 'Asignamos la ruta
GridView1.DataSource = LeerArchivoExcel(archivo) ' Invocamos a la funcion LeerArchivoExcel, la cual devolverá un Dataset y sera el origen de los datos para el GridView
GridView1.DataBind()

El codigo de la funcion es el siguiente:
Private Function LeerArchivoExcel(ByVal file) As DataSet

'La cadena de conexion para leer un archivo de Excel 2007 es Microsoft.ACE.OLEDB.12.0, tal como se muestra a continuación
Dim m_sConn1 As String = "Provider=Microsoft.ACE.OLEDB.12.0;" & _"Data Source=" & file & ";" & _"Extended Properties=""Excel 12.0;HDR=YES"""

'Generamos objeto de conexion
Dim conn2 As New OleDbConnection(m_sConn1)

'Definimos la consulta SQL para leer la informacion del archivo de Excel, noten que hacemos referencia a las Hojas, se puede leer cualquier hoja, siempre y cuando indiquemos el nombre con un signo $ y encerrado entre []
Dim consulta as String
consulta="Select * From [Hoja1$]"

'Lo siguiente ejecutar la conexion y la consulta y llenar el DataSet que devolvera la función
Dim da As New OleDbDataAdapter(consulta, conn2)

Dim ds As New DataSet()

Try
da.Fill(ds)
Return ds
Catch ex As Exception
Me.lbError.Text = ex.Message & file
Finally
conn2.Close()
End Try
End Function

Los espacio de nombres a usar son:
Imports System.Data.OleDb
Imports System.Data

y eso es todo, en la proxima publicacion mostraremos como agregar un registro al archivo de Excel desde ASP.Net

Cambio de Piel

2010-08-06T16:16:00.000-07:00

Bien, grata sorpresa el poder cambiar el diseño del Blog, hace ya un buen rato que no posteaba nada nuevo en mi blog, prometo hacerlo mas seguido.

Saludos!!!

2008-07-02T11:33:00.000-07:00

Hola a todos los visitantes de este humilde blog, como lo habran notado tiene ya dos meses que no he posteado nada, y en parte no lo he echo por el tiempo y mi trabajo, ademas de que por mi mente paso la idea de saber si quienes visitan este blog encuentran util la informacion aqui mostrada, por eso abri la encuesta, solo que tengo mas visitas que votos, por eso le invito a votar para de esa manera animarme y programar un tiempo para seguir posteando.

Saludos!!!

Enviar emails con Visual Basic

2008-04-30T07:48:00.000-07:00

Hola en este sencillo ejemplo enviaremos un email con las credenciales de gmail, aqui las capturas de la aplicacion:

Diseñamos un formulario parecido a este

y el resultado...

El codigo de la aplicacion:

Imports System.Net.Mail 'Libreria para el envio de emails
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enviar.Click
'creamos un nuevo mensaje de correo
Dim correo As New MailMessage
'De
correo.From = New MailAddress(Me.from.Text)
'Para
correo.To.Add(Me.ToAddress.Text)
'Asunto
correo.Subject = Subject.Text
'Cuerpo del correo
correo.Body = Body.Text
'Mostrar como HTML
correo.IsBodyHtml = False
'Prioridad de el correo
correo.Priority = MailPriority.Normal
'Usaremos por default a gmail y su puerto SMTP
Dim smtp As New SmtpClient()
smtp.Host = "smtp.gmail.com"
smtp.Port = 587
smtp.Credentials = New System.Net.NetworkCredential("cuenta@gmail.com", "password")
smtp.EnableSsl = True
Try
'enviamos el correo
smtp.Send(correo)
MsgBox("Mensaje enviado satisfactoriamente", MsgBoxStyle.Information, "Envio de Emails")
Catch ex As Exception
MsgBox("Ocurrio el siguiente Error:" & ex.Message, MsgBoxStyle.Critical, "Envio de Emails")
End Try
End Sub
End Class

Como observaran es necesario contar con credenciales reales de gmail, despues lo haremos con cualquier otra cuenta, Saludos!!!

Generar codigos de Barras en Visual Basic .Net

2008-04-25T10:44:00.000-07:00

Imagen de la Aplicacion:

Resultado de la impresion:

Para generar codigos de barras instalaremos previamente la fuente:3 of 9 Barcode

y el codigo de la aplicacion a continuación...

Imports System.Drawing.Printing

Public Class Form1
Dim Contenido As PrintPageEventArgs
Dim WithEvents Documento As New PrintDocument
Dim impresora As New PrintDialog

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Configurar()
Documento.Print()
End Sub

Private Sub Documento_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles Documento.PrintPage
Contenido = e
Contenido.Graphics.DrawString("*" & Me.TextBox1.Text & "*", New Font("3 of 9 Barcode", 14), Brushes.Black, 50, 300)
Contenido.Graphics.DrawString(Me.TextBox1.Text, New Font("Arial", 7), Brushes.Black, 90, 315)
Contenido.HasMorePages = False
End Sub

Private Sub Configurar()
impresora.Document = Documento
impresora.ShowDialog()
Documento.PrinterSettings = impresora.PrinterSettings
End Sub

End Class

PHP y Base de Datos

2008-04-08T10:01:00.000-07:00

Bien si lo que les interesa es pasar rapidamente al trabajo con base de datos, aqui tienen un buen manual

Descargar Manual

Y bueno, si desean realizar sus practicas monten su servidor Apache, instalen el PHP y el MySQL, y como se hace todo eso??? pues sencillamente con este paquete que incluye los tres.

Descargar FoxServ

y me permito recomendar tambien en siguiente enlace:
Memorias de un aprendiz de PHP

Crear un Chat con Java

2008-04-08T09:52:00.000-07:00

Bien este es un manual que explica las liberias java.net y java.io en el uso de una aplicacion para un chat, recomendado:

Descargar Manual

PHP Manual

2008-04-08T09:47:00.000-07:00

El PHP es un lenguaje muy practico y muy potente, ademas que corre en servidores con software libre como linux, a continuacion un manual sobre este lenguaje:

Manual PHP 4

Espero les sea de utilidad

Java/Swing

2008-03-25T09:00:00.000-07:00

Swing es una tecnologia que utiliza Java para aplicaciones de Escritorio aqui les dejo un manual que he encontrado en la red, para los que desean aprender este facinante lenguaje:

Descargar Manual Java

Espero les sea de utilidad

Resultado de la Encuesta

2008-03-24T08:26:00.001-07:00

Bien, como podran observar en la escuela realizada se voto que se incluya informacion de otros lenguajes, en breve iremos posteando informacion correspondiente.

Gracias por sus votos

DataSet, XML y Flash

2008-03-11T10:06:00.001-07:00

En ocaciones tenemos registros leidos desde la base de datos y almacenados en un DataSet, y se nos ocurre que podremos mostrarla en una aplicacion de Macromedia Flash, pues bien, Flash no tiene un soporte nativo para base de datos, pero si la lectura de archivos XML.

Pues bien para crear un archivo XML desde el DataSet basta lo siguiente:

'Esta es una clase que facilita la conexion y la ejecusion de consultas
Dim Conn As New Conectividad()
'Mi Objeto DataSet
Dim ds As New DataSet
'Llenamos el DataSet con el resultado de la consulta
ds = Conn.Consulta("Select * from datos", strError)
'E invocando al metodo WriteXml podemos crear tan facilmente un archivo XML
ds.WriteXml(Server.MapPath("MyXML.XML"), XmlWriteMode.IgnoreSchema)

Una ves creado el archivo XML, en Flash bastará este script para leer y mostrar cada uno de los registros del XML

//Este va en el fotograma 1
//Variables globales para control de recorrido por el XML
_global.pos=0;
_global.limite=0;

//Nuevo Objeto XML
var obj_xml:XML = new XML();
obj_xml.ignoreWhite = true;
//Esta Funcion sera invocada cuando se intente cargar un archivo XML
obj_xml.onLoad = function(exito) {
//La variable exito sera "true" si se cargo bien y "false" si el archivo no existe o no se pudo cargar por errores en su estructura
if (exito) {
//Numero Total de registros
_global.limite=obj_xml.firstChild.childNodes.length;
//modelo, des y precio son los nombres de las instancias de componentes TextInput
modelo.text=obj_xml.firstChild.childNodes[_global.pos].childNodes[1].firstChild.nodeValue;
des.text=obj_xml.firstChild.childNodes[_global.pos].childNodes[3].firstChild.nodeValue;
precio.text=obj_xml.firstChild.childNodes[_global.pos].childNodes[2].firstChild.nodeValue;

//img es una instancia del componente Loader, al cual le indicamos la ruta de la imagen a mostrar
img.contentPath=obj_xml.firstChild.childNodes[_global.pos].childNodes[4].firstChild.nodeValue;
img.load();
} else {
trace("Error"); //Que indique que hubo un error si no cargo el archivo
}
};

//Esta es la función que invoca la carga del archivo
function cargarXML() {
obj_xml.load("myXML.XML");
}

//Cargamos la funcion al iniciar
cargarXML();

Si deseamos un recorrido por cada uno de los registros deberemos incluir un boton de avance y otro de retroceso y escribir el siguiente script

//Boton retroceso
on (release) {
//Llamamos a la función de carga del archivo XML
_global.pos--;//Disminuimos la posicion actual
if (_global.pos<0) style="color: rgb(102, 102, 102);">//Si se paso del indice 0ç
_global.pos=0; //Lo ponemos en 0
cargarXML(); //Cargamos el archivo nuevamente, pero con la posicion indicada
}

//Boton Avanzar
on (release) { //Llamamos a la función de carga del archivo XML
_global.pos++;//aumentamos la posicion actual
if (_global.pos>_global.limite - 1) //Si nos pasamos del limite
_global.pos=_global.limite-1;// Ponemos el indice en el ultimo registro
cargarXML(); //Cargamos nuevamente el archivo
}

Cualquier comentario sera bien recibido...

Manual Visual Basic .Net

2008-02-22T07:38:00.000-08:00

Aqui les dejo un manual de visual basic .net

Descargar Manual Visual Basic

Uso de Propiedades en los Formularios

2008-02-18T07:09:00.000-08:00

Quiza algo que esta a nuestra disposicion y que en ciertos momentos puede resultarnos util, es el crear propiedades en los formularios que utilizamos, puesto que los formularios son Clases, se puede crear las propiedades que querramos, el uso de las propiedades se puede emplear cuando tengamos talves que pasarle un valor a un formulario, proveniente de uno previo, y despues mostrarlo en una etiqueta o hacer algun proceso con dicho valor

Public Class Form1
'Aqui declaramos el miembro de la clase, que simplemente es una variable
Private Valor_Propiedad As String
'Definimos sus métodos Get y Set, para almacenar el valor y para poder mostrarlo
Public Property Valor() As String 'La propiedad debe llamarse diferente al miembro
Get
return Me.Valor_Propiedad 'Aqui regresa lo que tenga el miembro de la clase
End Get
Set(ByVal value As String)
Me.Valor_Propiedad=value 'Aqui se almacena el valor que se le asigne
End Set
End Property
End Class

Bien y cuando hagamos refrerencia al formulario hariamos algo asi:
'Para Almacenar el valor de la propiedad
Dim MyForm as New Form1
MyForm.Valor="Saludos a todos!!!" 'Aqui le pasamos el valor
MyForm.Show

'Para Leer el valor de la propiedad
Datos=MyForm.Valor 'Aqui leemos el valor

Las propiedades tambien se pueden definir como solo lectura con el modificador: ReadOnly

Private Valor="Este valor es de solo Lectura"
Public ReadOnly Property Solo_Lectura()
Get
Return Valor
End Get
End Property

CrystalReports

2008-02-13T07:06:00.002-08:00

Hace un tiempo me preguntaba como mostrar un Reporte de CrystalReports pero que este se actualizara de acuerdo al Contenido de un DataSet, bien, pues aqui un sencillo ejemplo:

'Obviamente primero deben crear su Reporte en Crystal, ok
'Declaramos una variable local instanciada con el Nombte del Reporte Creado
Dim Report As New Reporte_Ventas

'oConn es un objeto de la Clase CReport, dicha Clase se conecta a la Base de Datos SQL_Server
'(la anexare mas abajo)
Dim oConn As New CReport

'Este DataSet estara vinculado al reporte, para muestre el resultado de la consulta
Dim dsConn As New DataSet

'Mi variable de error
Dim strError As String = ""

'Ahora mi DataSet local se llenara con el resultado de la consulta en la Base de Datos
'SP_Report es un procedimiento almacenado en la base de datos
'Obviamente tambien puediera ser una consulta SQL
dsConn = oConn.Reporte("SP_REPORT", strError)
If strError = "" Then
Report.Load(RutaReporte & "Reporte2.rpt") 'Aqui vinculamos la Ruta fisica del reporte
Report.SetDataSource(dsConn.Tables("TB_REPORTE")) 'Vinculamos los datos a mostrar
'con el resultado de la consulta en el DataSet, aqui algo importante, el nombre de la tabla
'en el DataSet, debe coincidir con la tabla utilizada en el reporte
Report.SetDatabaseLogon(User, Pwd, server, basedatos) 'Aqui se controla el acceso a la
'Base de Datos, usuario, password, servidor y nombre de la base de datos usada
Report.SetParameterValue(0, Nombre) 'En caso de que el reporte incluya parametros,
'asi les pasamos el valor a mostrar

'Nuestro Formulario debe incluir el CrystalReportViewer para visualizarlo
CrystalReportViewer1.DisplayGroupTree = False
CrystalReportViewer1.ReportSource = Report

'O si lo queremos imprimir directo, seria:
CrystalReportViewer1.PrintReport
Else
MsgBox(strError)
End If

Codigo de la Clase CReport

Imports System.Data.SqlClient
Imports Microsoft.VisualBasic

Public Class CReport

Private strConx As String

Public Sub New()
strConx = Data Source=HCANOS\SQL_2005;Initial catalog=sistema;password=0000;persist security info=True;user id=sa;Max Pool Size=2000;packet size=4096
End Sub

Public Function Reporte(ByVal pStoreProcedure, ByRef pError) As Data.DataSet

Dim objConn As New SqlConnection
objConn.ConnectionString = strConx

Dim objCmd As New SqlCommand
objCmd.CommandType = Data.CommandType.StoredProcedure
objCmd.Connection = objConn
objCmd.CommandText = pStoreProcedure

Dim daAdapter As New SqlDataAdapter
daAdapter.SelectCommand = objCmd
Dim dsDatos As New Data.DataSet

Try
daAdapter.Fill(dsDatos, "TB_REPORTE")
Return dsDatos
Catch e As SqlException
pError = "Error:" & e.Message & " en " & e.Source
Catch e As Exception
pError = "Error:" & e.Message & " en " & e.Source
Finally
objCmd.Dispose()
objConn.Dispose()
End Try

End Function

End Class

Cualquier duda, dejen su comentario!!!

Impresora de Tickets!!!

2008-02-12T10:17:00.001-08:00

Este codigo me fue muy util en la impresion de Ticket para un sistema de punto de venta con impresora de Tickets o miniimpresora:

'Se declaran las constantes ya las funciones API del Sistema

Public Const GENERIC_WRITE = &H40000000
Public Const OPEN_EXISTING = 3
Public Const FILE_SHARE_WRITE = &H2
Public LPTPORT As String
Public hPort As Integer, hPortP As IntPtr
Public retval As Integer

Public Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Integer, ByVal dwShareMode As Integer, ByRef lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal dwCreationDisposition As Integer, ByVal dwFlagsAndAttributes As Integer, ByVal hTemplateFile As Integer) As Integer

Public Declare Function CloseHandle Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Integer) As Integer

Public Structure SECURITY_ATTRIBUTES
Private nLength As Integer
Private lpSecurityDescriptor As Integer
Private bInheritHandle As Integer
End Structure

Ya despues en un boton copiamos y pegamos esto:

Dim SA As SECURITY_ATTRIBUTES
Dim outFile As FileStream
LPTPORT = "LPT1"
hPort = CreateFile(LPTPORT, GENERIC_WRITE, FILE_SHARE_WRITE, SA, OPEN_EXISTING, 0, 0)
hPortP = New IntPtr(hPort)

Dim Safe As New Microsoft.Win32.SafeHandles.SafeFileHandle(hPortP, True)
outFile = New System.IO.FileStream(Safe, IO.FileAccess.Write)

Dim fileWriter As New StreamWriter(outFile)
fileWriter.WriteLine(" " & " Nombre de Empresa")
fileWriter.WriteLine(" " & " Direccion, etc ")
fileWriter.WriteLine(" " & " Fecha : " & Date.Today)
fileWriter.WriteLine(" " & "---------------------------------------")
fileWriter.WriteLine(" " & "Articulo " & " Precio " & " Cantidad " & " Total ")
fileWriter.WriteLine(" " & "---------------------------------------")
'Aqui puede ir un ciclo For que lea el contenido de un DataSet que contenga los datos a imprimir por ejemplo
'O bueno de donde quieran imprimir los datos
fileWriter.WriteLine(" " & "---------------------------------------")
fileWriter.WriteLine(" " & " Total$ " & var_Total) 'Aqui obviamente la variable donde tienen el total
fileWriter.WriteLine(" " & "Gracias Por Su Compra")
fileWriter.Flush()

Funciona al 100%

Numero a Letras

2008-02-12T09:34:00.002-08:00

Este sencillo codigo nos permite convertir numeros a letras:
Se copia y pega la funcion en tu codigo fuente:

Public Function Num2Text(ByVal value As Double) As String
Select Case value
Case 0 : Num2Text = "CERO"
Case 1 : Num2Text = "UN"
Case 2 : Num2Text = "DOS"
Case 3 : Num2Text = "TRES"
Case 4 : Num2Text = "CUATRO"
Case 5 : Num2Text = "CINCO"
Case 6 : Num2Text = "SEIS"
Case 7 : Num2Text = "SIETE"
Case 8 : Num2Text = "OCHO"
Case 9 : Num2Text = "NUEVE"
Case 10 : Num2Text = "DIEZ"
Case 11 : Num2Text = "ONCE"
Case 12 : Num2Text = "DOCE"
Case 13 : Num2Text = "TRECE"
Case 14 : Num2Text = "CATORCE"
Case 15 : Num2Text = "QUINCE"
Case Is < 20 : Num2Text = "DIECI" & Num2Text(value - 10)
Case 20 : Num2Text = "VEINTE"
Case Is < 30 : Num2Text = "VEINTI" & Num2Text(value - 20)
Case 30 : Num2Text = "TREINTA"
Case 40 : Num2Text = "CUARENTA"
Case 50 : Num2Text = "CINCUENTA"
Case 60 : Num2Text = "SESENTA"
Case 70 : Num2Text = "SETENTA"
Case 80 : Num2Text = "OCHENTA"
Case 90 : Num2Text = "NOVENTA"
Case Is < 100 : Num2Text = Num2Text(Int(value \ 10) * 10) & " Y " & Num2Text(value Mod 10)
Case 100 : Num2Text = "CIEN"
Case Is < 200 : Num2Text = "CIENTO " & Num2Text(value - 100)
Case 200, 300, 400, 600, 800 : Num2Text = Num2Text(Int(value \ 100)) & "CIENTOS"
Case 500 : Num2Text = "QUINIENTOS"
Case 700 : Num2Text = "SETECIENTOS"
Case 900 : Num2Text = "NOVECIENTOS"
Case Is < 1000 : Num2Text = Num2Text(Int(value \ 100) * 100) & " " & Num2Text(value Mod 100)
Case 1000 : Num2Text = "MIL"
Case Is < 2000 : Num2Text = "MIL " & Num2Text(value Mod 1000)
Case Is < 1000000 : Num2Text = Num2Text(Int(value \ 1000)) & " MIL"
If value Mod 1000 Then Num2Text = Num2Text & " " & Num2Text(value Mod 1000)
Case 1000000 : Num2Text = "UN MILLON"
Case Is < 2000000 : Num2Text = "UN MILLON " & Num2Text(value Mod 1000000)
Case Is < 1000000000000.0# : Num2Text = Num2Text(Int(value / 1000000)) & " MILLONES "
If (value - Int(value / 1000000) * 1000000) Then Num2Text = Num2Text & " " & Num2Text(value - Int(value / 1000000) * 1000000)
Case 1000000000000.0# : Num2Text = "UN BILLON"
Case Is < 2000000000000.0# : Num2Text = "UN BILLON " & Num2Text(value - Int(value / 1000000000000.0#) * 1000000000000.0#)
Case Else : Num2Text = Num2Text(Int(value / 1000000000000.0#)) & " BILLONES"
If (value - Int(value / 1000000000000.0#) * 1000000000000.0#) Then Num2Text = Num2Text & " " & Num2Text(value - Int(value / 1000000000000.0#) * 1000000000000.0#)
End Select
End Function

Para invocar a la Funcion:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim D As Double = CDbl(Me.TextBox1.Text)
Dim parteEntera As Integer = Math.Truncate(D)
Dim parteDecimal As Integer = Math.Round(((D - parteEntera) * 100), 2)

If (parteDecimal > 0) Then
Me.Label1.Text = Num2Text(parteEntera) & " PESOS " & parteDecimal & "/100 MN"
Else
Me.Label1.Text = Num2Text(parteEntera) & "PESOS 00/100 MN"
End If
End Sub

Bienvenida!!!

2008-02-12T07:24:00.000-08:00

Hola, este blog esta dedicado a la colección de codigo de apoyo en el lenguaje Visual Basic. Net y mas adelante de otros lenguajes, iremos subiendo rutinas de apoyo, esperamos su colaboracion!!!