Sobrit

Ok. Valeu pessoal. Moderador pode fechar o tópico. XXXXXXXXXXXXXXXXXXXXXXXX

po cara é justamente isto. Sera que da pra fazer?

oh. Valeu galera. Valeu a ajuda. Moderador pode fechar este tópico.

Valeu Urso louco. E diferente, eu preciso sair da pagina processar e depois voltar + quando eu volto os valores não estam + la e ai eu tenho q digitar td d novo. Mas tem como fazer a text-area ter um valor. E acomo eu faço isto?

BANCO DE DADOS OU O OBJETO É SOMENT LEITURA. E APONTA PARA A LINHA DO ADD NEW.

Galera é o seguinte: Estou com problemas para gravar no banco, acho que é permissão do iis, pois quando mando pro servidor ele roda e na minha maq não roda. alguém pode me ajudar a configurar meu servidor???

Valeu amigos!!!!! :D :D :D Resolvido.

Ok, ok. Mas o que eu preciso é: _verificar se login existe, caso sim retornar erro. _verificar se Cpf existe, caso sim retornar outro erro. _Caso nenhum dos dois existão, ai sim cadastrar um novo cliente O meu codigo até funciona mas as 2 verificações não estão sendo realizadas, só a primeira das duas, se eu inverto continua a mesma coisa. E eu preciso das duas vericações para informar ao cliente o que esta errado. Ok?

Quero verificar " login e Cpf " estou usando o codigo a seguir mas não estou conseguindo obeter sucesso pois a segunda condição não esta sendo executada, se eu inveter a ordem das condições ele continua executando somente a primeira Qual é o problema??? Olha o codigo ai: if not isnumeric(id) then id=0 if id=0 then consulta = "SELECT * FROM tclientes where login='"&login_atual&"' And cpf='"&cpf_atual&"'" Set sql = conexao.Execute(consulta) if not sql.eof = false then set rs=server.CreateObject("adodb.recordset") rs.cursorlocation=aduseserver rs.cursortype=adopenkeyset rs.locktype=adlockoptimistic rs.open "tClientes",conexao,,, adcmdtable rs.addnew rs("nome")=nome_atual rs("login")=login_atual rs("cpf")=cpf_atual rs("idade")=idade_atual rs("senha")=senha_atual rs("nacionalidade")=nacionalidade_atual rs.update session("id")=rs("idcliente") session("s_nome")=rs("nome") session("s_login")=rs("login") session("s_cpf")=rs("cpf") session("s_senha")=rs("senha") session("s_idade")=rs("idade") session("s_nacionalidade")=rs("nacionalidade") response.Redirect "ver_form.asp" rs.close set rs=nothing else ' s_nome=session("nome_atual") ' s_login=session("login_atual") ' s_cpf=session("cpf_atual") ' s_senha=session("senha_atual") ' s_idade=session("idade_atual") ' s_nacionalidade=session("nacionalidade_atual") response.Redirect "form_cadastro.asp?erro=erro2&login_atual=login_atual&" end if else response.Redirect "altera.asp" end if else response.Redirect "form_cadastro.asp" 'Se ID não for numerica!!! end if

na vardade não. Bom , é o seguinte eu terei 2 form´s numa mesma pagina e um botão submit enviara os dois pro banco. Sendo que um destes forms aparecerá na camada, ou seja, você digita clica em um segundo botão e o que foi digitado aparece na camada e ai depois quando o form tiver sido todo preenchido vão os doi pro DB. Não sei se da pra fazer assim.

Ai galéra, to querendo cirar um efeito que, por exemplo: Um form manda pra camada ou area expecifica. Ao clicar no enviar do form ele vai mandar os dados para esta camada e eles podem ser visualizados na mesma hora e depois ai eu mando pro banco. Deu pra entender? só vou mandar pro banco depois, e eu preciso que esta area receba informação de diversos campos. Ok? alguém pode me ajudar ou dar outra sugestão?

Cara você faz isto num piscar de olhos com o Dreamwaver. E só usar so comportamentos.

Por que ele para na primeira condicão do IF? Ou seja se exiete cpf ele da a mensagem e se existe login ele grava assim mesmo. Se eu trocar a comparação acontece a mesma coisa só executa a primeira condição, o que acontece ai??? alguém da uma força ai!!! if id=0 then consulta = "SELECT * FROM tclientes where login='"&login_atual&"' And cpf='"&cpf_atual&"'" Set rs = conexao.Execute(consulta) if rs.eof = false then if rs("cpf")=cpf_atual then response.Redirect "form_cadastro.asp?erro=2" else rs("login")=login_atual then response.Redirect "form_cadastro.asp?erro=3" end if else 'insere no banco end if end if

que mais eu preciso?? Olha o codigo ai galera. Depois deste codigo ai preciso criar duas variaveis que conterão os valores correspodentes a login e cpf? Se a resposta é sim onde devo criar??? consulta = "SELECT * FROM tclientes where login='"&login_atual&"' And cpf='"&cpf_atual&"'" Set rs = conexao.Execute(consulta) Do while Not rs.Eof rs.movenext loop if len(login_atual)=rs_login And len(cpf_atual)=rs_cpf then Response.write rs("idcliente")&" _______________ " Response.write rs("cpf")&" _________________ " Response.write rs("login")&"<br><br>" else response.Write "Erro. Digite novamente!" end if

Tem como ser mais exato? To usando o 2000. Tem como fazer uma media de usuarios suportados? Ele aguenta mais de 20 mil registros e uns 3 mil on-line? Da pra dizer?

Preciso validar os campos login e cpf antes de gravar no banco, os dois não podem se duplicar, como faço???

Oi galera. To usando access na net, sera que alguém pode me dizer quantos registros ele vai suportar e quntos usuarios on-line?

Qual a diferença na programação? Muda muita coisa? Estou usando ASP.

Ai esta é minha conexao set rs=server.CreateObject("adodb.recordset") rs.cursorlocation=aduseserver rs.cursortype=adopenkeyset rs.locktype=adlockoptimistic rs.open "tClientes",conexaodb,,, adcmdtable rs.addnew rs("nome")=nome rs("telefone")=telefone rs("cpf")=cpf rs("aniversario")=aniversario rs("sexo")=sexo rs("dataCadastro")=now rs.update id=rs("idCliente") rs.close set rs=nothing response.Redirect "detalhes.asp?id="&id

E como eu corrijo isto??? Meu banco é Access. Eu criei tudo cérto.

Problemas para inserir ta td cérto mas da este erro Tipo de erro: Microsoft JET Database Engine (0x80040E09) Não é possível atualizar. O banco de dados ou o objeto é somente leitura. /2curso/clientes/processa.asp, line 38 o q acontece

Não é conexão. Estou usando include. O erro é na linha 10 ... .....______ rs.cursorLocation=aduseserver_______..... Qual a função deste codigo? ... A variavel "ID" grava um campo autonum no BD. dim nome, senha, dicaSenha, idCliente nome=trim(request.form("nome")) senha=trim(request.form("senha")) dicaSenha=trim(request.form("dicaSenha")) if not isnumeric(id) then id=0 set rs = server.CreateObject("ADODB.Recordset") rs.cursorLocation=aduseserver rs.cursorType=adopenKeyset rs.lockType=adLockoptimistic rs.open "tClientes", conbd1,,,adcmdtable rs.addNew rs("nome")=nome rs("senha")=senha rs("dicaSenha")=dicaSenha rs.update id=rs("idCliente") rs.Close set rs=nothing response.Redirect "home.asp"

Desculpa mas Não entendi As informações devem ser gravadas no banco por meio de um form, como vou usar este codigo?

Cara desculpa ai mas não entendi nada. Da pra você explicar de novo?

Estou fazendo tambem numa maquina local e nada funciona. Depois te passo por email. Foi aqui que você mudou? strQuery = "INSERT INTO contato (nome,telefone,email,comentario) VALUES ('"&nome&"','"&telefone&"','"&email&"','"&comentario&"')" On error Resume Next Foi esta linha?