[Resolvido] Update em vários registros

>
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.

>
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?

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.")
%>

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

>
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>")

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 !

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