RINGO
-
Total de itens
19 -
Registro em
-
Última visita
Posts postados por RINGO
-
-
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
-
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>
Autonumerador
em ASP
Postado
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