COMBOBOX
Queria buscar intes a partir do banco de dados como que seria essa linha de comando?
sim vc pode fazer dessa formas:
ou vc pode pegar somente quando ele selecionar na combo:
ou se o cogido for o value do combo seria assim:
é isso que vc queria?
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?
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.
eu cadastrei um produto e na hora que eu clicasse na combo apareceria a lista dos produtos que estão no banco de dados.
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
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
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
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
minha tabela (vendedor), tem que buscar pelo nome (Nome_vendedor) certo clicou apareceu a lista dos nomes cadastrados.
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>
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>
Marcelo agora Não aparece erro e tabem não aparece dados nenhum
bom vamos lá,
quais são os campos da sua tabela? e esse filtro está vazio.
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
Ha Todos
Obrigado pela dica!
Consegui deste Jeito aqui!
Todos me ajudaram!
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