ADL

:D OI amigo continua não dando certo parece que não afetou nada colocar o código que você mandou!!!O pode ser?

:D Então usei o while mesmo assim não funciona ele continua inserindo mesmo tendo esse dado no banco mas pelo os testes que eu fiz é como se ele não entrasse no loop! coloquei ums response para ver se ele tava passando ele não estar alguém sabe o que pode ser?

:D Ho fala qual é o sistema que você está usanso? qual é o tipo de aplicação que você quer fazer, fica mais facil ok!!! :D ai esse código te te passaram é melhor você rodar fora do seu ok!!!!

:o Ola acho que o erro é no comando de repetição alguém pode confirmar para mim e dizer o que está errado, por favor?

:D Bom dia!!! Estou com uma certa dificuldade fiz 2 condiçoes para verifcar se já existe um dado no bando de dados so que não está funciomando se alguém puder me ajudar eu agradeço: <% @ LANGUAGE="VBSCRIPT"%> <% Option Explicit Dim varNome,varEndereco,varCidade,varEstado ,varCep,varEmail,varTelefone,varCel,comp,comp1 Dim conexaoDataBase Dim strINS, rsTabela,ConnString,sqlTabela set conexaoDataBase = Server.CreateObject("ADODB.Connection") ConnString ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\serieweb\nasp\database\dbcadastro.mdb;Persist Security Info=False" conexaoDataBase.Open ConnString comp1 = "não" comp=trim(request.QueryString("txtNome")) varNome = TRIM(request.form("txtNome")) varEndereco = TRIM ( request.form("txtEndereco")) varCidade =TRIM (request.form("txtCidade")) varEstado =TRIM(request.form("txtEstado")) varCep=TRIM(request.form("txtCep")) varEmail=TRIM(request.form("txtEmail")) varTelefone=TRIM(request.form("txtTelefone")) varCel=TRIM(request.form("txtCel")) strINS = " SELECT * From tabela WHERE nome = ' " & comp & " ' " set rsTabela=conexaoDataBase.execute(strINS) do while not rsTabela.eof if(comp = rsTabela("nome")) then response.write( rsTabela("nome")) comp1="sim" response.write("Dados já existente em nosso Banco de Dados!" ) end if rsTabela.MoveNext loop if(comp1 ="não") then strINS = "INSERT INTO tabela(nome,endereco,cidade,estado,cep,email,telefone,cel)VALUES( ' "&varNome&" ' , ' "&varEndereco&" ' , ' "&varCidade&" ' , ' "&varEstado&" ' , ' "&varCep&" ' , ' "&varEmail&" ' , ' "&varTelefone&" ' , ' "&varCel&" ' )" set rsTabela=conexaoDataBase.execute(strINS) response.write("Os dados do senhor(a)") response.write(VarNome) response.write(" foram cadastrado com sucesso!!!") response.write(comp1) end if %> <a href="listar.asp">Voltar</a> <% conexaoDataBase.Close Set conexaoDataBase = nothing %> :D desculpe ninguém tem bola de cristal acontece que a primeira comparação não está validadndo sempre esta incuindo no baco de dados a variavel é sempre não já dei um response e verifiquei.....

:( Fala amigo bom dia! Ho inseri o código que você passou não funcionou como eu faço para dar permissão? me ajude por favor preciso muito disso muito obrigado!!!!! :D Ai funcionou so que ele deleta todos os nomes iguais, você acha melhor eu colocar um código para você para cada um? :D há esque ci se você puder me dizer o que está fazendo esse código eu agradeço. codExclui= cstr(trim(request.QueryString("nome1")))

:D Ola boa tarde! Estou com um problemainha com a sintaxe DELETE, meu codigo não mostra erro mas também não delelta se alguém puder me ajudar fico muito agradecido!!!! Segue o código: <%@LANGUAGE="VBSCRIPT"%> <% Option Explicit DIM conexaoDataBase DIM rsTabela,strTabela,codExclui codExclui=request.QueryString("nome1") const cntCaminho = "c:\serieweb\nasp\database\dbcadastro.mdb" Set conexaoDataBase = Server.CreateObject("ADODB.Connection") Set rsTabela = Server.CreateObject("ADODB.Recordset") conexaoDataBase.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & cntCaminho strTabela = " DELETE FROM tabela WHERE nome = ' " & codExclui & " ' " set rsTabela = conexaoDataBase.Execute(strTabela) conexaoDataBase.close set conexaoDataBase=nothing %> Mais uma vez muito obrigado!!!! ADL

:D Ai deu certo era isso mesmo eu estava colocando as aspas juntas separei como você fez ai no seu exemplo e funcionou ai muito obrigado mesmo para mim isso foi um grande passo graças a esse forum e as pessoas que gostam de ajudar fico muito feliz em fazer parte desse forum tenham um bom dia!!!!!ADL :D è que eu não defini um campo codigo, por isso aparece duas vezes o campo nome, ele esta atualizando pelo nome, você acha melhor eu colocar um campo código? :D Ai se você puder me ajudar nesse também poxa para mim vai ser muito bom, acho que é a mesma coisa mas separei também não funcionou e também não mostra erro. Preciso deletar agora para finalizar minha agenda segue o codigo: <%@LANGUAGE="VBSCRIPT"%> <% Option Explicit DIM conexaoDataBase DIM rsTabela,strTabela,codExclui codExclui=request.QueryString("nome1") const cntCaminho = "c:\serieweb\nasp\database\dbcadastro.mdb" Set conexaoDataBase = Server.CreateObject("ADODB.Connection") Set rsTabela = Server.CreateObject("ADODB.Recordset") conexaoDataBase.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & cntCaminho strTabela = "DELETE FROM tabela WHERE nome = ' " & codExclui & " ' " set rsTabela = conexaoDataBase.Execute(strTabela) conexaoDataBase.close set conexaoDataBase=nothing %> Desde já agradeço pela força, se você souber onde encontrar uma apostila otima de asp com banco me fala por favor fui no apostilando e não encontrei o que procurava!!!!Valeu amigo desculpa mais uma vez o incomodo ADL

:D OI sua duvida não ficou clara!!!!

:D Ola amigo tudo bem, java é uma linguagem muito gostosa de ser aprender, eu estou aprendendo com o eclipse é muito bom, tem a versão em português mas me parece muito pesada, eu uso a inglês de uma pesquisada!!!!!!

:( Boa Tarde Amigo estou com um problema. Estou fazendo uma agenda em asp e preciso fazer atualização, e engraçado não da erro mas também não atualiza, me ajude por favor!!!!segue o codigo: <% @ LANGUAGE="VBSCRIPT"%> <% Option Explicit Dim varNome,varEndereco,varCidade,varEstado ,varCep,varEmail,varTelefone,varCel,varcod Dim conexaoDataBase Dim strINS, rsTabela,ConnString set conexaoDataBase = Server.CreateObject("ADODB.Connection") ConnString ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\serieweb\nasp\database\dbcadastro.mdb;Persist Security Info=False" conexaoDataBase.Open ConnString varcod =Trim(request.form("codnome")) varNome = TRIM(request.form("txtNome")) varEndereco = TRIM ( request.form("txtEndereco")) varCidade =TRIM (request.form("txtCidade")) varEstado =TRIM(request.form("txtEstado")) varCep=TRIM(request.form("txtCep")) varEmail=TRIM(request.form("txtEmail")) varTelefone=TRIM(request.form("txtTelefone")) varCel=TRIM(request.form("txtCel")) strINS = " UPDATE tabela set nome ='" & varNome & "',endereco= '" & varEndereco & "',cidade = '" & varCidade & "',estado = '" & varEstado & "',cep = '" & varCep & "',email = '" & varEmail & "',telefone = '" & varTelefone & "',cel = '" & varCel & "' WHERE nome = '" & varcod & "' " set rsTabela=conexaoDataBase.execute(strINS) %> Ho pessoal está definido como texto todos os campos ok por favor me ajude!!!!Adilson desde já fico agradecido!!!!Adilson