Ir para o conteúdo
andfernandes

Fazer pesquisa na tabela

Mensagens Recomendadas

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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
pbreda    0
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.

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


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade