fazer update ou insert

[esousa 0]

Pessoal, estou tentando fazer o seguinte:

Comparar se há algo na tabela com a data de hj, se tiver ele faz o update senão e insere, porém só está inserindo.

 

Alguém sabe o que pode ser???

 

Parte do código está abaixo:

VLW, pela força!!!

 

Esousa

 

data_evento = Year(date)&"-"&Month(date)&"-"&Day(date)sql = "select ID, date_format(data,'%Y-%m-%d') as datas from quadro where data = '"& data_evento &"' " rec.Open sqldat_db = rec("datas")rec.Closeset rec=nothingif  " & dat_db & " = " & data_evento & " thensql="update quadro set p1='" & Session("qtde_evento_p1") & "', p2 = '" & Session("qtde_evento_p2") & "', CA= '" & Session("qtde_CA") & "',FO='" & Session("qtde_FO") & "',PA='" & Session("qtde_PA") & "', Login= '" & Session("qtde_eventos") & "', Acertos='" & Session("qtde_evento") & "' where data = '" & dat_db & "' " elsesql="insert into quadro(data,P1,P2,Login,CA,FO,PA,Acertos) values ( '" & data_evento & "', '" & Session("qtde_evento_p1") & "', '" & Session("qtde_evento_p2") & "', '" & Session("qtde_eventos") & "', '" & Session("qtde_CA") & "', '" & Session("qtde_FO") & "', '" & Session("qtde_PA") & "', '" & Session("qtde_evento") & "')"end ifcon.Execute sql

[jothaz 1]

Pessoal, estou tentando fazer o seguinte:Comparar se há algo na tabela com a data de hj, se tiver ele faz o update senão e insere, porém só está inserindo.Alguém sabe o que pode ser???Parte do código está abaixo:VLW, pela força!!!Esousa

data_evento = Year(date)&"-"&Month(date)&"-"&Day(date)sql = "select ID, date_format(data,'%Y-%m-%d') as datas from quadro where data = '"& data_evento &"' " rec.Open sqldat_db = rec("datas")rec.Closeset rec=nothingif  " & dat_db & " = " & data_evento & " thensql="update quadro set p1='" & Session("qtde_evento_p1") & "', p2 = '" & Session("qtde_evento_p2") & "', CA= '" & Session("qtde_CA") & "',FO='" & Session("qtde_FO") & "',PA='" & Session("qtde_PA") & "', Login= '" & Session("qtde_eventos") & "', Acertos='" & Session("qtde_evento") & "' where data = '" & dat_db & "' " elsesql="insert into quadro(data,P1,P2,Login,CA,FO,PA,Acertos) values ( '" & data_evento & "', '" & Session("qtde_evento_p1") & "', '" & Session("qtde_evento_p2") & "', '" & Session("qtde_eventos") & "', '" & Session("qtde_CA") & "', '" & Session("qtde_FO") & "', '" & Session("qtde_PA") & "', '" & Session("qtde_evento") & "')"end ifcon.Execute sql

Tenta assim:

<%data_evento = Year(date)&"-"&Month(date)&"-"&Day(date)sql = "select ID, date_format(data,'%Y-%m-%d') as datas from quadro where data = '"& data_evento &"' "rec.Open sqlIf Not rec.eof() then	sql="update quadro set p1='" & Session("qtde_evento_p1") & "', p2 = '" & Session("qtde_evento_p2") & "', CA= '" & Session("qtde_CA") & "',FO='" & Session("qtde_FO") & "',PA='" & Session("qtde_PA") & "', Login= '" & Session("qtde_eventos") & "', Acertos='" & Session("qtde_evento") & "' where data = '" & dat_db & "' "else	sql="insert into quadro(data,P1,P2,Login,CA,FO,PA,Acertos) values ( '" & data_evento & "', '" & Session("qtde_evento_p1") & "', '" & Session("qtde_evento_p2") & "', '" & Session("qtde_eventos") & "', '" & Session("qtde_CA") & "', '" & Session("qtde_FO") & "', '" & Session("qtde_PA") & "', '" & Session("qtde_evento") & "')"end ifrec.Closeset rec=nothingcon.Execute sql%>

t+

[esousa 0]

Deu o seguinte erro:Microsoft VBScript runtime error '800a01c2' Wrong number of arguments or invalid property assignment: 'eof'

[jothaz 1]

Deu o seguinte erro:Microsoft VBScript runtime error '800a01c2'Wrong number of arguments or invalid property assignment: 'eof'

Troque:

If Not rec.eof() then

Por:

If Not rec.eof then

[esousa 0]

beleza...Agora funcionou....

VLW, Obrigado!!!!

 

 

Eduardo http://forum.imasters.com.br/public/style_emoticons/default/natal_biggrin.gif