Acusar Que O Registro Já Existe!

[rockbilly]

Olá forum,

gostaria que na inclusão de um campo no BD o sistema acusasse que o o nome já existe na base de dados! Tentei fazer mas nnão consegui... alguém pode me orientar?

Muito obrigado!

[ursolouco]

Salve Brother!!!

<%
 Dim Campo
 Campo=Request.Form("Campo")
 Set Conn = Server.CreateObject("adodb.connection")
 Set Rs = Server.CreateObject("adodb.recordset")
 cBanco = Server.MapPath("/Banco.mdb")
 strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data source = "& cBanco &";"
 cSQL = "Select Nome From Usuario"
 Conn.Open(strConn)
 Set Rs = Conn.Execute(cSQL)
 If Rs.EOF Then
  Response.Write("Não há nada no banco de dados")
 End if
 If Rs("Nome") = Campo Then
  rs.addnew
  rs(1) = campo_do_form
  rs(2) = campo_do_form
  rs(3) = campo_do_form
  rs(4) = campo_do_form
  rs.update
 Else
  poeSQL = "Insert (nome, telefone, email, namorada) into Geral Values('"& variavel1 &"', '"& variavel2 &"', '"& variavel3 &"', '"& variavel4 &"');"
  Conn.Execute(poeSQL)
  Response.Redirect("OK.asp")
 End if
 Conn.Close
 Rs.Close
 Set Conn = Nothing
 Set Rs = Nothing
%>

Fiz no tapa, veja se isso aí acima pode lhe ajudar.

Abraços!!!

[rockbilly]

Grande urso.louco,

vou olhar este script, cara muito obrigado! qualquer coisa eu posto os results!

Abrs.

[ursolouco]

Grande urso.louco,

vou olhar este script, cara muito obrigado! qualquer coisa eu posto os results!

Abrs.

´ :rolleyes: Brother!!

É mais ou menos, baseadu no código acima, só vai precisar de algums ajuste (sabe, aqueles ajuste de troca total.... rs....)

Abraços!!!