|
|
Postada em 29/05/2008 11:56 hs
Boa tarde a todos... gostaria de alguem pudesse me dar uma ajuda... "em tijolo em tijolo, logo logo a casa sai... rs.."
Bom é o seguinte!
Eu tenho uma tabela chamada "TAB_PROF" (tabela de profissionais) (acces2003), nesta tabela eu tenho 3 colunas, sendo: 1º ID_PROF; 2º NOME; 3º AREA.
Eu já construi uma combo no meu form que é está preenchida por valores do campo chamado "NOME" da tabela citada acima...
Código abaixo:
______________
Private Sub Form_Load()
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "SistemaTimeSheet.mdb;Jet OLEDB: Database"
rs.Open "TAB_PROF", conn, adOpenDynamic, adLockPessimistic
cboNome.Clear 'Limpa a combo
Do
cboNome.AddItem rs.Fields("NOME") 'inclui o dado do campo nome do recordset
rs.MoveNext 'move para o próximo registro
Loop While Not rs.EOF
End Sub
___________
A QUESTÃO É:
Gostaria de quando eu escolher o nome deste funcionário nesta combo, seja exibido para mim em um LABEL a área que ele está!
Um grande abraço a todos!!!!!!!
|
|
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 29/05/2008 12:14 hs
Basta você colocar no envento clique ou mous_up da combo uma sql para a pesquisa ex: Private Sub Combo1_Click() SQL="SELECT * FROM TAB_PROF WHERE NOME='" & Combo1.text & "'" Set Busca= rs.Open (SQL, conn, adOpenDynamic, adLockPessimistic)
If not Busca.EOF then Label1.Caption=Busca!AREA End Sub |
|
|
|
|
|
Postada em 29/05/2008 12:43 hs
Obrigado pela sua ajuda Treze... eu inseri seu código e declarei a variárel busca como String assim como também a variárel sql, mas na hora de rodar ele dá um erro nesta linha:
Set Busca = rs.Open(sql, conn, adOpenDynamic, adLockPessimistic)
O erro é na parte do rs.Open
Você pode me dar uma mão?
Obrigado!
|
|
|
|
Treze
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 29/05/2008 14:09 hs
tenta tirar os parentes Set Busca = rs.Open sql, conn, adOpenDynamic, adLockPessimistic
|
|
|
|
|
|
Postada em 29/05/2008 14:14 hs
Continua dando erro no rs.open sql
|
|
|
|
|
|
Postada em 29/05/2008 14:15 hs
E outra dúvia o Set Busca eu declaro como String?
|
|
|
|
