Problemas con Consulta Parametrizada.

Question

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.

 

Answer 1

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

Answer 2

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

Answer 3

Muchas Gracias por tu Respuesta.

Answer 4

Muchas Gracias por tu Respuesta. :D