2+ y nos vamos...: vb2010Noticias, Futbol, Deportes, Entretenimiento, Ciencia, Tecnologia

Mostrando entradas con la etiqueta vb2010. Mostrar todas las entradas

sábado, 17 de diciembre de 2011

Información del Sistema - VER QUE PROCESADOR TENGO VB.NET

VER QUE PROCESADOR TENGO VB.NET

Imports System
Imports System.Management
Imports System.Windows.Forms

Namespace WMISample

    Public Class MyWMIQuery

        Public Overloads Shared Function Main() As Integer

            Try
                Dim arrComputers As String() = _
                    {"Sistemas"}
                For Each strComputer As String In arrComputers

                    Console.WriteLine("==========================================")
                    Console.WriteLine("Computer: " & strComputer)
                    Console.WriteLine("==========================================")

                    Dim searcher As New ManagementObjectSearcher( _
                        "\\" + strComputer + "\root\CIMV2", _
                        "SELECT * FROM Win32_Processor")

                    For Each queryObj As ManagementObject In searcher.Get()

                        Console.WriteLine("-----------------------------------")
                        Console.WriteLine("Win32_Processor instance")
                        Console.WriteLine("-----------------------------------")
                        Console.WriteLine("Description: {0}", queryObj("Description"))
                        Console.WriteLine("Family: {0}", queryObj("Family"))
                        Console.WriteLine("Name: {0}", queryObj("Name"))
                    Next
                Next
            Catch err As ManagementException
                MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
            End Try
        End Function
    End Class
End Namespace

Información del Sistema - Ver que sistema operativo tiene mi PC VB.NET

Ver que sistema operativo tiene mi PC VB.NET

Imports System
Imports System.Management
Imports System.Windows.Forms

Namespace WMISample

    Public Class MyWMIQuery

        Public Overloads Shared Function Main() As Integer

            Try
                Dim arrComputers As String() = _
                    {"Sistemas"}
                For Each strComputer As String In arrComputers

                    Console.WriteLine("==========================================")
                    Console.WriteLine("Computer: " & strComputer)
                    Console.WriteLine("==========================================")

                    Dim searcher As New ManagementObjectSearcher( _
                        "\\" + strComputer + "\root\CIMV2", _
                        "SELECT * FROM Win32_OperatingSystem")

                    For Each queryObj As ManagementObject In searcher.Get()

                        Console.WriteLine("-----------------------------------")
                        Console.WriteLine("Win32_OperatingSystem instance")
                        Console.WriteLine("-----------------------------------")
                        Console.WriteLine("Caption: {0}", queryObj("Caption"))
                        Console.WriteLine("Version: {0}", queryObj("Version"))
                    Next
                Next
            Catch err As ManagementException
                MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
            End Try
        End Function
    End Class
End Namespace

Información del Sistema - Listar Adaptadores de Red VB.NET

COMO LISTAR MIS ADAPTADORES O TARJETAS DE RED EN VB.NET

Option Strict On
Option Explicit On

Imports System
Imports System.Management

Public Class ConsoleApp

    Shared Sub Main()
        Network.EnumNetworkAdapters()
    End Sub

End Class

Public Class Network
    Public Shared Sub EnumNetworkAdapters()
        Dim query As ManagementObjectSearcher = New ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")
        Dim queryCollection As ManagementObjectCollection = query.Get()
        Dim mo As ManagementObject
        Dim s As String

        For Each mo In queryCollection
            Console.WriteLine("'{0}", mo.ClassPath)
            Console.WriteLine("'{0}", mo.Options)
            Console.WriteLine("Index   '{0}", mo("Index"))
            Console.WriteLine("Description   '{0}", mo("Description"))
            Console.WriteLine("MacAddress   '{0}", mo("MacAddress"))

            If (CType(mo("IPEnabled"), Boolean) = True) Then
                Dim addresses() As String = CType(mo("IPAddress"), String())
                Dim subnets() As String = CType(mo("IPSubnet"), String())

                Console.WriteLine("DNS Host   '{0}", mo("DNSHostName"))
                Console.WriteLine("DNS Domain   '{0}", mo("DNSDomain"))

                For Each s In addresses
                    Console.WriteLine("IP Address   '{0}", s)
                Next

                For Each s In subnets
                    Console.WriteLine("IP Subnet   '{0}", s)
                Next
            End If
        Next
    End Sub
End Class

martes, 13 de diciembre de 2011

vb2010 Funcion para actualizar nuestra base de datos

Función para hacer un INSERT, UPDATE y un DELETE a nuestra base de datos desde visual basic 2010.

'Funcion para actualizar los registros en la tabla con mensaje de finalización
    'Insert Into
    'Update
    'Delete
    Public Sub updateRegistrosC(ByVal mySQL As String)
        Dim cmd As New Odbc.OdbcCommand
        Try
            Cursor.Current = Cursors.WaitCursor
            cmd = New OdbcCommand(mySQL, conn)
            Dim x As Integer
            'Ejecutamos la sentencia solicitada
            x = cmd.ExecuteNonQuery()
            'Mostramos mensaje
            MsgBox("Los información se actualizó correctamente", MsgBoxStyle.Information, "Costeo CIC")
            Cursor.Current = Cursors.Default
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            cmd.Dispose()
        End Try
    End Sub

vb2010 COMO CARGAR UN DATAGRIDVIEW

Esta función nos permite cargar un datagridview en visual basic 2010.

'Funcion para cargar los registros consultados en datagridview
    Public Sub loadRegistros(ByVal mySQL As String, ByVal grView As DataGridView)
        Dim dt As New DataTable
        Dim da As New Odbc.OdbcDataAdapter
        Dim cmd As New Odbc.OdbcCommand
        Try
            Cursor.Current = Cursors.WaitCursor
            cmd.Connection = conn
            cmd.CommandText = mySQL
            cmd.CommandType = CommandType.Text
            da.SelectCommand = cmd
            da.Fill(dt)
            'Çargamos el Datagridview
            grView.DataSource = dt
            'Coloreamos intercaladamente el datagridview
            grView.AlternatingRowsDefaultCellStyle.BackColor = Color.LightGray
            For i As Integer = 0 To grView.ColumnCount - 1
                grView.AutoResizeColumn(i)
            Next
            grView.Refresh()
            Cursor.Current = Cursors.Default
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            cmd.Dispose()
        End Try
    End Sub

VB2010 Conectarse a una BD via DNS o DSN

Funcion para conectarse a Base de datos, cualquiera, via DNS desde visual basic 2010.

'Funcion para conectarsea base de datos DB2
    Public Function Conectar(ByVal Servidor As String, ByVal Usuario As String, ByVal Password As String) As Boolean
        cnString = "DSN=SPEED;Uid=" & Usuario & ";Pwd=" & Password & ";"
        conn = New OdbcConnection(cnString)
        Try
            Cursor.Current = Cursors.WaitCursor
            'Aperturamos conexión
            conn.Open()
            If conn.State = ConnectionState.Open Then Conectar = True Else Conectar = False
            Cursor.Current = Cursors.Default
        Catch ex As Odbc.OdbcException
            MessageBox.Show("Error: " & ex.ToString & vbCrLf)
        End Try
    End Function

VB2010 Cerrar todos los formularios de un MDI

En visual basic 2010 para cerrar todos los formularios contenidos en un MDI.

For Each ChildForm As Form In Me.MdiChildren
ChildForm.Close()
Next

lunes, 12 de diciembre de 2011

EXPORTAR LISTVIEW A EXCEL O LIBRE OFFICE O OPEN OFFICE

Modulo para extortar un Listview a Excel o Libre Office o Open Office en visual basic 2010.
Primero hay que crear un modulo con con el nombre ExportarXML.
Luego pegamos el código siguiente en el modulo.

Module ExportarXML

'Exportar a Excel
    'Autor: Adalberto Chavez

    Public Sub ExportarListViewXML(ByVal ListView As ListView, ByVal Ruta As String)
        Dim xmlFile As New System.Text.StringBuilder
        Dim CurrLine As String = String.Empty
        CurrLine = xmlEncabezado()
        CurrLine &= "<ss:Row>" & vbNewLine

        For columnIndex As Integer = 0 To ListView.Columns.Count - 1
            CurrLine &= "<ss:Cell  ss:StyleID='s27><Data ss:Type='String>" & ListView.Columns(columnIndex).Text & "</Data></ss:Cell>" & vbNewLine
        Next
        CurrLine &= "</ss:Row>" & vbNewLine
        xmlFile.AppendLine(CurrLine)
        Dim Tipo As String

        CurrLine = String.Empty
        For Each item As ListViewItem In ListView.Items
            CurrLine &= "<ss:Row>" & vbNewLine
            For Each subItem As ListViewItem.ListViewSubItem In item.SubItems
                If (IsNumeric(subItem.Text) And InStr(subItem.Text, ".")) Then
                    Tipo = "Number"
                Else
                    Tipo = "String"
                End If
                CurrLine &= "<ss:Cell><Data ss:Type='" & Tipo & ">" & subItem.Text & "</Data></ss:Cell>" & vbNewLine
            Next
            CurrLine &= "</ss:Row>" & vbNewLine
            xmlFile.AppendLine(CurrLine.Substring(0, CurrLine.Length - 1))
            CurrLine = String.Empty
        Next
        CurrLine = xmlFinal()
        xmlFile.AppendLine(CurrLine)
        Dim Sys As New System.IO.StreamWriter(Ruta)
        Sys.WriteLine(xmlFile.ToString)
        Sys.Flush()
        Sys.Dispose()


        If Comprobar("Excel.Application") Then
            'Abrimos con excel
            Process.Start("Excel.exe", Ruta)
        Else
            'Si no esta excel instalado abrimos con Libre Office
            Process.Start("scalc.exe", Ruta)
        End If
    End Sub


    'Formateamos el XML para Excel y Libre Office
    Private Function xmlEncabezado() As String

        xmlEncabezado = ""
        xmlEncabezado = xmlEncabezado & "<?xml version='1.0?>" & vbNewLine
        xmlEncabezado = xmlEncabezado & "<?mso-application progid='Excel.Sheet?>" & vbNewLine
        xmlEncabezado = xmlEncabezado & "<Workbook" & vbNewLine
        xmlEncabezado = xmlEncabezado & "xmlns:x='urn:schemas-microsoft-com:office:excel" & vbNewLine
        xmlEncabezado = xmlEncabezado & "xmlns='urn:schemas-microsoft-com:office:spreadsheet" & vbNewLine
        xmlEncabezado = xmlEncabezado & "xmlns:ss='urn:schemas-microsoft-com:office:spreadsheet>" & vbNewLine
        xmlEncabezado = xmlEncabezado & "<Styles>" & vbNewLine
        xmlEncabezado = xmlEncabezado & "<Style ss:ID='Default ss:Name='Normal>" & vbNewLine
        xmlEncabezado = xmlEncabezado & "<Alignment ss:Vertical='Bottom/>" & vbNewLine
        xmlEncabezado = xmlEncabezado & "<Borders/>" & vbNewLine
        xmlEncabezado = xmlEncabezado & "<Font/>" & vbNewLine
        xmlEncabezado = xmlEncabezado & "<Interior/>" & vbNewLine
        xmlEncabezado = xmlEncabezado & "<NumberFormat/>" & vbNewLine
        xmlEncabezado = xmlEncabezado & "<Protection/>" & vbNewLine
        xmlEncabezado = xmlEncabezado & "</Style>" & vbNewLine
        xmlEncabezado = xmlEncabezado & "<Style ss:ID='s27>" & vbNewLine
        xmlEncabezado = xmlEncabezado & "<Font x:Family='Swiss ss:Color='#0000FF ss:Bold='1/>" & vbNewLine
        xmlEncabezado = xmlEncabezado & "</Style>" & vbNewLine
        xmlEncabezado = xmlEncabezado & "<Style ss:ID='s21>" & vbNewLine
        xmlEncabezado = xmlEncabezado & "<NumberFormat ss:Format='yyyy\-mm\-dd/>" & vbNewLine
        xmlEncabezado = xmlEncabezado & "</Style>" & vbNewLine
        xmlEncabezado = xmlEncabezado & "<Style ss:ID='s22>" & vbNewLine
        xmlEncabezado = xmlEncabezado & "<NumberFormat ss:Format='yyyy\-mm\-dd\ hh:mm:ss/>" & vbNewLine
        xmlEncabezado = xmlEncabezado & "</Style>" & vbNewLine
        xmlEncabezado = xmlEncabezado & "<Style ss:ID='s23>" & vbNewLine
        xmlEncabezado = xmlEncabezado & "<NumberFormat ss:Format='hh:mm:ss/>" & vbNewLine
        xmlEncabezado = xmlEncabezado & "</Style>" & vbNewLine
        xmlEncabezado = xmlEncabezado & "</Styles>" & vbNewLine
        xmlEncabezado = xmlEncabezado & "<Worksheet ss:Name='Hoja 1>" & vbNewLine
        xmlEncabezado = xmlEncabezado & "<ss:Table>" & vbNewLine

    End Function


    'Finalizamos el xml
    Private Function xmlFinal() As String
        xmlFinal = ""
        'Finalizamos la Tabla
        xmlFinal = xmlFinal & "</ss:Table>" & vbNewLine
        'Finalizamos la Hoja
        xmlFinal = xmlFinal & "</Worksheet>" & vbNewLine
        ''Finalizamos el Libro
        xmlFinal = xmlFinal & "</Workbook>" & vbNewLine
    End Function

    Private Function Comprobar(Clase_Application As String) As Boolean

        Dim Objeto As Object

        ' Deshabilitar errores temporalmente  
        On Error Resume Next

        ' -- Crear una referencia al objeto  
        Objeto = CreateObject(Clase_Application)

        ' -- No dío error  
        If Err.Number <> 0 Then
            Comprobar = False
        Else
            ' .. error  
            Comprobar = True
            ' -- Eliminar  referencia  
            Objeto = Nothing
        End If

        ' -- Limpiar error  
        On Error GoTo 0

    End Function

End Module

martes, 6 de diciembre de 2011

VB.NET Funcion para cargar un datagridview

Esta función nos permite cargar un datagridview con el resultado de una búsqueda en base de datos.

'Funcion para cargar los registros consultados
    Public Sub loadRegistros(ByVal mySQL As String, ByVal grView As DataGridView, Optional ByVal Check As Boolean = False)
        Dim dt As New DataTable
        Dim da As New Odbc.OdbcDataAdapter
        Dim cmd As New Odbc.OdbcCommand
        Try
            Cursor.Current = Cursors.WaitCursor
            cmd.Connection = conn
            cmd.CommandText = mySQL
            cmd.CommandType = CommandType.Text
            da.SelectCommand = cmd
            da.Fill(dt)
            grView.DataSource = dt
            If Check = True Then
                If grView.Columns(0).Name = ":::" Then grView.Columns.Remove(":::")
                Dim column As New DataGridViewCheckBoxColumn()
                With column
                    .Name = ":::"
                    .HeaderText = .Name
                    .AutoSizeMode = DataGridViewAutoSizeColumnMode.NotSet
                    .FlatStyle = FlatStyle.Standard
                    .CellTemplate = New DataGridViewCheckBoxCell()
                    '.ReadOnly = False
                End With
                grView.Columns.Insert(0, column)
                grView.Columns(0).ReadOnly = True
            End If
            grView.AlternatingRowsDefaultCellStyle.BackColor = Color.LightGray
            For i As Integer = 0 To grView.ColumnCount - 1
                grView.AutoResizeColumn(i)
            Next
            grView.Refresh()
            Cursor.Current = Cursors.Default
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            cmd.Dispose()
        End Try
    End Sub

VB.NET Funcion para cargar un Combobox

Esta función nos permite cargar un combo box con los datos de una tabla.

'Funcion para carga un combobox
    Public Sub Cargar_Combo(ByVal ComboBox As ComboBox, ByVal sql As String)

        Try
            Dim cmd As New OdbcCommand(sql, conn)
            Dim da As New OdbcDataAdapter(cmd)
            Dim ds As New DataSet
            da.Fill(ds)
            ComboBox.DataSource = ds.Tables(0)
            ComboBox.DisplayMember = ds.Tables(0).Columns(0).Caption
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString, _
                            "Error", MessageBoxButtons.OK, _
                            MessageBoxIcon.Error)
        End Try
    End Sub

Como declarar una variable global en visual basic .net

Para declarar una variable blobal en visual basic .net solo tendremos que hacer lo siguiente.

En un Modulo, escribimos:

Module  Module1
    'Esta variable es global. Podremos utlizarlo desde cualquier 
    'formulario de nuestro proyecto.
    Public _Empresa As String


End Module

Como pasar un dato de un formulario a otro en vb.net

Como pasar una variable de un formulario a otro formulario.

Suponiendo que tenemos 2 Formularios, Form1 y Form2 Con un textbox cada uno y button el primero.

Ver la imagen.

El Código sería simplemente esto:

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Form2.TextBox1.Text = TextBox1.Text
        Form2.ShowDialog()
    End Sub
End Class

sábado, 3 de diciembre de 2011

QRibbon - Como Agregar un Formulario

QRibbon - Como Agregar un Formulario en Visual Basic .net

En este manual gráfico vamos a aprender como crear un proyecto QRibbon

2+ y nos vamos...

Pages