Resultado De Pesquisa Em Uma Datagrid

[Fábio Rocha]

estou implementando um cadastro de clientes usando conexão odbc e um banco Access, na primeira form estão uma datagrid um adodc, e botoes de novo, editar ,excluir e pesquisar, os botoes novo e excluir chamam a form2 ond estãos os campos com os respectivos registros, essas partes do programa funcionam perfeitamente, porem o pesquisar chama a form3, nela estão alguns optionbutton que serve para a seleção de busca, uma textbox para a pesquisa, uma datagrid para os resulados e um botão para executar a pesquisa, ate aí continua tudo bem, agora que são elas, quando clico no botão executa-se o seguinte codigo:

Private Sub btfind_Click()

Dim find As String

Dim val As String

val = Text1.Text

find = "select * from tabcli"

find = find & " where nomecli like = '%"

find = find & val & "%'"

banco.Execute find

(aqui que o problema)

End Sub

banco é uma variavel tipo database

eu gostaria que o resultado aparece-se em uma datagrid, visto que estou usando select like podendo assim aparecer mais de um resultado, como é que eu faço isso, lembrando que na form3 não tenho o adodc da form1, por favor me ajudem , valeu fui

[kuroi]

no like, você não usa =

deve ficar assim:

find = "select * from tabcli"
find = find & " where nomecli like '%"
find = find & val & "%'"[/code]
você se funciona, senao posta a mensagem de erro e aponta qual a linha do erro

[Fábio Rocha]

Private Sub btfind_Click()

Dim find As String

Dim val As String

val = Text1.Text

find = "select * from tabcli"

find = find & " where nomecli like '%"

find = find & val & "%'"

banco.Execute find

(aqui que o problema)

End Sub

cara me desculpa realmente esse = não existe, foi na hora de passar o codigo pra k que eu errei, não há um erro de codigo, o problema é que o resultado da pesquisa não aparece na datagrid, o problema é na verdade esse, desculpa valeu fui...

[kuroi]

pega o conteudo da variavel find e tente executar como consulta direto no seu banco pra ver se retorna alguma coisa. se não retornar, o problema é na sua query. se retornar, ai é porque é otra coisa em seu codigo.

ai poste aí pra gente ver

[Graymalkin]

No caso...

banco.Execute find

... vai te retornar um ADODB.Recordset. É ele que você tem que atribuir à propriedade DataSource da DataGrid. Então, na verdade seria:

set rs = banco.Execute(find)
set datagrid1.datasource = rs

Abraços,

Graymalkin