Verifica Registro Existente Antes De Inserir

[lopesmichelini]

Pessoal, tenho o código abaixo... e gostaria de saber como fazer para pesquisar se o registro novo existe, antes de inserir. Caso existe não permitir a inclusão, caso contrário, incluí-lo.

[]'s

Fabí

icq: 326555706

<%

Option Explicit

Response.Expires = 0

Dim objConn, objRs, strQuery, strConnection, cd_terminal, ds_terminal, cd_operador, ds_operador, ds_titulo_relatorio

cd_terminal = Request.Form("cd_terminal")

ds_terminal = Request.Form("ds_terminal")

cd_operador = Request.Form("cd_operador")

ds_operador = Request.Form("ds_operador")

ds_titulo_relatorio = Request.Form("ds_titulo_relatorio")

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

objConn.Open "DBQ=" & Server.MapPath("teste.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"

strQuery = "INSERT INTO Cadastro_Terminal_Operador (cd_terminal, ds_terminal, cd_operador, ds_operador, ds_titulo_relatorio) VALUES ('"&cd_terminal&"','"&ds_terminal&"','"&cd_operador&"','"&ds_operador&"', '"&ds_titulo_relatorio&"' )"

On error Resume Next

Set ObjRs = objConn.Execute(strQuery)

objConn.close

Set objRs = Nothing

Set objConn = Nothing

if err = 0 Then

'Redireciona o usuário caso não tenha ocorrido erro na transação

response.redirect "sucesso.asp"

Else

response.write( "Não foi possível realizar a operação, verifique os dados!")

end if

%>

[mkboy]

Seguinte, você vai verificar no banco se tem o registro digitado, ok?

<%

campo = Request.form("c_campo "))

%>

<%

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

conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("seubanco.MDB")

Conn.Open ConStr

Set RS = Server.CreateObject("ADODB.Recordset")

%>

<%

thesql = "select * from suatabela where campo = '" & request.form("campo ") & "'"

Set RS = conn.execute(theSQL)

if not rs.eof then

response.redirect("ja_tenho_esse_registro.asp")

end if

%>

Só subsituir os nomes dos campos, nome da tabela e do banco, o resto ta funcionando.

[Victor]

Tipo, para você ver se o registro existe, primeiro você faz um select, e usa a cindição if, assim:

<%If RecSet("registro") = Reques.Form("registro") Then
  Response.Write "Esse registro já existe!"
else
  conn.execute "insert into tabela (registro) values ('"&Request.Form("registro")&"')"
End If%>

Mas você tem que ter o resto das coisas, como a conexão com o bando de dados, o estanciamento de objeto, etc... Caso tenha mais alguma dúvida é só postar ai, que nós te ajudaremos!!!

[]'s

Victor