como criar uma consulta

[Senior]

oi

tenho aqui um problemazinho no meu programa,queria que o programa fosse buscar a informacoes a minha bd

eu pos uma textbox numa form,a minha intencao e escrever um nome de uma pessoa e ia buscar as informacoes a base de dados,tipo de uma consulta

obrigado

[Gooden]

Bom dia Senior.

Mas onde tens problemas? que base de dados usas? a criar a query? a ligar a base de dados? Tens de ser mais especifico por favor =)

[Senior]

por exemplo se escrever maria santos na textbox depois queria que aparecesse as informacoes da maria

[Gooden]

Mas tens conexão a base de dados?

[Senior]

tenho

[Gooden]

Dim nome As String = "Nome"
        Dim da As New SqlClient.SqlDataAdapter("Select * from Clientes where nome like '%" & nome & "%'", cnn)
        Dim ds As New DataSet
        da.Fill(ds)
        If ds.Tables(0).Rows.Count = 0 Then
            MsgBox("Sem Clientes")
        Else
            For Each DR As DataRow In ds.Tables(0).Rows
                MsgBox("Encontrado: " & DR("Nome").ToString)
            Next
        End If

[Senior]

tenho de por o codigo no botao ou na textbox?

[Gooden]

Se quiseres quando mudas o texto metes no textbox text change. Senão mete no botão

[Senior]

ja compreendi

obrigado Gooden

[Senior]

as informacoes vao aparecer numa DataGridView?

[Senior]

o meu codigo esta a dar erro mas na sei porque,diz que o cnn nao foi declarado

Dim nome As String = "Nomemembro"

        Dim da As New SqlClient.SqlDataAdapter("Select * from membros where nome like '%" & nome & "%'", cnn)

        Dim ds As New DataSet

        da.Fill(ds)

        If ds.Tables(0).Rows.Count = 0 Then

            MsgBox("Sem Clientes")

        Else

            For Each DR As DataRow In ds.Tables(0).Rows

                MsgBox("Encontrado: " & DR("Nome").ToString)

            Next

        End If