Examen finanzas

Pasar Variable entre formulario visual studio.net 2010 (winform)

Para pasar una variable de un formulario a otro en las aplicaciones winform de visual basic hacemos lo siguiente:

En el formulario 1 ponemos esto en un botón.

Donde VarId viene siento la variable que vamos a pasar al otro formulario.

        Dim form2 As New formDetalle

        form2.VarId = VarId

        form2.ShowDialog(Me)

En el Formulario 2 declaramos la varId de la siguiente forma:

Debajo de:

Public Class formDetalle

    Public VarId As Integer

Y listo:

Dentro del loas de la página puedes agregar un laven para apañar el valor.

Ejemplo

Label1.text= VarId

Uso de procedimientos almacenados en visual basic.net 2010

Para llamar el procedimiento almacenado en visual basic solo debemos cambiar el tipo de comando:

insertar.CommandType = System.Data.CommandType.StoredProcedure

En la linea anterior especifique mi tipo de comando .

     insertar.CommandText = "DeleteQuery"   'Esta linea de comando  es donde indicamos el nombre de nuestro procedimiento almacenado.


En esta linea le estoy enviando un parametro a mi procedimiento:        insertar.Parameters.AddWithValue("param1", param1) donde param1 debe tener este mismo nombre  en  dicho sp.

                Dim conexion As SqlConnection
                conexion = New SqlConnection(My.Settings("Conn"))   ' la conexion desde app.config
                Dim insertar As New SqlClient.SqlCommand()
                Dim param1 As Integer = row.Cells(0).Value
                insertar.CommandType = System.Data.CommandType.StoredProcedure
                insertar.CommandText = "DeleteQuery"
                insertar.Parameters.AddWithValue("param1", param1)
                conexion.Open()
                insertar.Connection = conexion
                insertar.ExecuteNonQuery()
                conexion.Close()

Cerrar un formulario con la tecla Escape Visual Basic.net

Para realizar esto solo debe llamar al evento KeyUp.

Este ejemplo cierra el formulario presionando la tecla Escape (del teclado del computador)

El nombre de mi formulario es: frmValidarPedido

 Solo esto debe modificar y pegan este ejemplo y ya listo para usar.

  

 Private Sub frmValidarPedido_KeyUp(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
    
   If (e.KeyCode = Keys.Escape) Then

                  Me.Close()

        End If


    End Sub

Envio de correo Visual basic.net 2010 con sql server

Hola vamos a explicar el envio de correo en visual basic.net 2010.
 Dim _Message As New System.Net.Mail.MailMessage()
        Dim _SMTP As New System.Net.Mail.SmtpClient

        _SMTP.Credentials = New System.Net.NetworkCredential("anny18@msn.com", "nuevonovio12345")
        _SMTP.Host = "smtp.live.com"
        _SMTP.Port = 587
        _SMTP.EnableSsl = True

        ' CONFIGURACION DEL MENSAJE

        _Message.[To].Add("anny18@msn.com".ToString) 'Cuenta de Correo al que se le quiere enviar el e-mail
        _Message.From = New System.Net.Mail.MailAddress("anny18@msn.com", "Aplicacion de INSUMO Base94", System.Text.Encoding.UTF8) 'Quien lo envía
        _Message.Subject = "Aplicacion de INSUMO Base94".ToString 'Sujeto del e-mail
        _Message.SubjectEncoding = System.Text.Encoding.UTF8 'Codificacion
        '_Message.Body = Me.txtMensaje.Text.ToString 'contenido del mail
        _Message.BodyEncoding = System.Text.Encoding.UTF8
        _Message.Priority = System.Net.Mail.MailPriority.Normal

        Dim vBody As String = ""
        vBody &= "<font size=6>  <b>Insumos</b></font><br/> "
        vBody &= "Cantidad Separada en la Base94".ToString & "<br/>" 'contenido del mail
        vBody &= "Fecha de envio: " & Now.ToString & "<br/>"

        vBody &= "<TABLE border=1 >"
        vBody &= "<tr>"
        vBody &= "<TD>Cantidad separada</TD>"
        'vBody &= "<TD>CxB</TD>"
        'vBody &= "<TD>Disponible</TD>"
        'vBody &= "<TD>Fecha Entrada</TD>"
        vBody &= "<TD>Referencia </TD>"
        vBody &= "<TD>Descrpcion</TD>"
        ' vBody &= "<TD>PVP</TD>"
        '  vBody &= "<TD>Factor</TD>"
        'vBody &= "<TD>Unidad</TD>"
        vBody &= "</tr>"
        For Each ci As CartItem In RSX.Items    'Aqui recorro una tabla virtual hecha en el programa 'ustedes le haria for  a la tabla
            If ci.cantidadSeparado <> 0 Then
                vBody &= "<TR>"
                vBody &= "<TD>" & ci.cantidadSeparado & "</TD>"
                'vBody &= "<TD>" & ci.cxb & "</TD>"
                'vBody &= "<TD>" & ci.disponible & "</TD>"
                'vBody &= "<TD>" & ci.fechaEntrada & "</TD>"
                vBody &= "<TD>" & ci.itemCode & "</TD>"
                vBody &= "<TD>" & ci.itemName & "</TD>"
                'vBody &= "<TD>" & ci.pvp & "</TD>"
                'vBody &= "<TD>" & ci.unidad & "</TD>"
                'vBody &= "<TD>" & ci.uxf & "</TD>"
                'vBody &= "<TD>" & ci.cantidadSeparado * ci.cxb & "</TD>"
                vBody &= "</TR>"
            End If
        Next
        vBody &= "</TABLE>"
        _Message.Body = vBody
        _Message.IsBodyHtml = True

        'ENVIO
        Try
            _SMTP.Send(_Message)
            MessageBox.Show("Mensaje enviado correctamene", "Exito!", MessageBoxButtons.OK)
        Catch ex As System.Net.Mail.SmtpException
            MessageBox.Show(ex.ToString, "Error!", MessageBoxButtons.OK)
        End Try