Programación General > Visual Basic 6.0 e inferiores

 Problema: No Me Aparece La Funcion Refresh

(1/1)

don_leopardo:
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 --- Private Sub CmdBuscarR_Click()Dim Rubro As String Rubro = FrmProveedores.TxtBRubro.Text If DataEnvironment2.rsCommand1.State = 1 ThenDataEnvironment2.rsCommand1.CloseEnd If DataEnvironment2.rsCommand1.Source = "SELECT * FROM Proveedores WHERE Rubro = ' " & Rubro & " ' " End Sub  
Desde ya, muchas gracias.

Saludos.

cpmario:
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 --- DataEnvironment2.rsCommand1.Source = "SELECT * FROM Proveedores WHERE Rubro = ' " & Rubro & " ' " 
Debe ser sin los espacios: después de las comillas simples, y antes de la misma al final del código.


--- Código: Text --- DataEnvironment2.rsCommand1.Source = "SELECT * FROM Proveedores WHERE Rubro = '" & Rubro & "'" 
 :comp:

Navegación

[0] Índice de Mensajes