Fazer pesquisa na tabela

[andfernandes]

algume me poderia explicar como faço para fazer a pesquisa na minha tabela acess e depois passar para uma listBox?o utilizador escreve na textBox e de seguida eu comparo com os elementos na minha tabela e os k sao iguais sao passados para uma listBox

   

       
       Dim str1 As String
       Dim da As OleDb.OleDbDataAdapter
       Dim cb As OleDb.OleDbCommandBuilder
       str1 = "SELECT Titulo FROM Livro WHERE Titulo LIKE '" & TextBox7.Text & "'"
       da = New OleDb.OleDbDataAdapter(str1, cnn)
       da.SelectCommand.CommandText = str1
       cb = New OleDb.OleDbCommandBuilder(da)
       da.Fill(Me.DataSet11, "Relatorio1")
       ListBox1.DataSource = Me.DataSet11.Tables("Relatorio1")

[Asgorath]

Qual é que o problemas o codigo para bem?

Só não necessitas o commandbuilder para nada.

Jorge

[marceluh]

Quando fores meter código usa o GeSHi... 

cumps.

[pbreda]

Pode utilizar uma aplicação o proprio VB6.0 que é a Database Manager ou coisa parecida...depois constrois uma form apartir dessa aplicação este metedo é bastante mais facil. ATENÇÃO: SÓ FUNCIONA PARA O OFFICE 97 CASO NÃO TENHAS O SP6.

Caso precisses de mais alguma informação contacta-me.

[vbmaster]

Vou começar a bloquear os tópicos que não cumprem as regras!