Verificar Se Já Existe Registro No Bd

[louvair]

Tenho um formulário de inclusão, com NOME, ENDERECO e EMAIL. Gostaria de saber como faço para verificar se já não tem o nome no BD logo após preencher o campo NOME, proibindo assim que o usuário siga para outro campo.

[André Gusmão]

Há uma coisa muito importante a se observar:

Em desenvolvimento web, tudo que o usuário informa é tratado no lado do cliente para depois ser enviado ao servidor. Dessa forma fica pouco prático testar em conexão com o banco de dados a existência de um registro logo após o preenchimento do primeiro campo de um formulário. Essa tarefa tem que ser realizada após o formulário ser submetido ao servidor para daí fazer as consistências necessárias e responder ao usuário se a informação é válida ou não.

[golbranco]

na hora que você enviar o formulario....para a página asp você coloca antes do insert into...assim

set sql = createobject("adodb.recordset")

sql.open "select * from tabela where nome='"&request("nome")&"' ",conexao

if sql.EOF then

'caso não exista o registro

conexao.execute("insert into tabela (nome, email,endereco)values('"&request("nome")&"',)")

else

'caso já exista no banco de dados

response.write "Cadastro já existente em nosso banco de dados"

end if

[dark0]

pois é..

como o amigo andré havia falado..

quando você preencher o campo, e for passar para outro.. fica complicado fazer uma consulta com o banco, e verificar se existe, antes de passar pro proximo campo..

pois imagine um banco com uns 1000 registros.. a cada letra digitada, verificar se existe no banco (tratando-se da web.. lentidao e etc..)

o que eu imagino, seria algo, tipo: o cara digita, e você coloca um botao "verificar se existe", aí, quando o cara clicar ali, ele verifica se existe, e depois segue..

ao contrario disso, não sei se é possivel..

[louvair]

Cara como já fiz todo o formulário com o Dreamweaver, com suas validações, gostaria de saber como fazer isto a partir dos código criados no dreamweaver, como seguem abaixo.

Criei o recordset, mas o resto não consegui aplicar.

<%

Dim rstEmail

Dim rstEmail_numRows

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

rstEmail.ActiveConnection = MM_ConnSolidario_STRING

rstEmail.Source = "SELECT * FROM BASE WHERE EMAIL = '" + Replace(rstEmail__MMColParam, "'", "''") + "'"

rstEmail.CursorType = 0

rstEmail.CursorLocation = 2

rstEmail.LockType = 1

rstEmail.Open()

rstEmail_numRows = 0

%>

<%

' *** Edit Operations: declare variables

Dim MM_editAction

Dim MM_abortEdit

Dim MM_editQuery

Dim MM_editCmd

Dim MM_editConnection

Dim MM_editTable

Dim MM_editRedirectUrl

Dim MM_editColumn

Dim MM_recordId

Dim MM_fieldsStr

Dim MM_columnsStr

Dim MM_fields

Dim MM_columns

Dim MM_typeArray

Dim MM_formVal

Dim MM_delim

Dim MM_altVal

Dim MM_emptyVal

Dim MM_i

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))

If (Request.QueryString <> "") Then

MM_editAction = MM_editAction & "?" & Request.QueryString

End If

' boolean to abort record edit

MM_abortEdit = false

' query string to execute

MM_editQuery = ""

%>

<%

' *** Insert Record: set variables

If (CStr(Request("MM_insert")) = "form1") Then

MM_editConnection = MM_ConnSolidario_STRING

MM_editTable = "BASE"

MM_editRedirectUrl = "../solidario/agradecimento.asp"

MM_fieldsStr = "Nome|value|E-mail|value|Cidade|value|Estado|value"

MM_columnsStr = "NOME|',none,'''|EMAIL|',none,''|CIDADE|',none,''|ESTADO|',none,'"

' create the MM_fields and MM_columns arrays

MM_fields = Split(MM_fieldsStr, "|")

MM_columns = Split(MM_columnsStr, "|")

' set the form values

For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2

MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))

Next

' append the query string to the redirect URL

If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then

If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then

MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString

Else

MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString

End If

End If

End If

%>

<%

' *** Insert Record: construct a sql insert statement and execute it

Dim MM_tableValues

Dim MM_dbValues

If (CStr(Request("MM_insert")) <> "") Then

' create the sql insert statement

MM_tableValues = ""

MM_dbValues = ""

For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2

MM_formVal = MM_fields(MM_i+1)

MM_typeArray = Split(MM_columns(MM_i+1),",")

MM_delim = MM_typeArray(0)

If (MM_delim = "none") Then MM_delim = ""

MM_altVal = MM_typeArray(1)

If (MM_altVal = "none") Then MM_altVal = ""

MM_emptyVal = MM_typeArray(2)

If (MM_emptyVal = "none") Then MM_emptyVal = ""

If (MM_formVal = "") Then

MM_formVal = MM_emptyVal

Else

If (MM_altVal <> "") Then

MM_formVal = MM_altVal

ElseIf (MM_delim = "'") Then ' escape quotes

MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"

Else

MM_formVal = MM_delim + MM_formVal + MM_delim

End If

End If

If (MM_i <> LBound(MM_fields)) Then

MM_tableValues = MM_tableValues & ","

MM_dbValues = MM_dbValues & ","

End If

MM_tableValues = MM_tableValues & MM_columns(MM_i)

MM_dbValues = MM_dbValues & MM_formVal

Next

MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

If (Not MM_abortEdit) Then

' execute the insert

Set MM_editCmd = Server.CreateObject("ADODB.Command")

MM_editCmd.ActiveConnection = MM_editConnection

MM_editCmd.CommandText = MM_editQuery

MM_editCmd.Execute

MM_editCmd.ActiveConnection.Close

If (MM_editRedirectUrl <> "") Then

Response.Redirect(MM_editRedirectUrl)

End If

End If

End If

%>

[{_carnificina_}]

colega se você está usando o dreamweaver vai no server Behavior

depois

user autentication

Check new User name

Vai aparecer para você selecionar qual capo do formulario ele deve verificar e um campo para selecionar a pagina de resposta.

caso o nome já exista é bem facil.

[Victor]

Conseguiu o q queria cara? Se n conseguiu quando eu voltar pra casa eupostoo codigo