[Resolvido] Update em vários registros

[rd111072 1]

Olá moçada.

Preciso de uma ajuda.

 

estou tentantdo atualizar vários registros de uma só vez.

 

para isto estou usando o seguinte código:

 

id_userAt = request("id_userAt")

Nome = request("Nome")
tipo = request("tipo")
stato = request("stato")

pago = request("pago")
login = Replace(Request("login"),"'","")
senha = Replace(Request("senha"),"'","")


sql = "Update Users set tipo = "& tipo &", status_user = "& stato &", pago = "& pago &" where id_user in ("&id_userAt&") "
response.Write(sql)
ConexaoDB.Execute(sql)

 

O resultado do sql e o erro são estes:

 

Update Users set tipo = 1, 1, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, status_user = 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, pago = 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1 where id_user in (3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 23, 24, 25, 28, 29)

Microsoft OLE DB Provider for SQL Server error '80040e14'

 

Incorrect syntax near '1'.

 

/cms/AdmU_atualiza.asp, line 35

 

A linha 35 se refere a isto: ConexaoDB.Execute(sql)

 

Alguém sabe?

[Gilberto Jr 26]

A linha 35 se refere a isto: ConexaoDB.Execute(sql)

 

 

Olá, bom, neste codigo postado acima nao estou vendo a sua conexao com o banco de dados.

[rd111072 1]

Olá, bom, neste codigo postado acima nao estou vendo a sua conexao com o banco de dados.

A conexão está assim:

Set conexaoDB = Server.CreateObject("ADODB.Connection")

conexaoDB.Open "Provider=SQLOLEDB.1;SERVER=00000000;DATABASE=xxxxxxxxxxxx;UID=xxxxxxxxxxxxxxx;PWD=xxxxxx;"

 

Apenas omiti mas está tudo certo com a conexão.

 

e quanto ao resto do código viu algum erro?

[Gilberto Jr 26]

Olhando assim não vejo nada de errado.

 

Segue abaixo um arquivo de conexao com banco de dados SQLSERVER

conexao.asp

Dim con, stringConexao, host, usuario, senha, banco

host   ="xxxxxx"
usuario="sa" 
senha  =""
banco  ="xxxxxx"

stringConexao = "Provider=SQLOLEDB.1;SERVER="&host&";DATABASE="&banco&";UID="&usuario&";PWD="&senha&";"

sub connect
SET con = Server.CreateObject("ADODB.Connection")

con.Open stringConexao
end sub

sub disconnect
con.close
SET conexao = Nothing
end sub

 

dai na pagina AdmU_atualiza.asp você chama ele da seguinte forma.

 

<!--#include file="conexao.asp" -->
<%
sub connect
id_userAt = request("id_userAt")

Nome = request("Nome")
tipo = request("tipo")
stato = request("stato")

pago = request("pago")
login = Replace(Request("login"),"'","")
senha = Replace(Request("senha"),"'","")

dim sql

set sql = con.execute("Update Users set tipo = "& tipo &", status_user = "& stato &", pago = "& pago &" where id_user in ("&id_userAt&") ")
sub desconnect

response.write("dados salvo com sucesso.")
%>

[xanburzum 169]

Verifique a ortografia. pode ser um nome de coluna Invalido 'sua_coluna'. A coluna a qual você se refere na Base de Dados não foi encontrada. e também veja se os tipos de dados estão corretos

[rd111072 1]

Verifique a ortografia. pode ser um nome de coluna Invalido 'sua_coluna'. A coluna a qual você se refere na Base de Dados não foi encontrada. e também veja se os tipos de dados estão corretos

Então,

agora fiz assim mas está dando erro:

 

Type mismatch

 

/cms/AdmU_atualiza.asp, line 41 (linha 41: sql = "Update Users set tipo = "& tipoa &", status_user = "& stato &", pago = "& pago &", plano_mensal = "& plano_mensal &", total_comprado = "& total_comprado &" where id_user = "&id_userAt&" ")

 

Coloquei só o primeiro campo da query sql (tipo) com o valor da variavel Split, pra testar e deu esse erro type mismatch.

 

<%
Set conexaoDB = Server.CreateObject("ADODB.Connection")  
conexaoDB.Open "Provider=SQLOLEDB.1;SERVER=xxxxxxxx;DATABASE=xxxxxxxxxxx;UID=xxxxxxxx;PWD=xxxxxx;"

id_userAt = request("id_userAt")
id_userAta = Split(id_userAt,",")

tipo = request("tipo")
tipoa = Split(tipo,",")

stato = request("stato")
statoa = Split(stato,",")

pago = request("pago")
pagoa = Split(pago,",")

plano_mensal = request("plano_mensal")
plano_mensala = Split(plano_mensal,",")

total_comprado = request("total_comprado")
total_compradoa = Split(total_comprado,",")

login = Replace(Request("login"),"'","")
senha = Replace(Request("senha"),"'","")

dataIU = request("dataIU")
dataIUa = Split(dataIU,",")

sql0="select count(*) as total from Users"
set rs0 = ConexaoDB.Execute(sql0)

contar = rs0("total")
'response.write(contar)

sql2 = "select * from Users"
set rs2 = ConexaoDB.Execute(sql2)


for i=1 to contar

sql = "Update Users set tipo = "& tipoa &", status_user = "& stato &", pago = "& pago &", plano_mensal = "& plano_mensal &", total_comprado = "& total_comprado &" where id_user = "&id_userAt&" "
response.Write(sql)

Next
response.End()

ConexaoDB.Execute(sql)

Response.Write("<script language=""JavaScript"">")
       Response.Write("alert('Dados atualizados.');")
	Response.Write("location.href = ""admin_users.asp?login="&login&"&senha="&senha&""" ")
       Response.Write("</script>")

%>

 

Beleza, consegui resolver já.

 

Set conexaoDB = Server.CreateObject("ADODB.Connection")  
conexaoDB.Open "Provider=SQLOLEDB.1;SERVER=xxx;DATABASE=xxx;UID=xxx;PWD=xxx;"

id_userAt = request("id_userAt")
id_userAt0 = replace(id_userAt," ","")
id_userAta = Split(id_userAt0,",")

tipo = request("tipo")
tipo0 = replace(tipo," ","")
tipoa = Split(tipo0,",")

stato = request("stato")
stato0 = replace(stato," ","")
statoa = Split(stato0,",")

pago = request("pago")
pago0 = replace(pago," ","")
pagoa = Split(pago0,",")

plano_mensal = request("plano_mensal")
plano_mensal0 = replace(plano_mensal," ","")
plano_mensala = Split(plano_mensal0,",")

total_comprado = request("total_comprado")
total_comprado0 = replace(total_comprado," ","")
total_compradoa = Split(total_comprado0,",")



dataIU = request("dataIU")
dataIU0 = replace(dataIU," ","")
dataIUa = Split(dataIU,",")



FOR I = LBOUND(id_userAta) TO UBOUND(id_userAta)


sql = "Update Users set tipo = "& tipoa(I) &", status_user = "& statoa(I) &", pago = "& pagoa(I) &", plano_mensal = "& plano_mensala(I) &", total_comprado = "& total_compradoa(I) &" , Datainscri = convert(smalldatetime,'"&dataIUa(I)&"',103) where id_user = "&id_userAta(I)&" "
response.Write(sql&"<BR>")

ConexaoDB.Execute(sql)
Next
Response.Write("<script language=""JavaScript"">")
       Response.Write("alert('Dados atualizados.');")
	Response.Write("location.href = ""admin_users.asp?login="&login&"&senha="&senha&""" ")
       Response.Write("</script>")

[vonzuben 12]

Cuidado com esse cara rd111072 ao passar trabalho para ele, pois ele diz ter 10 anos de experiência em php, pois faz um serviço péssimo, mal feito, não tem nada de 10 anos de experiencia, onde que você procura a devolucão do dinheiro o cara some e nem contato e online esse cara fica.

 

Pedimos um chat em php e entregou um codigo sujo com vário arquivos duplicado e nem rodar e cria o banco de dados fez.

Não sabe criar um textarea e nem criar um layout, pois tive que refazer tudo.

 

será que um cara com 10 anos de experiência não sabe fazer isso

 

 

Toma cuidado !

[xanburzum 169]

Aconselho também a colocar seu feed-back no fórum de Emprego/freelancers etc.