Consulta Sql

[vivigrieco]

é o seguinte..

através da minha aplicação, eu faço um update em uma tabela SQL, passnado um "login" e uma "agencia", porém eu preciso saber, antes de fazer esse update, se o campo "Login" que eu passei já existe no banco, caso não exista, quero fazer um insert ao invés de um update.

Alguém sabe como eu faço isso?

[ursolouco]

<% If Session("Logado") = "Ok" Then
 'Faço o UpDate
 Else
 'Faço o Insert
 End If

[vivigrieco]

tipo assim... eu quero fazer esses ifs, mas não se o cara estiver logado, e sim se ele existir ou não na tabela do banco de dados...

tentei fazer assim:

set RSAgencias = Server.CreateObject("ADODB.Recordset")
RSAgencias.Activeconnection = MM_Movimentacao_STRING
    
SQL2 = "select * from cu_cadastro_usuarios where cuMatUsu ='"& UsLogin &"'"
RSAgencias.Open(SQL2)
if RSAgencias.RecordCount then
  SQL = "insert into cu_cadastro_usuarios (cuMatUsu, cuUniUsu, cuOrgaoUsu)     values ('"&UsLogin&"','41501202','"& AgDescricao &"')"
RSAgencias.Open(SQL)
else
SQL = "UPDATE cu_cadastro_usuarios Set cuOrgaoUsu      ='" & AgDescricao & "'"
SQL = SQL & " WHERE  CuMatUsu ='" & UsLogin &"'"
End if
On Error Resume next   
RSAgencias.Open(SQL)

só que ele sempre acusa que não conseguiu gravar o registro, tanto se eu for fazer um update como um insert, apesar de os campos da consulta sql estarem certos...

[ursolouco]

tipo assim... eu quero fazer esses ifs, mas não se o cara estiver logado, e sim se ele existir ou não na tabela do banco de dados...

tentei fazer assim:

set RSAgencias = Server.CreateObject("ADODB.Recordset")
RSAgencias.Activeconnection = MM_Movimentacao_STRING
    
SQL2 = "select * from cu_cadastro_usuarios where cuMatUsu ='"& UsLogin &"'"
RSAgencias.Open(SQL2)
if RSAgencias.RecordCount then
  SQL = "insert into cu_cadastro_usuarios (cuMatUsu, cuUniUsu, cuOrgaoUsu)     values ('"&UsLogin&"','41501202','"& AgDescricao &"')"
RSAgencias.Open(SQL)
else
SQL = "UPDATE cu_cadastro_usuarios Set cuOrgaoUsu      ='" & AgDescricao & "'"
SQL = SQL & " WHERE  CuMatUsu ='" & UsLogin &"'"
End if
On Error Resume next   
RSAgencias.Open(SQL)

só que ele sempre acusa que não conseguiu gravar o registro, tanto se eu for fazer um update como um insert, apesar de os campos da consulta sql estarem certos...

Não que vá funcionar, mas é mais ou menos assim..

set RSAgencias = Server.CreateObject("ADODB.Recordset")
RSAgencias.Activeconnection = MM_Movimentacao_STRING
   
SQL2 = "select * from cu_cadastro_usuarios where cuMatUsu ='"& UsLogin &"'"
RSAgencias.Open SQL2, Conn, 3, 3 

	If RSAgencias.Eof Then
   SQL = "insert into cu_cadastro_usuarios (cuMatUsu, cuUniUsu, cuOrgaoUsu)     values ('"&UsLogin&"','41501202','"& AgDescricao &"')"
	Else
  SQL = "UPDATE cu_cadastro_usuarios Set cuOrgaoUsu      ='" & AgDescricao & "'"
   SQL = SQL & " WHERE  CuMatUsu ='" & UsLogin &"'"
	End If

	RsAgencias.Close   
	RSAgencias.Open SQL, Conn, 3, 3

[tiago bonfá]

Faltou o seguinte:

if RSAgencias.eof or RSAgencias.bof then

UPDATE

else

Insert

end if

A linha do if, diz que: Se a procura no banco de dados não tiver sucesso, UPdate caso sim, insert... entendeu... o resto do seu código e do código do pessoal está ok... eu também estava com esse problema, mas resolvi assim...