RINGO
-
Total de itens
19 -
Registro em
-
Última visita
Tudo que RINGO postou
-
Bom dia. Pessoal, Preciso de um auxilio. Eu criei um Banco de Dados simples no Access com um campo auto numerador O banco funciona normalmente. Estou inserindo dados atraves de comandos em ASP. seguinte: Quando eu excluo todos os dados do Banco, e volto a incluir informações no BD e volta a conta a partir da ultima numeração. Só que eu gostaria de ele começa de novo. Eu descobri os comandos no access para voltar a zerar o contador (Abra o arquivo mdb entre em ferramentas / ultilitários / compactar e reparar banco de dados.) A minha pergunta é a seguinte: Sempre que zerar o meu banco de dados, eu gostaria que ele voltasse a contagem. ex: (1,2,3....) Tem como fazer essa operação via ASP??? (Abra o arquivo mdb entre em ferramentas / ultilitários / compactar e reparar banco de dados.) grato
-
Bom dia. hicarocastro, Faleu camarada, eu vou postar no ASP Pode fechar o tópico Muito Obrigado.
-
Compactar??? Como assim ? você poderia me ensinar?
-
Bom dia. Pessoal, Preciso de um auxilio. Eu criei um Banco de Dados simples no Access com um campo auto numerador O banco funciona normalmente. Estou inserindo dados atraves de comandos em ASP. A minha duvida é a seguinte: Quando eu excluo todos os dados do Banco, e volto a incluir informações no BD e volta a conta a partir da ultima numeração. Só que eu gostaria de ele começa de novo. Exemplo: 1)Tenho 3 dados no Banco: 1 Dadosqualquer 2 Dadosqualquer 3 Dadosqualquer 2)Excluo todos os Dados do Banco (banco vazio) 3) volta a incluir Dados 4 Dadosqualquer Obs.: Ele começa pelo numero seguinte(4), eu gostaria que ele voltasse para 1 Tem alguma forma de fazer isso??? Se algume poder me ajudar . Grato
-
Fala Galera, Alguém pode me auxiliar com o codigo abaixo. O Codigo abaixo verifica se existe informacao no banco de dados e mostra na pagina dentro da tabela O que eu gostaria de fazer é o seguinte: A primeira linha da tabela, ele me trazer de uma cor e a proxima linha de outra cor. exemplo: branco azul branco azul .... e assim por diante, conforme forem tendo informações no banco de dados. Se alguém poder me auxiliar como fazer e quais os comando. <html><head> <TITLE>mostra_agenda.asp</TITLE> </head> <body bgcolor="aqua"> <center> <p> <font color="#004080" size="5"> <strong>EXCLUINDO DADOS DA TABELA - CLIENTES</strong> </font> </p> <hr> <% 'Para acesso sem um DSN fariamos set conntemp=server.createobject("adodb.connection") conntemp.open "DBQ=D:\inetpub\wwwroot\agenda.MDB;DRIVER={Microsoft Access Driver (*.mdb)}" 'Vamos selecionar somente os primeiros registros da tabela pois a tabela contem muitos registros 'Para isto criaremos uma instrução SQL que selecione somente os autores com Au_id menor que 12 aspSQL="select * from clientes" set rstemp=conntemp.execute(aspSQL) ' verifica se há dados no recordset If rstemp.eof then response.write "Não há dados a exibir<br>" response.write aspSQL & "<br>Não retorna informação alguma..." connection.close set connection=nothing response.end end if %> 'Vamos usar código HTML para criar uma tabela e exibir nossos dados <table border=1> <% ' Vamos dar nome aos cabeçalhos dos campos response.write "<tr>" 'Percorremos for each item in rstemp.fields response.write "<td><B>" & item.name & "</B></TD>" next response.write "</tr>" ' Agora iremos exibir os dados do Recordset gerado pela consulta SQL 'Vamos percorrer o recordset até chegar no final do arquivo DO UNTIL rstemp.eof 'atribuindo os valores dos campos as variáveis Codigo=rstemp("codigo") Nome=rstemp("nome") Endereco=rstemp("endereco") cidade=rstemp("Cidade") estado=rstemp("estado") cep=rstemp("cep") ' escrevendo os campos em uma tabela para exibição via um Browser cellstart="<td align=""top"">" response.write "<tr>" response.write "<td>" & codigo & "</td>" response.write "<td><a href=" & "altera_1.asp?id=" & codigo & ">" & nome & "</a></td>" response.write "<td>" & Endereco & "</td>" response.write "<td>" & Cidade & "</td>" response.write "<td>" & Estado & "</td>" response.write "<td>" & CEP & "</td>" response.write "</tr>" 'move-se para próximo registro do recordset rstemp.movenext LOOP %> </table> <% ' Fechamos o recordset e liberamos a memória usada rstemp.close set rstemp=nothing conntemp.close set conntemp=nothing %> <BR> <a href="incluir.htm">INCLUIR</a> <a href="excluir.asp">EXCLUIR</a> </center> </body></html>
-
Bom dia. Obrigado Pessoal pela ajuda. Fico devendo. Grato
-
boa noite Camaradas, Alguém saberia me dizer se tem como, apos acessar uma pagina ela conta 5 segundos e depois redirecionar para outra. Exemplo: Eu entro na pagina "acesso.asp" e digito o login e a senha, caso os dados não estiverem corretos ela me manda para a pagina "resultado.asp" Que vai me informar que "os dados não conferem" e depois de 5 segundo ela me manda para a pagina "acesso.asp" Tem? Alguém pode me passar os comandos? Grato
-
Bom dia Galera. Preciso de uma ajuda. Eu quero mostrar os dados em um textbox mas o usuario não pode acessar para modificar o conteudo. Se eu usar o "HIDDEN" os dados não aparecem... <input type="hidden" name="codigo" value="<%=form_auid%>"> ... alguém sabe como fazer, ou conhece outro forma melhor de se fazer?
-
Bom dia Galera. Preciso de uma ajuda. Eu quero mostrar os dados em um textbox mas o usuario não pode acessar para modificar o conteudo. Se eu usar o "HIDDEN" os dados não aparecem... <input type="hidden" name="codigo" value="<%=form_auid%>"> ... alguém sabe como fazer, ou conhece outro forma melhor de se fazer?
-
Fala camaradas, Será que alguém pode me auxiliar? estou tentando fazer uma ALTERAÇÃO no banco de dados. Só que quando eu vou alterar, ele está dando erro de sintexe no UPDATE. Se alguém poder dar uma lida na linha do UPDATE e ver se está certo, eu ficarei grato. Um grande abraço. <HTML><HEAD> <TITLE>altera_2.asp</TITLE> <body bgcolor="aqua"></HEAD> <% 'ativa tratamento de erros on error resume next 'atribui os valores do formulario as variaveis nome=request.form("nome") endereco=request.form("endereco") codigo=request.form("codigo") Set Conn = Server.CreateObject("ADODB.Connection") 'O DSN utilizado para a base de dados Bibio.mdb é : asp_db conn.open "asp_db" 'monta consulta para atualiza os registros SQL = "UPDATE authors SET " SQL = SQL & "Author='" & nome & "'," SQL = SQL & "endereco='" & endereco & "'," SQL = SQL & " WHERE Au_ID=" & codigo Set RS = Conn.Execute(SQL) 'se houve algum erro, detalha If err.number>0 then response.write "Ocorreram os seguintes erros no Script: " & "<P>" response.write "Erro Numero=" & err.number & "<P>" response.write "Descricao=" & err.description & "<P>" response.write "Contexto de Ajuda=" & err.helpcontext & "<P>" response.write "Caminho de Ajuda=" & err.helppath & "<P>" response.write "Erro Nativo=" & err.nativeerror & "<P>" response.write "Fonte=" & err.source & "<P>" response.write "SQLState=" & err.sqlstate & "<P>" end if IF conn.errors.count> 0 then response.write "Ocorreu um erro no Banco de Dados " & "<P>" response.write SQLstmt & "<P>" for counter= 0 to conn.errors.count response.write "Error #" & conn.errors(counter).number & "<P>" response.write "Error desc. -> " & conn.errors(counter).description & "<P>" next else response.write "<B>Alterações gravadas com sucesso !!!</b>" response.write "<hr>" response.write "<br>" & "A consulta utilizada foi a seguinte: " response.write "<br>" & SQL response.write "<br>" response.write "<br>" & "Os novos dados são : " response.write "<br>" response.write "<br>" & "Codigo - " & codigo response.write "<br>" & "Nome - " & nome response.write "<br>" & "Data de Nascimento - " & ano end if rs.close set rs=nothing Conn.Close set conn=nothing %> <hr> <a href="altera.asp">Voltar</a> </BODY> </HTML>
-
Olá Pessoal. Gostaria de uma ajuda. Estou tentando fazer uma inclusão no Banco de Dados access com o exemplo abaixo. Mas não estou conseguindo, está ocorrendo um erro de que o Bando de dados pode ser somente leitura. Como posso fazer para acertar esse erro? Ah! estou usando IIS Se alguém poder me auxliar, ficarei grato. HTML> <HEAD> <TITLE>Incluir.html- Examplo</TITLE> </HEAD> <BODY> <H1>Incluindo um novo Cliente </H1> <FORM METHOD="POST" ACTION="incluir.ASP"> <TABLE> <TR><TD>Nome:</TD> <TD><INPUT NAME="Nome" SIZE=20></TD></TR> <TR><TD>Endereço:</TD> <TD><INPUT NAME="Endereco" SIZE=40></TD></TR> <TR><TD>Cidade:</TD> <TD><INPUT NAME="Cidade" SIZE=20></TD></TR> <TR><TD>Estado:</TD> <TD><INPUT NAME="Estado" SIZE=6></TD></TR> <TR><TD>Cep:</TD> <TD><INPUT NAME="Cep" SIZE=10></TD></TR> </TABLE> <BR><INPUT TYPE="SUBMIT" VALUE="Salvar Registro"> <INPUT TYPE="RESET" VALUE="Limpar Campos"> <BR><BR><A HREF="menu.html">Abandonar edição e retornar a pagina principal</A> </FORM> </BODY> </HTML> ----------------------------------------------------------------------------------- <HTML> <HEAD> <TITLE>incluir2.asp - Exemplo</TITLE> </HEAD> <BODY> <H1> Incluindo um novo cliente </H1> <% Dim con Dim rst Const adOpenKeyset = 1 Const adLockOptimistic = 3 ' Cria os objetos Set con = Server.CreateObject("ADODB.Connection") Set rst = Server.CreateObject("ADODB.Recordset") ' Abre a conexão com o banco de dados agenda.mdb con.Open "DBQ=C:\asp_db\agenda.mdb;DRIVER={Microsoft Access Driver (*.mdb)}" ' Cria um Recordset do tipo keyset baseado na tabela clientes ' usando o bloqueio otimista rst.Open "SELECT * FROM clientes", con, adOpenKeyset, adLockOptimistic ' Cria um registro em branco rst.AddNew ' Recebe os dados do formulário e os atribui aos campos da tabela cliente rst("Nome")= Request.Form("Nome") rst("Endereco")= Request.Form("Endereco") rst("Cidade")= Request.Form("Cidade") rst("Estado")= Request.Form("Estado") rst("Cep")= Request.Form("Cep") ' Salva o registro rst.Update Response.Write "<B>Registro salvo com sucesso !</B>" rst.Close con.Close %> <BR><A HREF="menu.html">Retorna a página principal</A> </BODY> </HTML>
-
Outra Dica Em primeiro lugar, verifique se o sistema está usando uma das senhas padrão. Tente as seguintes palavras como senha: AMI, Award, bios, setup, cmos. Se o Bios de seu micro for Award, tente AWARD_SW (em maiúsculas> como senha. É um tipo de chave-mestra, capaz de abrir a maioria dos sistemas. Se não funcionar tente j262. Caso nenhuma dessas senhas tenha funcionado, pegue o manual da sua placa-mãe e procure um jumper que provoque a reconfiguração da CMOS. Se não tiver o manual, abra o micro e procure a bateria da placa-mãe. Deve haver um jumper com três pinos, bem ao lado da bateria. Para apagar a configuração (e a senha) do CMOS, mova o jumper para o posição 2-3 se lá estiver no posição 1-2, ou para 1-2 se estiver em 2-3. Ligue o micro, espere alguns segundos e desligue. Agora, retorne o jumper a sua posição original. Com isso, a senha se foi. Se, contudo, não foi possíveI achar o jumper, a última saída é remover a bateria. Se ela não for soldada à placa-mãe, isso é uma tarefa possível e fácil. Com o micro desligado, remova o bateria e recoloque-a cerca de dez minutos depois.
-
camarada, tente esse.... Limpar a BIOS (Tirar senha)via MS-DOS Entre no prompt do DOS Digite o comando debug Ex.: C:\>debug Ao entrar no modo de Debug digite os dados abaixo em letras minúsculas. -o70,10 -o71,11 -g=fff -q Ao terminar reinicie o computador e entre no setup.
-
Fala galera, Quem poder me auxiliar, ficarei grato. Preciso de ajuda para calcular 2 datas dentro EXCEL VBA exemplo: na coluna a1:a10 eu tenho várias datas. Atraves do VBA eu estou tentando programar o seguinte txtdata -> campo txtbox1 dentro do formulario if txtdata > cells(1,1) then . . . end if porém ele não calculas a datas. Já tentei int, cdate, val..... se alguém tinher alguma ideia me mande grato
-
Boa tarde. Alguém tem uma formula de extenso para o excel. E como coloar a formular para rodar em todas a planilha
-
OU TAMBÉM PODE USAR: For Each Control In UserForm1.Controls Control.Value = False Next Control
-
limpa todos os checkbox Achei a resposta Private Sub CommandButton2_Click() Dim chkb As Control For Each chkb In Me.Controls If chkb.Value = True Then chkb.Value = False End If Next End Sub Se alguém souber outra forma de fazer, por favor me informe grato
-
Mensagem Retornando Na Propria Pagina
pergunta respondeu ao RINGO de RINGO em Ajax, JavaScript, XML, DOM
Muito Obrigado Funcionou direito. Sem querer abusar me da outra ajuda. Se eu quiser criar um botao para limpar tanto o campo Valor1 e valor 2 e o resultado E se você conhece algum livro/apostila que eu possa aprender sobre esses e outros comandos de javascript de forma facil Grato. valeu -
Como faço para fazer o resultado voltar fora da caixa de mensagem... Camaradas, Sou novo aqui, e gostaria de contar com algumas dicas de vocês. eu estou testando uma coisa "baba" para vocês que já são craques no assunto. Eu fiz dois campos para somar valores e o botao para calcular o resultado. Porem eu gostaria que o resultado voltasse na tela e não na caixa de mensagem. Existem esta opção? Linha de comando. <html> <head> <script language="javaScript"> function test1(form) {alert("Resultado: "+ (eval(form.text1.value)+eval(form.text2.value)))} </script> </head> <body> <form name="first"> Informe o primeiro valor: <input type="text" name="text1" size=5 onFocus="this.select()" onKeyPress="Testa_Numero()"> <br> Informe o segundo Valor: <input type="text" name="text2" size=5 onFocus="this.select()" onKeyPress="Testa_Numero()"> <br> <input type="button" name="button1" value="Teste a Informação" onClick="test1(this.form)"> </body> </html>