Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

chacalAM

não repetir informações no bd

Por , em ASP Clássico

Recommended Posts

chacalAM    0

chacalAM
Postado

Fala salgado, fiz o que você disse hehehe deu este erro: será no SQL?

 

Microsoft OLE DB Provider for ODBC Drivers erro '80040e14'

 

[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe na cláusula FROM.

 

/teste/incluir_ok.asp, line 8

 

 

---------------------------------------------------------------------------------------------------

<!--#include file="adovbs.inc" --><% response.expires = -1000 %><!--#include file="connBanco.asp" --><%set ConnBanco = Server.CreateObject("ADODB.Connection")ConnBanco.open MM_connTableSQL= "SELECT * FROM buscar WHERE link = '"& request("link") &"';"set recbuscar = Server.CreateObject("ADODB.Recordset")recbuscar.Open SQL,ConnBanco,adOpenDynamic,adLockOptimistic,adcmdtableif not recbuscar.EOF or recbuscar.BOF thenrecbuscar.ADDnewrecbuscar("link")=request("link")recbuscar.updateelseresponse.write "<H1>Atenção! O link "& request("link") &" já existe!</H1>"end ifrecbuscar.closeset recbuscar=nothingConnBanco.closeset connbanco = nothing%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado
"SELECT link FROM buscar WHERE link = '"&request("link")&"';"

Confere se o nome da tabela e o nome do campo são esses mesmos!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Testa esse:

<!--#include file="adovbs.inc" -->
<% response.expires = -1000 %>
<!--#include file="connBanco.asp" -->
<%v_Link=request("link")
if v_Link="" then
response.write "Campo Link não está preenchido!"
else
set ConnBanco = Server.CreateObject("ADODB.Connection")
ConnBanco.open MM_connTable
SQL= "SELECT * FROM buscar WHERE link = '"& v_Link &"';"
set recbuscar = Server.CreateObject("ADODB.Recordset")
recbuscar.Open SQL,ConnBanco,adOpenDynamic,adLockOptimistic,adcmdtable

if not recbuscar.EOF or recbuscar.BOF then
 recbuscar.ADDnew
 recbuscar("link")= v_Link
 recbuscar.update
else
 response.write "<H1>Atenção! O link "& v_Link &" já existe!</H1>"
end if

recbuscar.close
set recbuscar=nothing
ConnBanco.close
set connbanco = nothing
end if%>

Estou testando se o campo Link do formulário contém algo, depois tento fazer a inclusão.

Como está o formulário de entrada desses dados?, pode postar o código?

Compartilhar este post

Link para o post
Compartilhar em outros sites

chacalAM    0

chacalAM
Postado

deu o mesmo erro:

 

Microsoft OLE DB Provider for ODBC Drivers erro '80040e14'

 

[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe na cláusula FROM.

 

/teste/incluir_ok.asp, line 12

 

-----------------------------------------------------------------------------------------------------

página incluir_ok.asp

 

<!--#include file="adovbs.inc" --><% response.expires = -1000 %><!--#include file="connBanco.asp" --><%v_Link=request("link")if v_Link="" thenresponse.write "Campo Link não está preenchido!"elseset ConnBanco = Server.CreateObject("ADODB.Connection")ConnBanco.open MM_connTableSQL= "SELECT * FROM buscar WHERE link = '"& v_Link &"';"set recbuscar = Server.CreateObject("ADODB.Recordset")recbuscar.Open SQL,ConnBanco,adOpenDynamic,adLockOptimistic,adcmdtableif not recbuscar.EOF or recbuscar.BOF then recbuscar.ADDnew recbuscar("link")= v_Link recbuscar.updateelse response.write "<H1>Atenção! O link "& v_Link &" já existe!</H1>"end ifrecbuscar.closeset recbuscar=nothingConnBanco.closeset connbanco = nothingend if%>

página de entrada de dados: incluir_link.asp

 

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><form name="form1" method="post" action="incluir_ok.asp">  Link:   <input name="link" type="text" id="link">  <input type="submit" name="Submit" value="Submit"></form></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

chacalAM    0

chacalAM
Postado

Consegui GALERA, valeu a todos que me ajudaram... valeu salgado, bicicleta e outros

 

olhe como ficou:

 

<%set conn = Server.CreateObject("ADODB.Connection")conn.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("link.mdb")link = Request("link") 'Pego o que foi digitado no campoSet rs = conn.Execute("SELECT * FROM buscar WHERE link = '"&link&"'") ' Procuro no BD pelo link q foi digitaoIf rs.EOF Then 'Se nã existir, gravo o linksconn.Execute("INSERT INTO buscar (link) VALUES ('"&link&"')")Else ' Se já existir exibe a msgResponse.WRite "O Link já está cadastrado"End If %><html><head><title>Administrador</title></head><body>Inclusão feita com sucesso!<br><% conn.closeSet rs = NothingSet conn = Nothing%></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito