Autor Tema: Problema: No Me Aparece La Funcion Refresh (Leído 1454 veces)

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

 
Private Sub CmdBuscarR_Click()
Dim Rubro As String
 
Rubro = FrmProveedores.TxtBRubro.Text
 
If DataEnvironment2.rsCommand1.State = 1 Then
DataEnvironment2.rsCommand1.Close
End If
 
DataEnvironment2.rsCommand1.Source = &#34;SELECT * FROM Proveedores WHERE Rubro = ' &#34; & Rubro & &#34; ' &#34;
 
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 = &#34;SELECT * FROM Proveedores WHERE Rubro = ' &#34; & Rubro & &#34; ' &#34;
 

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 = &#34;SELECT * FROM Proveedores WHERE Rubro = '&#34; & Rubro & &#34;'&#34;
 

SoloCodigo

Autor Tema: Problema: No Me Aparece La Funcion Refresh (Leído 1454 veces)

don_leopardo

Problema: No Me Aparece La Funcion Refresh

cpmario

Re: Problema: No Me Aparece La Funcion Refresh