(Resolvido)ComboBox

[gabrieldb]

Boa dia pessoal estou com um problema que parece ser fácil mais não é, eu tenho um BD com diversos clientes aqui da empresa.

Eu queria o seguinte quando a pessoa escolhesse o Posto(cliente) preenchesse os outros campos em vermelho conforme na imagem abaixo com os dados dos respectivos clientes que escolhessem que está na tabela Clientes do meu BD.

Alguém pode me ajudar a fazer isso ?

Abraço!

Editado Agosto 10, 2009 por gabrieldb

[raphael_suporte]

dentro do evento Change do combo você terá que criar um consulta no banco e no depois preencher os dados... mais ou menos por ai, na dúvida coloque seu código aqui

[gabrieldb]

dentro do evento Change do combo você terá que criar um consulta no banco e no depois preencher os dados... mais ou menos por ai, na dúvida coloque seu código aqui

Meu código tá assim:

Private Sub cboPosto_Change()
Call conexao
Conex.CursorLocation = adUseClient
rs.Open "select * from clientes", Conex, adOpenDynamic, adLockOptimistic
    cboPosto = rs("nome")
End Sub

Mais não abre os registros.

[kuroi]

tenta por no evento click.

[gabrieldb]

No evento Click tmb não apareceu Kuroi.

[kuroi]

hum, agora q olhei o seu codigo olha so:

cboPosto = rs("nome")

você disse q quer preencher os otros campos, mas ta preenchendo o proprio combo q ele clicou... qual o sentido?? acho q devia ser txtNome ou qualquer coisa assim ali, não??

[raphael_suporte]

tenta assim

rs.Open "select * from clientes", Conex, adOpenDynamic, adLockOptimistic
if not rs.eof then
    text1.text = rs("campo1")
else
    msgBox(" não há registros cadastrados")
end if
End Sub

e verifica se vai entrar no if ou no else

existem registros nessa tabela correto?

[gabrieldb]

existem registros nessa tabela correto?

Sim tem registro nela sim.

Editado Agosto 7, 2009 por gabrieldb

[gabrieldb]

hum, agora q olhei o seu codigo olha so:

cboPosto = rs("nome")

você disse q quer preencher os otros campos, mas ta preenchendo o proprio combo q ele clicou... qual o sentido?? acho q devia ser txtNome ou qualquer coisa assim ali, não??

Então vai ser mais ou menos assim nesse combobox eu quero que liste todos os meus clientes salvos no banco,e quando o usuario escolher um cliente preencha os campos com os dados do cliente selecionado.Entendeu ?

[raphael_suporte]

então seu problema é para preencher a combo??

se for você vai ter que colocar o seguinte código no seu Form_load.

cboPosto.clear
cboInd = 0
rs.Open "select * from clientes", Conex, adOpenDynamic, adLockOptimistic
if not rs.eof then
    do while not rs.eof
           cboInd = cboInd + 1
           cboPosto.listIndex = cboInd
           cboPosto.additem = rs("nome")
     loop
else
    msgBox(" não há registros cadastrados")
end if
End Sub

[gabrieldb]

então seu problema é para preencher a combo??

Consegui fazer com que meus clientes apareçam no combo meu problema agora é como eu faço pra selecionar um cliente e preencher os campos conforme na imagem com os dados deles ?

[raphael_suporte]

agora voltamos ao inicio do tópico, na evento Click você faz aquela consulta que já passamos, porem ela terá que ter um filtro com o valor da combo..

"select * from clientes where nome = '" & cboposto & "'"

[gabrieldb]

agora voltamos ao inicio do tópico, na evento Click você faz aquela consulta que já passamos, porem ela terá que ter um filtro com o valor da combo..

"select * from clientes where nome = '" & cboposto & "'"

Não entendi raphael

[raphael_suporte]

rs.Open "select * from clientes where nome = '" & cboposto & "'", Conex, adOpenDynamic, adLockOptimistic
if not rs.eof then
    text1.text = rs("campo1")
else
    msgBox(" não há registros cadastrados")
end if
End Sub

[gabrieldb]

Eu fiz isso mais não deu certo, nem deu erro nenhum não aparece nada.

[raphael_suporte]

coloca aqui seu código

para que fique mais fácil de te ajudar

[gabrieldb]

Ai o meu código do change do combo

Private Sub cboPosto_Change() 
Call conexao
 If Conex.Execute("select from clientes where nome = ''") Then
txtSetor = rs("nome")
txtRazao = rs("razao")
txtContato = rs("resp")
txtCargo = rs("cargo")
End If
End Sub

[kuroi]

olha la o codigo q o raphael passou, é bem diferente disso ai q você fez. a unica parte q você tem q alterar é a text1.text = rs("campo1")

alem disso não é pra ser no change. o change é quando o cara digita alguma coisa. se você quer q aconteca quando ele seleciona alguma coisa, tem q ser no click.

[gabrieldb]

olha la o codigo q o raphael passou, é bem diferente disso ai q você fez. a unica parte q você tem q alterar é a text1.text = rs("campo1")

alem disso não é pra ser no change. o change é quando o cara digita alguma coisa. se você quer q aconteca quando ele seleciona alguma coisa, tem q ser no click.

Kuroi sempre me salvando ...rsrs

Deu certinho cara, mais ainda tenho uma dúvida não sei se abro outro tópico ou posto aqui mesmo, sobre o espaço na tabela quando eu busco um registro na tabela ele me traz com espaço como faço pra eliminar esse espaço ?

[kuroi]

espaco, você quer dizer, tipo em vez de ficar

"kuroi"

ele fica tipo

"kuroi     "

seria isso??

se for, use a funcao Trim().

continue aqui mesmo, se o assunto se estender eu divido o tópico.

Editado Agosto 10, 2009 por kuroi

[gabrieldb]

Exatamente, por exemplo minha tabela nome tem o valor pra 20 caracters ai eu gravo apenas 10 quando eu busco ele aparece na text os 10 caracteres e mais 10 de espaço.

Como eu uso essa função Trim() ?

Editado Agosto 10, 2009 por gabrieldb

[raphael_suporte]

Exatamente, por exemplo minha tabela nome tem o valor pra 20 caracters ai eu gravo apenas 10 quando eu busco ele aparece na text os 10 caracteres e mais 10 de espaço.

Como eu uso essa função Trim() ?

trim(valor),

no seu caso se for um campo vindo da tabela para preencher um textBox

text1.text = trim(rs("campo"))

[gabrieldb]

Valeu Raphael e Kuroi pela ajuda, consegui resolver meu problema.

abraço!