[Resolvido] Problema simples com while e condição

[interlokk 0]

Pessoal, tô com um problema que parece simples mas me tá quebrando a mufa.

 

tid= variavel1

emid= variavel2

Set objConn = Server.CreateObject("ADODB.Connection")

Set objRS = Server.CreateObject("ADODB.RecordSet")

objConn.Open = conn

objRS.ActiveConnection = objConn

objRS.Source = "SELECT * FROM tabela"

objRS.LockType = 3

objRS.Open()

While Not objRS.EOF

If (objRS("Etid") = tid) AND (objRS("Emid") = emid) Then

ok = False

Else

ok = True

End If

objRS.MoveNext()

Wend

 

 

o while acima SEMPRE retorna ok= true mesmo que variaveil1 e varivel2 não coincidam com objRS("Emid") e objRS("Etid"), respectivamente. Parece simples mas tô trabalhando em cima disso a algum tempo e a cabeça parou de funcionar. Qualquer dica será bem-vinda.

 

Valeu.

[Mário Monteiro 179]

Acredito que possa estar tendo problema com tipos

 

Experimente converter tudo na comparação

 

Exemplo se forem variaveis de texto

 

If (CSTR(objRS("Etid")) = CSTR(tid)) AND (CSTR(objRS("Emid")) = CSTR(emid)) Then

Veja se resolve

[interlokk 0]

Acredito que possa estar tendo problema com tiposExperimente converter tudo na comparaçãoExemplo se forem variaveis de texto

If (CSTR(objRS("Etid")) = CSTR(tid)) AND (CSTR(objRS("Emid")) = CSTR(emid)) Then

Veja se resolve

 

Funcionou :joia:eu usei CInt pois as variáveis eram numéricas. Valeu mesmo.

[Mário Monteiro 179]

perfeito

 

parabéns por ter solucionado