SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: don_leopardo en Sábado 12 de Noviembre de 2005, 16:25

Título: Problema: No Me Aparece La Funcion Refresh
Publicado por: don_leopardo en Sábado 12 de Noviembre de 2005, 16:25

Bueno, la cosa es asi: Estoy haciendo un filtro en la base de datos, lo hice con una instruccion SQL, pero para ke funcione al final tengo ke poner un Refresh.
El problema es ke no me aparece como opcion despues de poner DataEnvironment2. o DataEnvironment2.rsCommand2....
Les pido ayuda ya ke es para un proyecto del colegio y tengo ke terminarlo pronto. Por las dudas les dejo el codigo.

Código: Text

1.  
2. Private Sub CmdBuscarR_Click()
3. Dim Rubro As String
4.  
5. Rubro = FrmProveedores.TxtBRubro.Text
6.  
7. If DataEnvironment2.rsCommand1.State = 1 Then
8. DataEnvironment2.rsCommand1.Close
9. End If
10.  
11. DataEnvironment2.rsCommand1.Source = "SELECT * FROM Proveedores WHERE Rubro = ' " & Rubro & " ' "
12.  
13. End Sub
14.  
15.  

Desde ya, muchas gracias.

Saludos.

Título: Re: Problema: No Me Aparece La Funcion Refresh
Publicado por: cpmario en Lunes 14 de Noviembre de 2005, 20:57

No te entiendo cuando dices que no aparece la función refresh.
Pero en el código que muestras tienes errores en la línea:

Código: Text

1.  
2. DataEnvironment2.rsCommand1.Source = "SELECT * FROM Proveedores WHERE Rubro = ' " & Rubro & " ' "
3.  

Debe ser sin los espacios: después de las comillas simples, y antes de la misma al final del código.

Código: Text

1.  
2. DataEnvironment2.rsCommand1.Source = "SELECT * FROM Proveedores WHERE Rubro = '" & Rubro & "'"
3.  

 :comp: