SELECT EM DBF

MHDSERAFS 16/09/2011 13:26:52
#384454
GALERA BOA TARDE...
ESTOU PRECISANDO DE UM HELP PARA FAZER UMA CONSULTA POR TEXTBOX PARA TRAZER OS DADOS DO CLIENTE O DATAGRID

ESTOU USANDO ESTE CODIGO PARA CONECTAR AO BANCO DBF

Public Sub carregar()
Dim oConn As New OleDbConnection()
oConn.ConnectionString = [Ô]Provider=VFPOLEDB.1;Data Source=c:\BANCO;Extended Properties=dBase 5.0[Ô]
oConn.Open()
Dim oCmd As OleDbCommand = oConn.CreateCommand()
oCmd.CommandText = [Ô]select * from CLIENTES where NOME=[ô][Ô] & TextBox1.Text & [Ô][ô][Ô]
Dim dt As New DataTable()
dt.Load(oCmd.ExecuteReader())
oConn.Close()
DataGridView1.DataSource = dt
End Sub

O SELECT NÃO ESTA BUSCANDO QUANDO DIGITADO O NOME DA PESSOA, POREM SE EU USO [Ô]SELECT * FROM CLIENTE[Ô]
CARREGA TODOS OS CLIENTES E SEUS DADOS NO DATAGRID...
MAS GOSTARIA DE QUE CARREGASSE APENAS A PESSOA QUE EU DIGITEI NO TEXTBOX

GRATO
ALTAIR148 16/09/2011 13:41:33
#384455 Resposta escolhida
Boa tarde,

Primeiro, não digite tudo maiusculo, isso significa que estás gritando...

tenta assim.

Public Sub carregar()
        Dim oConn As New OleDbConnection()
        oConn.ConnectionString = [Ô]Provider=VFPOLEDB.1;Data Source=c:\BANCO;Extended Properties=dBase 5.0[Ô]
        oConn.Open()
        Dim oCmd As OleDbCommand = oConn.CreateCommand()
        oCmd.CommandText = [Ô]select * from CLIENTES where NOME = [ô][Ô] & TextBox1.Text & [Ô][ô][Ô]
        Dim dt As New DataTable()
        dt.Load(oCmd.ExecuteReader())
        oConn.Close()
        DataGridView1.DataSource = dt
    End Sub


Até mais.
MHDSERAFS 16/09/2011 13:48:00
#384458
amigo.... mesma coisa...
não mostra os dados de acordo com o que digit no textbx
ALTAIR148 16/09/2011 13:50:01
#384459
Deixa eu te falar, vc esta digitando igual esta no banco, por exemplo maiuscula, minuscula, esses dias estava utilizando uma tabela em DBF e tive esse problema.
MHDSERAFS 16/09/2011 14:00:15
#384460
SIM
ESTOU DIGITANDO DE ACORDO COM O BANCO
MHDSERAFS 16/09/2011 14:02:31
#384461
AGORA ENTENDI... EU TENHO QUE DIGITAR O NOME COMPLETO, NÃO é ASSIM QUE GOSTARIA,
GOSTARIA DE DIGITAR A 1 LETRA A E BUSCAR NO GRID TODOS QUE COMECAM COM A E AO PREENCHENDO O NOME ELE FAZENDO O FILTRO
ALTAIR148 16/09/2011 14:04:38
#384462
Retire o ( & [Ô][ô][Ô]) depois to textbox1.text

Ficando assim:

Public Sub carregar()
        Dim oConn As New OleDbConnection()
        oConn.ConnectionString = [Ô]Provider=VFPOLEDB.1;Data Source=c:\BANCO;Extended Properties=dBase 5.0[Ô]
        oConn.Open()
        Dim oCmd As OleDbCommand = oConn.CreateCommand()
        oCmd.CommandText = [Ô]select * from CLIENTES where NOME = [ô][Ô] & TextBox1.Text
        Dim dt As New DataTable()
        dt.Load(oCmd.ExecuteReader())
        oConn.Close()
        DataGridView1.DataSource = dt
    End Sub


Outra coisa da uma linda nesse link. Em especial ao item 08.

Até mais.
ALTAIR148 16/09/2011 14:09:10
#384464
Ahhhhhhhhhhhhhhh que isso??? Amigo explique melhor....

Public Sub carregar()
        Dim oConn As New OleDbConnection()
        oConn.ConnectionString = [Ô]Provider=VFPOLEDB.1;Data Source=c:\BANCO;Extended Properties=dBase 5.0[Ô]
        oConn.Open()
        Dim oCmd As OleDbCommand = oConn.CreateCommand()
        oCmd.CommandText = [Ô]select * from CLIENTES where NOME  like  [ô][Ô] & textbox1.text & [Ô]%[ô][Ô]
        Dim dt As New DataTable()
        dt.Load(oCmd.ExecuteReader())
        oConn.Close()
        DataGridView1.DataSource = dt
    End Sub


Tenta aí....
MHDSERAFS 16/09/2011 14:22:10
#384467
OBRIGADO.... AGORA SIM
MHDSERAFS 16/09/2011 14:37:40
#384472
Amigo, só para finalizar....
Como faria para que a busca fosse por nome e cpf...
no textbox a pessoa pode digitar o nome ou cpf
ALTAIR148 16/09/2011 14:42:08
#384473
faz um IF, ou algo do tipo.
Página 1 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar