Pesquisa Datalist Resultado Em Datagrid

[Guest - Anderson -]

Pesquisa em uma DataGrid atraves de uma DataList

Mensagem : Tenho duas tabels feitas em Acess97 Chama-se uma de Atividade e outra Clientes o que eu quero fazer é o seguinte montei uma datalist com o controle Ado1 de Atividade onde mostra todas as atividades cadastradas e no DataGrind os Clientes cadastrado que é o Ado2 na Tabela Cliente tem os seguintes Campos que eu quero pesquisar quando eu selecionar na DataList, Atividade,Atividade2 e Atividade3

Fiz o seguinte código mas não tá funcionando esta dando o seguinte erro: NENHUM VALOR FOI FORNECIDOS PARA UM OU MAIS PARAMETROS NECESSARIOS. e depois dá um erro de RUN TIMER ERROR '2147217904 (80040e10)': method'Refresh' of object 'Iadodc'failed

Me ajudem por favor o codigo é o seguinte

Private Sub DataList1_Click()

Dim strconsulta As String

strconsulta = "Select * from Products Where SupplierID = " & DataList1.BoundText

With Adodc2

.RecordSource = strconsulta

.Refresh

End With

With DataGrid1

.ClearFields

.ReBind

End With

Label1.Caption = "Relação de Produtos : " & DataList1.Text

End Sub

[Graymalkin]

Você já conferiu se DataList1.BoundText está realmente retornando o esperado?

Abraços,

Graymalkin

[Guest - Anderson -]

Cara tentei dessa forma

Private Sub DataList1_Click()

Dim strconsulta As String

strconsulta = "Select * from Clientes Where Atividade = '" & DataList1.BoundText & "'"

With Adodc2

.RecordSource = strconsulta

.Refresh

End With

With DataGrid1

.ClearFields

.ReBind

End With

Label1.Caption = "Relação de Atividade : " & DataList1.Text

End Sub

Deu certo porem preciso que ele localize o valor que eu selecionar na datalist em mais dois campos chamados Atividade2 e Atividade3

Poderia me ajudar

[Graymalkin]

Você quer que a consulte retorne registros onde o valor procurado possa estar em *qualquer um* desses campos (Atividade, Atividade2 e Atividade3)? Se sim, então sua consulta seria isso:

strconsulta = "Select * from Clientes Where Atividade = '" & DataList1.BoundText & "' OR Atividade2 = '" & DataList1.BoundText & "' OR Atividade3 = '" & DataList1.BoundText & "'"

Certo?

Graymalkin

[Guest - Anderson -]

Obrigado pela sua ajuda resolveu muito obrigado