DataCombo - VBWEB


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: DataCombo

D4rk Schn31d3r

RIO DE JANEIRO
RJ - BRASIL

ENUNCIADA !

Postada em 01/06/2004 17:09 hs

Tenho uma DataCombo e as prop. estão definidas assim:

RowSource = de
RowMember = qryConsAndam
ListField = Andam

Minha query (ID_Andam, Andam) está assim:

[CODE]
SELECT Andam.*
FROM Andam
ORDER BY Andam.Andam
[/CODE]

O q eu quero, é no evento OnClick ou OnChange dessa DataCombo, jogar o valor ID_Andam numa variável gNum, assim:

[CODE]
Private Sub dcboAndam_Change()
    If dcboAndam.Text <> "" Then
        de.rsqryConsAndam.Filter = "Andam = " & dcboAndam.Text
        gNum = de.rsqryConsAndam![ID_Andam]
        Unload frmConsAndam
    End If
End Sub
[/CODE]

Mas é claro q isso não está funcionando!!! Alguém poderia me ajudar?

PS1: sim, meu banco possui dados
PS2: estou utilizando VB6, Access 2000 e DataEnvironments (de)

|-tom-|

CATANDUVA
SP - BRASIL

ENUNCIADA !

Postada em 01/06/2004 17:34 hs

caro amigo eu acho q c vc estiver filtrando um campo texto coloca aspas simples para

consultar o texto Ex: 'Adriano'

-------------------------------------------------------------------------------------------------------------------------------------------------------------------------

tom -Catanduva/SP

Analista Sistemas - Visual Basic 6 - VB.NET

"Confiai perpetuamente no Senhor, porque o Senhor Deus é uma Rocha Eterna"

Isaías 26:4

D4rk Schn31d3r

RIO DE JANEIRO
RJ - BRASIL

Postada em 02/06/2004 09:23 hs

Não cara, nada disso, ..., um rapaz de um outro fórum me ajudou, e fica assim:

------------------------
Defina a opção BoundColumn para ID_Andam, e, depois faça o seguinte:

[CODE]
Private Sub dcboAndam_Change()
If dcboAndam.Text <> "" Then
gnum = dcboAndam.BoundText
End if
[/CODE]
------------------------

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR