• Domingo 28 de Abril de 2024, 17:34

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - rogerg1983

Páginas: [1]
1
VB .NET / [Código Fuente] Conexión con SQL Server y llenado de un ComboBox II Parte
« en: Jueves 8 de Noviembre de 2007, 15:01 »
Continuando con el articulo, Nos vamos a la Base de datos Northwind a la carpeta Usuarios, en el panel de la derecha presionamos clic derecho y “Nuevo usuario de base de datos”.
Luego escogemos el usuario Prueba y marcamos la casilla db_owner que el usuario tiene derecho a insertar modificar y eliminar elementos de la base de datos.

Paso 2: Código.

Abrimos un nuevo proyecto en Visual Basic.net y escogemos aplicación de Windows, insertamos un Button y un ComboBox

Luego digitamos este procedimiento de conexión que nos permite comunicarnos con SqlServer y la Base de Datos:

Código: vb.net
  1. Dim SqlConn As SqlClient.SqlConnection
  2.     Public Function AbrirConneccion() As Boolean
  3.         Try
  4.             Dim StringConn As String = "data source =rgonzalez; initial catalog =Northwind; user id =PRUEBA; password = PRUEBA"
  5.             SqlConn = New SqlClient.SqlConnection(StringConn)
  6.             SqlConn.Open()
  7.             Return True
  8.         Catch ex As Exception
  9.             MsgBox("Error: " & ex.Message, MsgBoxStyle.Critical, "Municipalidad de Goicoechea")
  10.             Return False
  11.             SqlConn.Close()
  12.         End Try
  13.     End Function
  14.  

Noten que en la variable StringConn pusimos la base de datos el usuario y el password que ya tenemos creado en SQLServer, con este procedimiento nos conectamos a la base de datos y sin olvidar el nombre de servidor que tenemos instalado que por defecto es LOCAL.

Luego digitamos el siguiente código que nos permite consultar una tabla en la base de datos:

Código: vb.net
  1. Public Function Traer_Datos() As Data.DataSet
  2.         Try
  3.             Dim dataset As New Data.DataSet
  4.             Dim SqlComman As New Data.SqlClient.SqlCommand("SELECT FirstName FROM Employees", SqlConn)
  5.             Dim SqlAdap As New SqlClient.SqlDataAdapter
  6.             SqlAdap.SelectCommand = SqlComman
  7.             SqlAdap.Fill(dataset)
  8.             Return dataset
  9.         Catch ex As Exception
  10.             MsgBox(ex.Message, MsgBoxStyle.Critical, "Municipalidad de Goicoechea")
  11.         End Try
  12.  
  13.     End Function
  14.  

Noten que el select me va a traer el primer nombre de los empleados.

Luego en el evento del botón digitamos lo siguiente:

Código: vb.net
  1.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  2.         AbrirConneccion()
  3.         Me.ComboBox1.DataSource = Traer_Datos().Tables(0)
  4.         Me.ComboBox1.DisplayMember = Traer_Datos().Tables(0).Columns(0).Caption
  5.         SqlConn.Close()
  6.     End Sub
  7.  

El combo box se llena mandando a llamar al procedimiento Traer_Datos, el cual le especificamos en el DisplayMember que columna queremos utilizar para llenar el ComboBox.


Saludos Cordiales,

Ing. Róger González Rojas
Costa Rica


Autor: Ing. Róger González Rojas

2
VB .NET / [Código Fuente] Conexión con SQL Server y llenado de un ComboBox I Parte
« en: Jueves 8 de Noviembre de 2007, 15:00 »
En esta oportunidad les enseñare como conectarse a una base de datos SQL Server 2000 y después recorrer una tabla para llenar un ComboBox:

Paso 1: Conexión.

Existen varios tipos de conexión desde Visual Basic.net hacia SQL Server, en lo personal me gusta realizar todo por código y no utilizar los “Asistente que tiene VB.net”.
El string de conexión puede variar en muchas formas por ejemplo: si nuestra base de datos es autenticada simplemente por Windows no ocupamos un usuario ni contraseña para comunicaros, pero si estamos en un ambiente mixto (autenticación SQLServer y Windows) si requerimos lo permisos respectivos.
Para este ejemplo utilizaremos la base de datos Northwind que se instala por defecto en nuestro SQLServer, ahora ingresamos a SQLServer y vamos a cambiar la forma de cómo nos comunicamos a la base de datos es decir vamos cambiar la autenticación a modo mixto y como hacemos esto:

Ingresamos a SqlServer y presionamos clic derecho sobre propiedades

Luego, sobre seguridad y seleccionamos SQL Server y Windows, presionamos aceptar.


Ahora el acceso a SQLServer es mixto lo que quiere decir que podemos entrar con un usuario de Windows o un usuario creado por nosotros en SQLServer.

Vamos a crear un usuario para poder acceder a la base de datos Northwind y como lo realizamos, primero nos vamos a la carpeta Seguridad y a inicios de sesión.


Luego, doble clic derecho sobre el panel de la derecha y clic a “Nuevo inicio de sesión”.


Nos aparece una pantalla igual a esta y digitamos lo siguiente:
Nombre
Especifica el nombre para el nuevo inicio de sesión, ponemos prueba
Autenticación de Windows
Utiliza la autenticación de Windows cuando se conecta a una instancia de Microsoft SQL Server. Esta opción no la utilizamos.
Autenticación de SQL Server
Marcamos esta opción.
Contraseña
Digitamos prueba
Base de datos
Especificamos la base de datos  Northwind, y aceptar.

Continuara en la Parte II.




Autor: Ing. Róger González Rojas

3
VB .NET / [Artículo] AxMSChart (GRAFICOS) en VB.net
« en: Viernes 20 de Julio de 2007, 23:23 »
En esta ocasión les explicaré como utilizar gráficos en sus aplicaciones de VB.net, para fines ilustrativos el ejemplo esta programado en Visual Basic .Net 2003, pero es totalmente valido para 2005, comencemos..

En la vida actual los reportes de nuestros programas tiene  que ser muy atractivos para los usuarios y que mejor forma de utilizar gráficos, vamos a utilizar una base de datos cualquiera que en este caso es SQL Server 2000, y el componente que utilizamos es AxMSChart, para añadir este componente a nuestra aplicación agregamos un nuevo elemento al cuadro de herramientas, en este caso seria el Componente COM llamado MICROSOFT CHART CONTROL 6.0.



Agregamos ese elemento a nuestro formulario y comenzaremos a trabajar sobre el.


 Llenamos nuestro grafico de la siguiente manera:

            If Datasets.Tables(0).Rows.Count >= 1 Then
                AxMSChart1.RowCount = 1
                AxMSChart1.ColumnCount = 0
                For Each objRow As DataRow In Datasets.Tables(0).Rows
                    AxMSChart1.ColumnCount = AxMSChart1.ColumnCount +1
                    AxMSChart1.DataGrid.SetData(1, x, Val(objRow.Item(1)), False)
                    AxMSChart1.DataGrid.ColumnLabel(x, 1) = Trim(objRow.Item(0))
                    x = x + 1
                Next
            Datasets.Dispose()

Donde, nuestra primera columna va hacer nuestro dato de la X y el segundo la Y.

La pregunta que surge como imprimimos este grafico:

Try
            Dim a As Bitmap
            Me.AxMSChart1.EditCopy()
            If Clipboard.GetDataObject.GetDataPresent(DataFormats.Bitmap) Then
a=System.Windows.Forms.Clipboard.GetDataObject.GetData(System.Windows.Forms.DataFormats.Bitmap)
                Dim fuente As New Font("Arial", 16, FontStyle.Underline)
                e.Graphics.DrawString("GRAFICO", fuente, Brushes.Black, 300, 95)
         fuente = New Font("Arial", 10)
         e.Graphics.DrawImage(a, 100, 150, 600, 550)
        End If

        Catch ex As Exception

        End Try
    End Sub

Si queremos exportar ese grafico a Word, solamente copiamos el grafico con el siguiente comando:

Me.AxMSChart1.EditCopy()

Y luego para pegarlo en Word, le damos pegado especial, imagen.








Autor: Ing. Róger González Rojas

http://rgrnet.4t.com

Páginas: [1]