APARECENDO AUTOMATICAMENTE DADOS APOS SELECCIONAR

USUARIO.EXCLUIDOS 20/07/2005 22:03:41
#95252
tou precisando d ajuda no seguinte...

como se faz para q ao seleccionar um nome na combo, outros campos no form sejam logo preenchidos automaticamente vindos da bd ?

ou seja selecciona "Nome" e aparece nos dois texts em baixo, a minha idade e o meu e-mail

como se faz ??

abraços
WEBER 21/07/2005 00:49:46
#95261 Resposta escolhida
BOM VC PODE USAR OS METODOS SEEK SE ESTIVER USANDO UMA TABLE OU OS METODOS FIND(ADO) OU FINDFIRST(DAO)

SE FOR DAO
DIM vUsu1 as string
DIM vUsu2 as string
'obtem o nome da combo
vUsu1 = Combo.Text
'monta a busca
vUsu2 = "nome='" + vUsu1 + "'"

rs.Recordset.FindFirst vUsu2

se for ado so muda
rs.Recordset.Find vUsu2
considerando rs = recordset

se preferir vc pode carrregar a sql filtrada dependendo do tamanho seu banco é mais rapdo
"SELECT * FROM Tabela WHERE tabela.nome =" & Combo.Text
USUARIO.EXCLUIDOS 21/07/2005 12:05:53
#95321
Private Sub combo_Click()
Dim rs As New Recordset
rs.Open "SELECT ID FROM Funcionarios WHERE nome = " & combo.Text, conexao, adOpenDynamic, adLockBatchOptimisticm, adCmdText
txt_id.Text = rs.Fields("ID")
rs.Close
End Sub

Esta dando erro em :

rs.Open "SELECT ID FROM Funcionarios WHERE nome = " & combo.Text, conexao, adOpenDynamic, adLockBatchOptimisticm, adCmdText

"Os argumentos sao do tipo incorrecto, estao fora do intervalo aceitavel ou estao em conflito uns com os outros"



q se passa ???

brigado

[[[ ]]]
USUARIO.EXCLUIDOS 21/07/2005 12:43:12
#95330
Private Sub combo_Click()
Dim rs As New Recordset
rs.Open "SELECT ID FROM Funcionarios WHERE nome = " & combo.Text, conexao, adOpenDynamic, adLockBatchOptimistic
txt_id.Text = rs.Fields("ID")
rs.Close
End Sub


Run-time error...

Line 1: Incorrect syntax near 'Rodrigo'.

pq ta dando erro?

[[[ ]]]
GUGSDAJUBS 21/07/2005 12:49:25
#95331
private sub combo_click()
nome = combo.text

Dim rs as new adodb.recodrset
set rs = con.execute("select * from tabela where nome='"& nome &""")
txtidade.text = rs("idade")
txtemail.text = rs("email")

end sub
GUGSDAJUBS 21/07/2005 12:52:36
#95332
Citação:

RUBGOMES escreveu:
Private Sub combo_Click()
Dim rs As New Recordset
rs.Open [Ô]SELECT ID FROM Funcionarios WHERE nome = [Ô] & combo.Text, conexao, adOpenDynamic, adLockBatchOptimistic
txt_id.Text = rs.Fields([Ô]ID[Ô])
rs.Close
End Sub


Run-time error...

Line 1: Incorrect syntax near [à']Rodrigo[à'].

pq ta dando erro?

[[[ ]]]



Cara, o seu deu erro pq vc não colocou aspas simples( ' ) na hora de dizer que valor vc queria para o campo "nome", indicando que o valor é um texto... se mesmo com a aspa simples não der certo, tente fexar a sintaxe toda antes de continuar informando a conexao e os metodos.
USUARIO.EXCLUIDOS 21/07/2005 13:23:46
#95344
brigada pela ajuda !!

ta resolvido esse problema
GUGSDAJUBS 21/07/2005 13:44:48
#95363
Faltou fechar o tópico...
USUARIO.EXCLUIDOS 21/07/2005 13:46:39
#95364
ja ta ...

brigado pessoal
Tópico encerrado , respostas não são mais permitidas
Voltar