exibir dados do bd em uma grid

[Leandro_Pirozzi]

alguém tem alguma function, onde quando eu estiver digitando por exemplo o nome de uma empresa ele me abra um grid com uma lista de empresas que iniciam com os mesmos caracteres, indo buscar a empresa do BD.

obrigado.

[Macêdo]

Coloque no evento Change da textbox o select e logo abaixo dele o codigo para preencher o grid, no select coloque para buscar os nomes pela primeira letra

Private Sub Text_busca_Change()

Select nome from tabela where nome like '" & text_busca & "%'"

preenche_grid

End sub

[Leandro_Pirozzi]

mas a function que preenche o grid vai precisar de um outro select não vai?

[Leandro_Pirozzi]

Declarei no general declarations:

'carrega grid busca empresa

Dim cmdbusca As New ADODB.Command

Dim cnnbusca As ADODB.Connection

Dim rsbusca As New ADODB.Recordset

Seguinte fiz a function. Não sei se está correta.

Function preenchegrid_busca()

With cmdbusca

.ActiveConnection = cnnbusca 'nome da conexão

.CommandType = adCmdText

.CommandText = "SELECT CODEMP, NOMEMPRESA, ENDEMPRESA, CIDEMPRESA, UFEMPRESA, TELEMPRESA from CONTATOS_EMPRESA" 'seleciona os dados da tabela que vao para o grid

Set rsbusca = .Execute

End With

With rsbusca

Set frmpesq.DataGrid5.DataSource = rsbusca 'aqui já lança os dados no Datagrid5

End With

End Function

Agora no evento Change do text tem outro select??? porque quando compila e clico no text pra digitar algo ele exibe o erro:

A conexao não pode ser usada para realizar esta operação.Ela esta fechada ou é invalida neste contexto.

Private Sub txtempresa_Change()

Dim SQLpreencebusca As String

SQLpreencebusca = "SELECT NOMEMPRESA from CONTATOS_EMPRESA where NOMEMPRESA like '" & txtempresa & "%'"

frmpesq.Show

preenchegrid_busca

End Sub

[Leandro_Pirozzi]

Como faço para carregar por exemplo:

O usuário esta digitando o nome da empresa: "TELEFONICA"

Ai quando ele digitar Tele ele abre o grid com todas as empresas q iniciam com essas letras?

Ate consegui fazer porem a cada caractere que é digitado ele abre o form com a grid.

[Macêdo]

Coloque o seguinte codigo no evento change da text, não precisa da function com outro select:

Private Sub txtempresa_Change()

With cmdbusca
.ActiveConnection = cnnbusca 'nome da conexão
.CommandType = adCmdText
.CommandText = "SELECT CODEMP, NOMEMPRESA, ENDEMPRESA, CIDEMPRESA, UFEMPRESA, TELEMPRESA from CONTATOS_EMPRESA where NOMEMPRESA like '" & txtempresa & "%'" 'seleciona os dados da tabela que vao para o grid
Set rsbusca = .Execute
End With

With rsbusca
Set frmpesq.DataGrid5.DataSource = rsbusca 'aqui já lança os dados no Datagrid5
End With

End Sub

[Leandro_Pirozzi]

Exibiu a msg.

A operação solicitada requer um objeto OLE DB SESSION, para o qual não há suporte do provedor atual.