PREENCHIMENTO DE COMBOBOX

SNNIFFER 16/08/2010 19:17:07
#350421
Estou fazendo o preenchimento de um combobox, com dados de uma tabela do banco.



[txt-color=#e80000] Set prs = New ADODB.Recordset
SQL = [Ô]select * from funcionarios where [Ô] & setor & [Ô] like [ô][Ô] & Label.Caption & [Ô] %[Ô] [ô] [ô]Não funciona
prs.Open SQL, gConexao, adOpenStatic, adLockOptimistic, adCmdText
If prs.RecordCount = 0 Then
CmbCargo.Enabled = False
Else
CmbCargo.Clear
prs.MoveFirst
While (prs.EOF = False)
CmbCargo.AddItem prs.Fields([Ô]nome[Ô])
prs.MoveNext
Wend
End If[/txt-color]

Quando uso esta linha funciona, mas seleciona todos os funcionarios.

SQL = [Ô]select * from funcionarios[Ô]

Como faço para selecionar os funcionários de um determinado cargo.
Sendo que estão todos na mesma tabela.

Vlw
TECLA 16/08/2010 20:56:53
#350425
Altere a linha abaixo e tente novamente.

SQL = [Ô]SELECT * [Ô] & _
	  [Ô]FROM funcionarios [Ô] & _
	  [Ô]WHERE [Ô] & setor & [Ô] LIKE [ô][Ô] & Label.Caption & [Ô]%[ô][Ô]
SNNIFFER 16/08/2010 21:37:31
#350433
Usei está codificação, e o combobox está desabilitando.
Como se não tivessem registros na tabela.


[txt-color=#e80000]
Set prs = New ADODB.Recordset
SQL = [Ô]SELECT * FROM funcionarios WHERE [Ô] & setor & [Ô] LIKE [ô][Ô] & txtcargo.text & [Ô]%[ô][Ô]
prs.Open SQL, gConexao, adOpenStatic, adLockOptimistic, adCmdText

If prs.RecordCount = 0 Then
Cmbcargo.Enabled = False
Else
Cmbcargo.Clear
prs.MoveFirst
While (prs.EOF = False)
Cmbcargo.AddItem prs.Fields([Ô]Nome[Ô])
prs.MoveNext
Wend
End If[/txt-color]
Tópico encerrado , respostas não são mais permitidas
Voltar