|
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
|
|
|
|
|
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!!!!
|
|
|
|
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.
|
|
|
|
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 & "'"
|
|
|
|
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...
|
|
|
|