Postada em 07/06/2006 12:18 hs
Pessoal sou eu d novo!
Agora com um outro problema, porém amarrado ao anterior.
È o seguinte, eu tenho uma combo com uma lista de setores e quero listar o numero do registro de todos os funcionários que trabalham naqquele setor, eu tentei o seguinte código e ele me retorna um erro dizendo que só pode ser retornado um registro da subconsulta.
Private Sub cbo_setor_Click()
Set Rs_Temp_list = conn.Execute("Select registro From tbl_funcionario where (select setor From tbl_departamento Where setor) = '" & cbo_setor.Text & "'")
lst_registros.Clear 'limpa a combo
Do While Not Rs_Temp_list.EOF
lst_registros.AddItem Rs_Temp_list(0)
Rs_Temp_list.MoveNext
Loop
End Sub
|
