none
Problemas con Consulta Parametrizada. RRS feed

  • Pregunta

  • hola amigos vuelvo a recurrir a ustedes dado a que siempre encuentro respuestas factibles a mis problemas, en esta ocasión tengo el siguiente problema, Quiero llenar una dropdown list en base a una consulta filtrada, osea quiero que me muestre los datos que estan relacionadoso con otra tabla.

    este es mi codigo:

    Private Sub CmbMotivo_AfterUpdate()
    Dim rst2 As ADODB.Recordset
    Set cnn = New ADODB.Connection
    Set rst2 = New ADODB.Recordset

    'Abro la conexion con la base de datos...
    cnn.ConnectionString = ("Provider=SQLOLEDB; " & _
                                   "Persist Security Info=False; " & _
                                   "User ID=saRelo;Password=saRelo;" & _
                                   "Initial Catalog=Reloj_3210;" & _
                                   "Data Source=indi;")
    cnn.Open


    rst2.Open "SELECT  Causas.DescripcionCausa FROM Causas INNER JOIN Motivos ON Causas.IdMotivo = Motivos.IdMotivo WHERE Motivos.DescripcionMotivo =" & CmbMotivo.Text, cnn, adOpenDynamic, adLockOptimistic

    Do While rst2.EOF = False
     cmbCausa.AddItem (rst2.Fields(0))
     rst2.MoveNext
    Loop

    rst2.Close
    cnn.Close
    End Sub

     

    y me retorna el siguiente Error: 

    se a producido un Error  (800400e14) en tiempo de ejecución.

     
    lunes, 3 de junio de 2013 20:06

Respuestas

  • Hola,

    Proba con este codigo:

    rst2.Open "SELECT  Causas.DescripcionCausa FROM Causas INNER JOIN Motivos ON Causas.IdMotivo = Motivos.IdMotivo WHERE Motivos.DescripcionMotivo ='" & CmbMotivo.Text & "'", cnn, adOpenDynamic, adLockOptimistic

    Do Until rst2.EOF 
     cmbCausa.AddItem (rst2.Fields(0))
     rst2.MoveNext
    Loop


    Victor Koch

    • Marcado como respuesta Salvador_Cruz lunes, 3 de junio de 2013 21:16
    lunes, 3 de junio de 2013 21:04
  • Te falta los apóstrofes de campo texto ='" & CmbMotivo.Text & "'"

    Si se solucionó tu consulta no olvides marcar la respuesta. Si te ayudó vótala como útil. Saludos

    • Marcado como respuesta Salvador_Cruz lunes, 3 de junio de 2013 21:16
    lunes, 3 de junio de 2013 21:09

Todas las respuestas