Inserir Registros Numa Tabela

[Thaís Mesquita]

Bom dia pessoal!

Já postei no fórum como fazer a conexão com um banco sql server...Mas estou tentando inserir dados na tabela e esta dando o seguinte erro:

ADODB.Recordset (0x800A0BB9)

Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito.

Meu código:

<%
<!--#include virtual="/conecta.inc"--> 
nome=request.form("txtNome")
login=request.form("txtLogin")
senha=request.form("pwdSenha")
confirmaSenha=request.form("pwdConfirmaSenha")

Set RS = Server.CreateObject("ADODB.RecordSet") 'para abrir um recordset
RS.CursorLocation = 3
RS.CursorType = 3
RS.Open SQL, Conn

SQL = "select * from Usuario()"


Set bd = Server.CreateObject("ADODB.Connection") 'para abrir uma conexão
bd.Open Conn

RS.AddNew


set nome = request.form("nome")
set login=request.form("login")
set senha=request.form("senha")
set confirmaSenha=request.form("confirmaSenha")
Set rsQuery = conexao.Execute("insert into Usuario(Nome,Login,Senha,ConfirmaSenha) values('"+nome+";"+login+";"+senha+";"+confirmaSenha+"')")

%>

O que posso estar fazendo de errado?

[fercosmig]

tenta assim

<%
<!--#include virtual="/conecta.inc"-->
nome = Request.Form("txtNome")
login = Request.Form("txtLogin")
senha = Request.Form("pwdSenha")
confirmaSenha = Request.Form("pwdConfirmaSenha")

sql = "insert into Usuario (Nome, Login, Senha, ConfirmaSenha) values ('" & nome & "','" & login & "','" & senha & "','" & confirmaSenha & "')"
conexao.Execute(sql)
%>

[Thaís Mesquita]

[Mesmo erro.... :(

[.Andreia.]

Tenta tirando o RS.AddNew

[Thaís Mesquita]

Tenta tirando o RS.AddNew

Já testei sem ele... ficou assim:

<!--#include virtual="/conecta.inc"-->

nome=request.form("txtNome")

login=request.form("txtLogin")

senha=request.form("pwdSenha")

confirmaSenha=request.form("pwdConfirmaSenha")

Set RS = Server.CreateObject("ADODB.RecordSet") 'para abrir um recordset

RS.CursorLocation = 3

RS.CursorType = 3

RS.Open SQL, Conn

SQL = "select * from Usuario()"

Set bd = Server.CreateObject("ADODB.Connection") 'para abrir uma conexão

bd.Open Conn

SQL = "insert into Usuario(Nome,Login,Senha,ConfirmaSenha) values('" & nome & "','" & login & "','"& senha &"','" & confirmaSenha &"')"

Conn.Execute(SQL)

%>

Editado Novembro 7, 2007 por Thaís Mesquita

[.Andreia.]

E mesmo erro???

[Thaís Mesquita]

E mesmo erro???

Mesmo erro:

ADODB.Recordset (0x800A0BB9)

Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito.

[.Andreia.]

Eu creio que deve ter alguma coisa a ver com esta parte

RS.CursorLocation = 3
RS.CursorType = 3
RS.Open SQL, Conn

mas de qualquer forma, tire o () do final desta instrução:

SQL = "select * from Usuario()"

[Thaís Mesquita]

Mesmo erro Andreia...

O que você acha q devo mudar nesta parte?

[ASP]

RS.CursorLocation = 3

RS.CursorType = 3

RS.Open SQL, Conn

[/ASP]

[Thaís Mesquita]

Valeu! Já consegui resolver!!!

Editado Novembro 8, 2007 por Thaís Mesquita