2 replies to this topic

[wendel]

Salve, salve galera... bom, eu to com uma duvida tremenda... montei um banco em mysql e estou programando em asp um sisteminha, só que na hora de inserir ta dando pau... meu codigo de insert é assim:

<% 
   	nome = request.form("nome")
   	cidade = request.form("cidade")
   	uf = request.form("uf")
   	email= request.form("email")
   	comentarios= request.form("comentarios")
   	set rs = server.createobject("adodb.recordset")
	if (nome = "") or (cidade="") or (uf="") or(email="") then
				Set rs = Nothing
				Set con = Nothing
				response.redirect "index.asp?erro=Preencha todos os campos.&nome="+nome+"&cidade="+cidade+"&uf="+uf+"&email="+email+""
	else
			rs.Open SQL "select * from emails", conn, 1, 3
			rs.addnew
		   	rs("nome") = nome
		   	rs("cidade") = cidade
		   	rs("uf") = uf
		   	rs("email") = email
		   	rs("comentarios") = comentarios
			rs.update
			rs.movelast
			codigo = rs("codigo")	
			rs.update
			rs.close
			con.close
			Set rs = Nothing
			Set fs = Nothing
			Set con = Nothing
			response.redirect "index.asp?erro=Seus dados foram cadastrados com sucesso. Em breve responderemos."
	end if
%>

Ele está dando erro na linha rs.Open SQL "select * from emails", conn, 1, 3, dizendo EXPECTED END OF STATEMENT. Não sei como resolver, espero a ajuda de alguém, ou se alguem tiver um codigo de insert q seja diferente, mas que funcione, por favor postem....

obrigado a todos que puderem me ajudar!

[Worm]

Salve, salve galera... bom, eu to com uma duvida tremenda... montei um banco em mysql e estou programando em asp um sisteminha, só que na hora de inserir ta dando pau... meu codigo de insert é assim:

<% 
   	nome = request.form("nome")
   	cidade = request.form("cidade")
   	uf = request.form("uf")
   	email= request.form("email")
   	comentarios= request.form("comentarios")
   	set rs = server.createobject("adodb.recordset")
	if (nome = "") or (cidade="") or (uf="") or(email="") then
				Set rs = Nothing
				Set con = Nothing
				response.redirect "index.asp?erro=Preencha todos os campos.&nome="+nome+"&cidade="+cidade+"&uf="+uf+"&email="+email+""
	else
			rs.Open SQL "select * from emails", conn, 1, 3
			rs.addnew
		   	rs("nome") = nome
		   	rs("cidade") = cidade
		   	rs("uf") = uf
		   	rs("email") = email
		   	rs("comentarios") = comentarios
			rs.update
			rs.movelast
			codigo = rs("codigo")	
			rs.update
			rs.close
			con.close
			Set rs = Nothing
			Set fs = Nothing
			Set con = Nothing
			response.redirect "index.asp?erro=Seus dados foram cadastrados com sucesso. Em breve responderemos."
	end if
%>

Ele está dando erro na linha rs.Open SQL "select * from emails", conn, 1, 3, dizendo EXPECTED END OF STATEMENT. Não sei como resolver, espero a ajuda de alguém, ou se alguem tiver um codigo de insert q seja diferente, mas que funcione, por favor postem....

obrigado a todos que puderem me ajudar!

Cara vc está tentando "abrir" uma variavel e depois o seu select e sua varial SQL não tem nada....

rs.Open SQL "select * from emails", conn, 1, 3

Muda essa linha pra isso....

SQL = "select * from emails"
rs.Open SQL, conn

Até mais

[wendel]

agora aconteceu este erro...

ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/teste/grava_dados.asp, line 15

na linha 15 temos:

rs.Open SQL, conn

e na 14

SQL = "select * from emails"

Se alguem puder me solucionar este problema, ou melhor, me ajudar, agradeço.