none
necesito llenar un textbox RRS feed

  • Pregunta

  • Hola 

    necesito llenar un codigo de texto con los alfanumerico  es es elcodigo q empleo 

    lo tengo en tres capas

    Private Sub txtnomape_TextChanged(sender As Object, e As EventArgs) Handles txtnomape.TextChanged
            Dim IsNuevo As Boolean = True
            If IsNuevo = True Then
                cpnproveedor.codigodueño(Me.txtnomape.Text.Trim, Me.txtapellido.Text.Trim)
            End If
        End Sub

      Public Shared Function codigodueño(ByVal ape As String, ByVal nom As String) As String
            Try
                Return daoproveedor.CodigoDueño(ape, nom)
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            Return True
        End Function

    Public Shared Function CodigoDueño(ByVal ape As String, ByVal nom As String) As String
            Dim Retorno As String = String.Empty
            Dim Apellido As String = UCase(Microsoft.VisualBasic.Left(ape, 2))
            Dim Nombre As String = UCase(Microsoft.VisualBasic.Left(nom, 2))
            Try
                Dim lsQuery As String = "SELECT Max(iddueño) FROM Dueño WHERE nomdueño=?nom AND apedueño=?ape"
                Using lConexion As New MySqlConnection(ConfigurationManager.ConnectionStrings("cn").ToString)
                    lConexion.Open()
                    Using lComando As New MySqlCommand(lsQuery, lConexion)
                        lComando.Parameters.Add(New MySqlParameter("@nom", Nombre))
                        lComando.Parameters.Add(New MySqlParameter("@ape", Apellido))
                        Retorno = Apellido & Nombre & Format(lComando.ExecuteScalar(), "000")
                    End Using
                End Using
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            Return Retorno
        End Function

    viernes, 29 de mayo de 2020 2:28

Todas las respuestas

  • Hola Dominio69, 

      

    Gracias por levantar tu consulta en los foros de MSDN. Entendimos su pregunta y vamos a darle seguimiento para buscar la mejor repuesta pertinente al caso.  

    Cualquier duda referente a productos Microsoft, puedes consultarnos. Es un gusto informarte. 

    Gracias por usar los foros de MSDN.   

     

     Andres Aguilar

     ____________________________ 

      

    Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde.  

    Microsoft ofrece este servicio de forma gratuita, con la finalidad de ayudar a los usuarios y la ampliación de la base de datos de conocimientos relacionados con los productos y tecnologías de Microsoft.   

    Este contenido es proporcionado "tal cual" y no implica ninguna responsabilidad de parte de Microsoft. 

    viernes, 29 de mayo de 2020 13:14
    Moderador
  • Hola  Dominio69,

      

    Cúal error te da?

    puedes abrir la conexión antes del query

    Try {

    IConexion.open()

    lo demas del codigo....

    Gracias por usar los foros de MSDN. 

      

    Andres Aguilar 

     ____________________________ 

    viernes, 29 de mayo de 2020 15:10
    Moderador