viernes, 10 de diciembre de 2010

Haciendo remember de post antiguo Procedimientos Almacenados en Microsoft Access y Visual Basic 2005

Bien, esto no es un artículo ni mucho menos, simplemente un paso a paso de como crear la capa de entidades de la que hablé en mi ya pasado artículo denominado Procedimientos Almacenados con Access y VB 2005, que ya lleva mas de 2 años y medio, pero que hasta la fecha me siguen haciendo preguntas y comentarios al respecto, y es para ellos que estoy dando las indicaciones paso a paso de como crearlo porque parece que no lo tienen muy claro este punto.

Primero, hay que leer el artículo completo, porque allí indica que es una aplicación en n-capas o en capas.

Entonces la manera mas fácil de crear la capa entidades es la siguiente:

1. Agregar un nuevo proyecto, si es en capas( también lo pueden probar en el mismo proyecto) de la siguiente manera:

Agregar un nuevo elemento y seleccionar conjunto de datos tal como se ve en la figura, al cual llamaremos entidades

DSC00228

2.- Luego de haber agregado el conjunto de datos, nos aparecerá una ventana igual a esta:

DSC00229

Entonces si nos fijamos alli dice explorador de servidores que es donde podemos explorar los servidores si es que ya tenemos configurado alguno, y si no podemos dar clic en el ícono conectar con la base de datos como se indica en la figura siguiente:

DSC00230

Seguidamente agregamos una nueva conexion a la base de datos en este caso microsoft access, como se indica en la siguiente figura:

DSC00231

Si nos damos cuenta, en esta ventana, por defecto nos arroja como origen de datos SQL Server, pero haciendo clic en el botón cambiar, tal como se ve en la imagen, cambiamos a Microsoft Access, tal como vemos en la siguiente figura:

DSC00232

Con eso solo nos quedará seleccionar la ubicación de la base de datos (.mdb)  y probar que la conexion está correcta tal como se ve en la imagen:

DSC00233

Habiendo hecho esto, nos aparecerá en el panel izquierdo de nuestro proyecto la siguiente ventana, tal como se ve en la imagen, con la base seleccionada y lista para trabajar, aquí les preguntará si quieren agregar la base al proyecto, le pueden decir que no.

DSC00234

Teniendo esto, desplegamos hasta encontrar las tablas de la siguiente manera:

DSC00235

Aquí ya podemos arrastrar con el mouse la tabla en este caso del ejemplo tengo una sola tabla llamada clientes, lo arrastro hacia el área de trabajo que decía explorador de servidores que se ve en la segunda imagen, y nos quedará algo como esto:

DSC00236

Teniendo esta pantalla, procedemos a seleccionar la parte que dice ClientesTableAdapter, y lo suprimimos como se ve en la siguiente imagen.

DSC00237

Hecho eso, nos quedará el esquema de la tabla clientes listo para trabajar de la siguiente manera:

DSC00238

Ahora solo nos queda guardar lo que hemos hecho hasta ahora, e irnos a nuestro formulario o clase en la que vamos a usar esto y como podrán ver, ya les muestra en el intellisense del visual basic 2005, el DataTable, para poder seguir el ejemplo completo el cual menciono en el artículo llamado

Procedimientos Almacenados en Access y Vb2005

DSC00239

Bueno espero no haber sido demasiado extenso en esta explicación, pero creo que con eso ya a todos los interesados y que no cuentan con mucha experiencia, les quedará claro.

Saludos cordiales.

viernes, 15 de octubre de 2010

Documento sobre auditoría en Cloud Computing

Este programa de auditoría y seguridad creado por ISACA es una herramienta y una plantilla que se utilizará como una hoja de ruta para la realización de un proceso de auditoria para servicios de Cloud Computing.
Este documento fue desarrollado para ser utilizado como una herramienta de examen y punto de partida, puede ser adaptado por profesionales y auditores y no pretende ser una lista de verificación o un cuestionario.

Los interesados lo pueden descargar desde aquí

Fuente: www.isaca.org

domingo, 28 de marzo de 2010

Deshabilitar el botón cerrar [X] de Formularios en Visual Basic 2005/2008

Para los que lo necesiten dejo este código que está en la documentación de MSDN (Clase CreateParams) y también encontré buscando en la red.

El presente código debe ir luego de Public Class NombreFormulario:
Dim _enabledCerrar As Boolean = False
< System.ComponentModel.DefaultValue(False), System.ComponentModel.Description( "Define si se habilita el botón cerrar en el formulario" )> _
Public Property EnabledCerrar() As Boolean
    Get
         Return
_enabledCerrar
   End Get
   Set
(ByVal Value As Boolean)
     If _enabledCerrar <> Value Then
         _enabledCerrar = Value
     End If
  End Set
End Property
Protected Overrides ReadOnly Property CreateParams() As CreateParams
      Get
               Dim cp As CreateParams = MyBase.CreateParams
               If _enabledCerrar = False Then
                    Const CS_NOCLOSE As Integer = &H200
                    cp.ClassStyle = cp.ClassStyle Or CS_NOCLOSE
               End If
               Return cp
     End Get
End Property

 

Espero les sirva

sábado, 20 de marzo de 2010

TextBox Solo Números con Punto Decimal en .NET

Bien, se que hay muchos ejemplos en la red de cómo hacer esto, pero uno mas no viene mal.

Bueno esto es un procedimiento Sub, que lo podemos poner en un modulo de nuestro proyecto y evitarnos validar todo el código en cada textbox, por supuesto que se puede mejorar mucho mas, pero de momento lo dejo así

Public Sub NumConFrac(ByVal CajaTexto As Windows.Forms.TextBox, ByVal e As System.Windows.Forms.KeyPressEventArgs)
        If Char.IsDigit(e.KeyChar) Then
            e.Handled = False
        ElseIf Char.IsControl(e.KeyChar) Then
            e.Handled = False
       ElseIf e.KeyChar = "." And Not CajaTexto.Text.IndexOf(".") Then
            e.Handled = True
        ElseIf e.KeyChar = "." Then
            e.Handled = False
       Else
            e.Handled = True
       End If
  End Sub

Eso es todo el sub

Ahora para llamarlo desde cualquier Textbox que necesitemos ingresar solo números, para lo cual solo agregaríamos la siguiente línea:

Private Sub TxtImporte_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtImporte.KeyPress
        NumConFrac(Me.TxtImporte, e)
End Sub

 

Posteriormente si quieren visualizar el importe formateado, solo quedaría agregar lo siguiente luego pulsar ENTER

Me.TxtImporte.Text = Format(CDec(Me.TxtImporte.Text), "###,###.00")

 

Espero les sirva de algo

Hasta la próxima