• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

andfernandes

Fazer pesquisa na tabela

5 mensagens neste tópico

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")

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Qual é que o problemas o codigo para bem?

Só não necessitas o commandbuilder para nada.

Jorge

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora