Postada em 10/07/2008 00:08 hs
Estou com um form com duas ComboBox (Sexo, Estado) e uma MSHFlexGrid.
Estou tentando fazer um filtro para que quando eu selecionar sexo: Masculino e estado: SP ele filtre na grid esses registros.
Usar o código para filtrar com apenas uma combobox eu consegui, mas não o código para juntando as duas, então da erro.
Botão Filtro:
Private Sub cmdFiltrar_Click()
Set Conex = New ADODB.Connection
Conex.Open StringDeConexao
Stringsql = "SELECT * FROM Clientes WHERE Sexo Like "
Stringsql = "SELECT * FROM Clientes WHERE Estado Like "
Stringsql = Stringsql & "'" & cboSexo & "'"
Stringsql = Stringsql & "'" & cboEstado & "'"
Set RS = New ADODB.Recordset
RS.Open Stringsql, Conex, adOpenDynamic, adLockOptimistic
If RS.EOF Then MsgBox "Não foram encontrados registros correspondentes."
Set Grid.DataSource = RS
Grid.Refresh
RS.Close
Set RS = Nothing
End Sub
|
