Select

[filipeflc00]

AMIGOS OLHAM SO

ESSE CODIGO

If ex1 = "" Then
    ex1 = "OFF"
Else If ex1 = "ON" Then 
    ex1 = "'000001'"
end if 
end if 

    

'CONSULTANDO TABELA DE EXAMES 1
StrSql1 = "Select * from t_exame where cd_exame = "&ex1&""
Set ObjRs1 = ObjConn.Execute(StrSql1)
'response.write "Select * from t_exame where cd_exame = "&ex1&""



qtdex1 = ObjRs1("dura_exame")
dtvenc1 = DateAdd ("m", qtdex1, dtex1)

OLHA SO

QUANDO EU MANDO ESSE SELECT SELECIONAR NA TABELA ONDE FOR IGUAL A EX1 que E = 000001 ELE não vê NA TABELA não

MAS SE EU COLOCO NO SELECT NO MANUAL

StrSql1 = "Select * from t_exame where cd_exame = '000001'"

AI FUNCIONA

MAS ASSIM

StrSql1 = "Select * from t_exame where cd_exame = "&ex1&""

E NEM ASSIM

StrSql1 = "Select * from t_exame where cd_exame = '"&ex1&"'"

ELE não FUNCIONA

O QUE ESTOU FAZENDO DE ERRADO

OLHEM AI GALERA

VALW EM AGRADEÇO DESDE já

[kuroi]

tem certeza que quando ele passa por aqui

If ex1 = "" Then
    ex1 = "OFF"
Else If ex1 = "ON" Then 
    ex1 = "'000001'"
end if 
end if [/code]

ele fica realmentoe com '000001'? tem certeza que ele esta ON antes de passar pelo if?

e essa linha que você comentou?
[code]'response.write "Select * from t_exame where cd_exame = "&ex1&""

você já tentou ver o que ela retorna?

[filipeflc00]

sim cara

verifiquei e ela me retorno assim

Select * from t_exame where cd_exame = '000001'

acabei de testar antes de postar aqui

olha ai

valw cara

[Fernando_Ramos]

cara..

muda isso aqui

If ex1 = "" Then
    ex1 = "OFF"
Else If ex1 = "ON" Then 
    ex1 = "'000001'"
end if 
end if

para

If ex1 = "" Then
    ex1 = "OFF"
Else If ex1 = "ON" Then 
    ex1 = "000001"
end if 
end if

e o sql

StrSql1 = "Select * from t_exame where cd_exame = '" & ex1 & "'"

logico...to levando em conta que o campo cd_exame é diferente de numero!!

[filipeflc00]

eu já tinha feito isso antes

e agora fiz de novo e continua dando erro ..vo postar o cod inteiro aqui

<!--#include file="conexao.asp"-->
<%
'DESENVOLVIDO POR FILIPE LIMA
Response.Buffer=true
Response.AddHeader "cache-control", "private"
Response.AddHeader "pragma", "no-cache"
Response.ExpiresAbsolute = #January 1, 1990 00:00:01#
Response.Expires=Now()-1
Response.AddHeader "Cache-Control", "must-revalidate"
Response.AddHeader "Cache-Control", "no-cache"
Response.Addheader "Last-Modified:", Now()

objConn.Open conex

'DADOS DO FORM
cd_func = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("cdfunc"),"'",""))))
nm_func2 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("nm_func2"),"'",""))))
ex1 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("ex1"),"'",""))))
dtex1 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("dtex1"),"'",""))))
ex2 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("ex2"),"'",""))))
dtex2 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("dtex2"),"'",""))))
ex3 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("ex3"),"'",""))))
dtex3 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("dtex3"),"'",""))))
ex4 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("ex4"),"'",""))))
dtex4 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("dtex4"),"'",""))))
ex5 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("ex5"),"'",""))))
dtex5 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("dtex5"),"'",""))))
ex6 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("ex6"),"'",""))))
dtex6 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("dtex6"),"'",""))))
ex7 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("ex7"),"'",""))))
dtex7 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("dtex7"),"'",""))))
ex8 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("ex8"),"'",""))))
dtex8 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("dtex8"),"'",""))))
ex9 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("ex9"),"'",""))))
dtex9 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("dtex9"),"'",""))))
ex10 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("ex10"),"'",""))))
dtex10 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("dtex10"),"'",""))))
ex11 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("ex11"),"'",""))))
dtex11 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("dtex11"),"'",""))))
ex12 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("ex12"),"'",""))))
dtex12 = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("dtex12"),"'",""))))

us_ex_func = Session("func")
alt_dt = Date()
'FIM DADOS DO FORM

pagina = "altfunc2_ex.asp?cdfunc="&cd_func&""


If ex1 = "" Then
    ex1 = "OFF"
Else If ex1 = "ON" Then 
    ex1 = "'000001'"
end if 
end if 

    

'CONSULTANDO TABELA DE EXAMES 1
StrSql1 = "Select * from t_exame where cd_exame = "&ex1&""
Set ObjRs1 = ObjConn.Execute(StrSql1)
'response.write "Select * from t_exame where cd_exame = "&ex1&""



qtdex1 = ObjRs1("dura_exame")
dtvenc1 = DateAdd ("m", qtdex1, dtex1)



strSql = "Update t_ex_func Set nm_func2='"&nm_func2&"', ex1='"&ex1&"', dtex1='"&dtex1&"', dtvenc1='"&dtvenc1&"', us_ex_func='"&us_ex_func&"', alt_dt='"&alt_dt&"' where cd_func = '"&cd_func&"'"
Set ObjRs = objConn.Execute(strSql)



Set objRs = Nothing
objConn.close
Set objConn = Nothing

if err = 0 Then
    Response.redirect pagina
end if
%>

e so está dando erro porque ele nauim está axando o numero

porque quando eu retiro esse select da certin

flaw galera

valws

[filipeflc00]

alguém responde ai