none
Asignar el valor de una variable

    Pregunta

  • Buen dia.

    Normalmente cuando asigno una variable lo haria de la siguiente manera.

    Dim user As Variant
    user = InputBox("Ingresa tu usuario de la PC")

    Ando conectando datos con visual basic y access. En una parte de la consulta declaro la siguiente linea

    MBEW.addWherePredicate ("BWTAR = '1234'")


    Alguien me podria orientar para asignar la varible que ingreso en el input box al campo BWTAR??? 
    Intente haciendolo asi pero esta mal 

    MBEW.addWherePredicate ("BWTAR = user")
    lunes, 6 de marzo de 2017 18:01

Respuestas

  • Danftp7,

    ¿El código que adjuntas corresponde a la sintaxis de Visual Basic 6.0 o anteriores?, lo menciono por el tipo Variant que creo es un tipo "flexible" que corresponde a las versiones mencionadas, aunque la función InputBox() retorna una cadena por tanto el tipo debería ser String y no Variant. 

    Para concatenar constantes o variables debes de utilizar el operador de concatenación '&':

    Dim user As String
    user = InputBox("Ingresa tu usuario de la PC")
    
    If Trim(user) <> "" Then
    	MBEW.addWherePredicate ("BWTAR = '" & user & "'")
    End If


    Espero que la información proporcionada te haya sido de utilidad, quedo atento a tus comentarios.
    • Marcado como respuesta Danftp7 lunes, 6 de marzo de 2017 18:16
    lunes, 6 de marzo de 2017 18:12

Todas las respuestas

  • Danftp7,

    ¿El código que adjuntas corresponde a la sintaxis de Visual Basic 6.0 o anteriores?, lo menciono por el tipo Variant que creo es un tipo "flexible" que corresponde a las versiones mencionadas, aunque la función InputBox() retorna una cadena por tanto el tipo debería ser String y no Variant. 

    Para concatenar constantes o variables debes de utilizar el operador de concatenación '&':

    Dim user As String
    user = InputBox("Ingresa tu usuario de la PC")
    
    If Trim(user) <> "" Then
    	MBEW.addWherePredicate ("BWTAR = '" & user & "'")
    End If


    Espero que la información proporcionada te haya sido de utilidad, quedo atento a tus comentarios.
    • Marcado como respuesta Danftp7 lunes, 6 de marzo de 2017 18:16
    lunes, 6 de marzo de 2017 18:12
  • Si justo esto era lo que me fallaba.

    Ando usando la version de visual basic para aplicaciones 7.1 

    Esa instruccion era lo que necesitaba.

    Muchas gracias

    MBEW.addWherePredicate ("BWTAR = '" & user & "'")


    lunes, 6 de marzo de 2017 18:17