none
Pasar datos de un form a otro

    Pregunta

  • Hola quiero pasar el nombre del usuario a otro formulario para poder guardarlo.

    Este es el login

      

     Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
            Dim connection As New SqlClient.SqlConnection
            Dim command As New SqlClient.SqlCommand

            Dim adaptador As New SqlClient.SqlDataAdapter
            Dim dataset As New DataSet

            connection.ConnectionString = strCadenaConexion
            command.CommandText = "SELECT * FROM Usuarios WHERE Nombre='" & txtusuario.Text & "' ;"

            connection.Open()
            command.Connection = connection
            adaptador.SelectCommand = command
            adaptador.Fill(dataset, "0")
            connection.Close()

            Dim cont = dataset.Tables(0).Rows.Count
            Dim perfil

            If cont > 0 And txt2.Text = txtclave.Text Then

                If perfil = "Invitado" Then
                    formMDISistema.UsuariosToolStripMenuItem.Enabled = False
                    formMDISistema.MovimientosToolStripMenuItem().Enabled = False
                    formMDISistema.UsuariosToolStripMenuItem2().Enabled = False
                    formMDISistema.FechaToolStripMenuItem1().Enabled = False

                    formMDISistema.Label1.Text = Usuarios.Nombre
                    formMDISistema.Show()
                    Me.Finalize()
                Else
                    formMDISistema.Label1.Text = Usuarios.Nombre               
                    formMDISistema.Show()
                    Me.Finalize()
                End If

            Else

              MsgBox("Contraseña o usuario incorrecto, intenta de nuevo", MsgBoxStyle.Information, "Error")
            End If
        End Sub

    Este es el otro formulario donde quiero guardar el nombre del usuario que ingreso

     Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
            Dim productos As String = String.Empty
            For Each row As DataGridViewRow In DataGridView2.Rows
                productos += String.Concat(row.Cells("Column1").Value.ToString(), ",")
            Next


            With Me.Ventas
                .Id_ventas = Convert.ToInt32(txtid.Text)
                .Productos = productos.TrimEnd(","c)
                .Total = Convert.ToDecimal(txttotal.Text)
                .dtpFecha = DateTimePicker1.Value
                .Cliente = cmbnomcliente.Text
                .Usuario = ...

                Insertar(Ventas)
                MsgBox("La venta se guardo correctamente")
            End With
            
        End Sub

    Desde ya muchas gracias

    martes, 4 de octubre de 2016 3:39

Respuestas

  • Martin12259,

    Puedes usar el constructor de la clase (formulario B) para pasar el valor como argumento, de lo que te comento hay mucha información en la web, te dejo un artículo escrito por Leandro Tuttini que habla al respecto, revisalo y aplicalo a tu caso, si tienes alguna duda puedes consultarlo por este medio: Pasaje de información formulario hijo


    Espero que la información proporcionada te haya sido de utilidad, quedo atento a tus comentarios.
    • Marcado como respuesta Federico32113 martes, 4 de octubre de 2016 20:59
    martes, 4 de octubre de 2016 3:45