COMBOBOX

JAMESBOND007 18/06/2010 11:27:01
#345170
Queria buscar intes a partir do banco de dados como que seria essa linha de comando?
CEMM 18/06/2010 11:32:49
#345171
sim vc pode fazer dessa formas:

tabelas.Open [Ô] select * from Cliente where codigo Like [ô]%[Ô] &  Combo.text & [Ô]%[ô] [Ô]  


ou vc pode pegar somente quando ele selecionar na combo:

tabelas.Open [Ô] select * from Cliente where codigo Like [ô]%[Ô] &  Combo.List(Combo.ListIndex) & [Ô]%[ô] [Ô] 


ou se o cogido for o value do combo seria assim:

tabelas.Open [Ô] select * from Cliente where codigo Like [ô]%[Ô] &  Combo.ItemData(Combo.ListIndex) & [Ô]%[ô] [Ô] 


é isso que vc queria?
JAMESBOND007 18/06/2010 11:35:20
#345172
relatei a duvida errada perdão no caso eu queria que os intes dela viessem do banco de dados.
eu cadastrei um produto e na hora que eu clicasse na combo apareceria a lista dos produtos que estão no banco de dados.
CEMM 18/06/2010 11:40:09
#345173
ok...

tabelas.Open [Ô] select * from Cliente where codigo [Ô]

Do While Not Tabelas.EOF
Combo.AddItem Tabelas([Ô]DESCRICAO[Ô])
Combo.ItemData(Combo.NewIndex) = TABELAS([Ô]CODIGO[Ô])
Tabelas.MoveNext
Loop
JAMESBOND007 18/06/2010 11:56:48
#345176
não funcionou não sei por que
tabelas.Open [Ô] select * from vendedor where Nome_vendedor[Ô]

Do While Not tabelas.EOF
Combo1.AddItem tabelas([Ô]DESCRICAO[Ô])
Combo1.ItemData(Combo1.NewIndex) = tabelas([Ô]Nome_vendedor[Ô])
tabelas.MoveNext
Loop


A conexão não pode ser usada para realizar esta operação. Ela esta fechada ou e invalida neste contexto
MARCELO.TREZE 18/06/2010 12:06:54
#345177
veja bem, esta linha

combo.ItemData(Combo1.NewIndex) = [ô]aqui deve receber um numero

não o nome do vendedor

do geito que desja talvez funcione assim

tabelas.Open [Ô] select * from vendedor where Nome_vendedor[Ô]

Do While Not tabelas.EOF
Combo1.AddItem tabelas([Ô]DESCRICAO[Ô]) & vbTab & tabelas([Ô]Nome_vendedor[Ô])
tabelas.MoveNext
Loop

JAMESBOND007 18/06/2010 12:07:43
#345178
minha tabela (vendedor), tem que buscar pelo nome (Nome_vendedor) certo clicou apareceu a lista dos nomes cadastrados.
EDERMIR 18/06/2010 12:08:21
#345179
JAMESBOND007

Você deve observar algumas regras básicas no manuseio do banco de dados.

No caso acima, CEMM levou em consideração que a continuação do comando OPEN fosse completada por você incluindo a variável de conexão. SEMPRE que você abrir uma tabela (ou recordset) você deve fazer referência a qual CONEXÃO de banco de dados esta tabela pertence.

tabelas.Open [Ô] select * from vendedor[Ô],<VARIAVEL DE CONEXÃO>

Se você quiser colocar uma cláusula de condição, complemente com:
tabelas.Open [Ô] select * from vendedor WHERE NOME_VENDEDOR = [ô][Ô] & text1.text & [Ô][ô][Ô],<VARIAVEL DE CONEXÃO>
JAMESBOND007 18/06/2010 12:13:27
#345180
Marcelo agora Não aparece erro e tabem não aparece dados nenhum
CEMM 18/06/2010 13:17:44
#345191
Resposta escolhida
bom vamos lá,

quais são os campos da sua tabela? e esse filtro está vazio.

 tabelas.Open [Ô] select * from vendedor where Nome_vendedor = [ô]Vendedor[ô] [Ô], conexao

Do While Not tabelas.EOF
Combo1.AddItem tabelas([Ô]Nome_vendedor[Ô])
Combo1.ItemData(Combo1.NewIndex) = tabelas([Ô]id_vendedor[Ô]) [ô] aqui tem que ser o codigo do vendedor, se não tira essa linha e ele criarar o index automatico.
tabelas.MoveNext
Loop
JAMESBOND007 18/06/2010 13:44:46
#345198
Ha Todos
Obrigado pela dica!
Consegui deste Jeito aqui!
tabelas.Open [Ô] select * from vendedor where Nome_vendedor[Ô], conectiva
Do While Not tabelas.EOF
Combo1.AddItem tabelas([Ô]Nome_vendedor[Ô])
tabelas.MoveNext
Loop

Todos me ajudaram!
Tópico encerrado , respostas não são mais permitidas