• Martes 4 de Noviembre de 2025, 04:52

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - estefy_ce

Páginas: [1]
1
Visual Basic 6.0 e inferiores / Problema con SQL
« en: Lunes 26 de Enero de 2009, 15:18 »
Hola!. Estoy tratando de realizar una consulta pero lamentablemente me toca comparar una cadena con un campo numerico de la base de datos. He intentado convertir la cadena de texto en un número pero no me funciono. :brickwall:
El código que utilizo es el siguiente

Código: Text
  1.  
  2. seleccionado = Combo1.ItemData(Combo1.ListIndex)
  3.  
  4. var = "SELECT Stock.* FROM Stock WHERE (((Stock.Codigo)= '" & Val(seleccionado ) & "'));"
  5.  
  6.  
  7.  

¿De qué forma puedo lograr que me tome el valor de la variable "seleccionado" como número?.
Utilizo visual 6 y bd en access.
Gracias.
Saludos. :hola:

Estefanía

2
Visual Basic 6.0 e inferiores / Error 91
« en: Viernes 28 de Noviembre de 2008, 22:42 »
Hola a todos! Estoy trabajando con un proyecto pero al ejecutarlo me aparece el error 91 que indica que una variable de objeto no se definio. Lo extraño es que defini a todos mis variables de la misma forma pero sigue el erro.
El código donde salta el error es el siguiente:

While Titulares.Recordset.EOF = False
   
        CuentaA = Titulares.Recordset!NroCuenta
       
        ' Verifico si ya se genero la adhesion en otro mes
       
        var = "SELECT DebitosAdhesiones.*" _
        & "From DebitosAdhesiones " _
        & "WHERE (((DebitosAdhesiones.NroCuenta)='" & CuentaA & "'))"
       
        BancoMAdhesiones.RecordSource = var
        BancoMAdhesiones.Refresh
       
        Set Rs = BancoMAdhesiones.Recordset
               
        If BancoMAdhesiones.Recordset.RecordCount = 0 Then 'AQUI ME MARCA EL ERROR  :argh:
            msgbox entre
                       
         End If

Desde ya muchas gracias!!!
Saludos.

Estefy

Páginas: [1]