USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Sql - Basico...por favor.
Ronaldo
não registrado
Postada em 11/06/2008 21:00 hs   
è o seguinte, eu ja mexi com isto a algum tempo ...agora esqueci td e to precisando de uma ajudinha...
 
é o seguinte:Tenho uma tabela com o (Nome, produto, valor) Quero clicar no combobox, selecionar o nome e no listview aparecer o produto e o valor do nome selecionado...
 
tipo:
 
[ Maria    ] - selecionada no combo
 
[Calsinha bege                                10,50] - no listview
 
 
 
 
[                                                         ]...
 
mandar os dados para a lista eu sei, mas a consulta que esta dificil...
 
Se puderem por o codigo completo, desde a variavel até as end if,
 
ai embaixoeu agradeço.
 
Private Sub Cmb_Cli_Click()
<<<Aqui>>>
 

While Not Tb.EOF
Set lista = List1.ListItems.Add(, , Tb!produto)
lista.SubItems(1) = Tb!valor
Tb.MoveNext
End Sub
 
     
José Ari
MANAUS
AM - BRASIL
Postada em 11/06/2008 22:17 hs            
select nome, produto, valor from tabela where nome = 'Maria'

pra o seu codigo fica assim:

sSQL = "SELECT nome, produto, valor FROM SuaTabela WHERE nome = '" & cmbNome & "'"

obs: nao esqueca de colocar as aspas simples pois quando se trabalha co string eh obrigatorio a colocacao das aspas....

espero ter ajudado

================================================================
O Aprendizado é Direito de Todos. O Saber é Privilégio de Poucos.

Começando a estudar VB.NET. Realmente é incrível!!!!

     
Ron
não registrado
Postada em 12/06/2008 12:13 hs   
não deu não

**********
Private Sub Cmb_Cli_Click()
Private sSql As String

Set Tb = Banco.OpenRecordset("Lista_Person", dbOpenDynaset)

sSql = "SELECT produto, valor FROM tb WHERE cliente like= '" & Cmb_Cli & "'"

While Not Tb.EOF
Set lista = List1.ListItems.Add(, , sSql!produto)
lista.SubItems(1) = Tb!valor
Tb.MoveNext
Wend
End Sub
********************

Sempre aparece os dados de todos cadastrados na tabela, mas eu queria só os dados da pessoa selecionada no combo.
     
Perci
MATÃO
SP - BRASIL
Postada em 12/06/2008 13:00 hs            
Tenta fazer a consulta assim:
sSql = "SELECT cliente, produto, valor FROM tb WHERE cliente LIKE '" & Cmb_Cli & "'"
 
 
 
     
José Ari
MANAUS
AM - BRASIL
Postada em 12/06/2008 13:19 hs            
Nesses casos eu uso ADO em vez do DAO.. faz assim:
 
faz a referencia ao ADO em References
 
Dim DB as New ADODB.Connection
Dim rsTemp as New ADODB.Recordset
 
sConn= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Banco.mdb;User Id=;Password=;"
DB.Open sConn
 
**********
Private Sub Cmb_Cli_Click()
Private sSql As String
sSQL = "SELECT cliente, produto, valor FROM Lista_Person WHERE cliente = '" & Cmb_Cli & "'"
rsTemp.Open sSQL, DB, adOpenKeyset, adLockReadOnly

While Not rsTemp.EOF
     Set lista = List1.ListItems.Add(, , rsTempl!produto)
     lista.SubItems(1) = rsTemp!valor
     rsTemp.MoveNext
Wend
End Sub
********************

Da forma que você tava fazendo, tava abrindo era a tabela com todos os dados (a mesma coisa que select * from Lista_Person), entendeu??!!

espero ter ajudado................

 

Espero ter ajudado..

TÓPICO EDITADO
   
ronaldo
não registrado
ENUNCIADA !
Postada em 12/06/2008 17:00 hs   
valew, consegui...

vc,s são mt bacanas...
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página