Ir para conteúdo
Fórum Script Brasil

fhermel

Membros
  • Total de itens

    36
  • Registro em

  • Última visita

Sobre fhermel

  • Data de Nascimento 17/10/1972

Contatos

  • AIM
    fhermel
  • MSN
    fhermel@hotmail.com
  • Website URL
    http://www.webmasterrs.com
  • ICQ
    0
  • Yahoo
    fhermel

Perfil

  • Location
    POA

fhermel's Achievements

0

Reputação

  1. fhermel

    Exercicio de Subrotinas

    Olá amigo, voce poderia me mostra como pois não estou entendendo ?!?!?!? waleu!!!
  2. fhermel

    Exercicio de Subrotinas

    Olá pessoal, já dei inicio a este cod C++ como citado no exercicio acima. Agora so valta calcular a diferença das horas as opções a e b já esta pronto agora so falta c e o d.
  3. Olá pessoal, :wacko: Estou aqui pedindo novamente a ajuda dos amigos, pois estou com este trabalho de faculdade e não estou sabendo por onde começar! seque abaixo a descrição do exercício. EXERCÍCIOS SOBRE SUBROTINAS Escreva um programa em C que leia do teclado um horário do dia (horas, minutos e segundos), e valide se a entrada é coerente. O programa deve ler um segundo horário (também validando), e caso este seja maior do que o primeiro, calcular e imprimir o tempo que decorreu entre os dois horários informados (caso contrário, informar que o segundo horário informado é anterior ao primeiro). O tempo decorrido deve ser informado na forma <H> horas, <M> minutos, <S> segundos. Caso algum dos campos tenha valor nulo, a respectiva unidade de tempo não deve ser informada. Por exemplo, se o tempo decorrido for de 1 minuto e 45 segundos, a mensagem impressa deve ser apenas “1 minuto, 45 segundos” (ou seja, o numero de horas não deve ser informado). O programa deve conter obrigatoriamente as seguintes subrotinas: a) void ler_horario (int *hora, int *minuto, int *segundo) // solicita ao usuário a leitura do horário (e efetua a leitura) B) bool valida_horario (int hora, int minuto, int segundo) // valida o horario, retornando true se for valido, ou false se for invalido c) int calcula_tempo_decorrido (int hora1, int minuto1, int segundo1, int hora2, int minuto2, int segundo2 ) // verifica se o segundo horário é posterior ao primeiro. Caso seja, retorna o tempo decorrido (em segundos). Caso não seja, retorna o valor -1 d) void imprime_tempo_decorrido (int tempo_segundos) // imprime o tempo decorrido no formado especificado no enunciado (assumindo que a entrada fornecida é o tempo decorrido em segundos) No programa, defina os protótipos da funções (antes do main), e deixe a declaração das subrotinas para o final do arquivo.
  4. fhermel

    Erro

    waleuzis já esta ok
  5. fhermel

    Erro

    Buenas galera do ASP. Pelo amor de deus alquem tem uma luz para um pobre mortal... Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][Driver ODBC para Microsoft Access] Não foi possível excluir items das tabelas especificadas. desde já obrigado
  6. fhermel

    Mais Uma Ajudinha

    Valeu amigo Mais aonde devo colocar esta linha ?!?!? eu não conheso este " RecSet.Fields " brigaduuuuuuuu !!!
  7. fhermel

    Mais Uma Ajudinha

    Salve galerinha do ASP ... Tentarei ser o mais claro possível estou fazendo um cadastro de cliente e logo após a inclusão no BD quero fazer uma nova venda usando o ID deste cliente castrado a pouco. Então no mesmo code logo após a inclusão faço uma busca pelo telefone do cliente e coloco apenas o ID no response.redirect ??? Olhem o code abaixo <% 'Declaração de Variaveis Dim cliente, cpf, cnpj, fone, celu, fax, email, endereco, numero, apto, bloco, bairro, cep, obs 'Valor das Variaveis cliente = Request.Form("cliente") cpf = Request.Form("cpf") if cpf="" then cpf="Este cliente não é pessoa fisica!" end if cnpj = Request.Form("cnpj") if cnpj="" then cnpj="Este cliente não é pessoa jurica!" end if fone = Request.Form("fone") celu = Request.Form("celu") if celu="" then celu="cliente sem celular!" end if fax = Request.Form("fax") if fax="" then fax="cliente sem fax!" end if email = Request.Form("email") if email="" then email="Cliente não informatizado!" end if endereco = Request.Form("endereco") numero = Request.Form("numero") apto = Request.Form("apto") if apto ="" then apto="Sem numero de apartamento!" end if bloco = Request.Form("bloco") if bloco="" then bloco="Sem numero de bloco!" end if bairro = Request.Form("bairro") cep = Request.Form("cep") if cep="" then cep="00000-000" end if obs = Request.Form("obs") if obs="" then obs="Não costa obsevação para este cliente!" end if 'Abre conexão com o Banco Dim objConn Dim SQL Set objConn = server.createobject("ADODB.Connection") objConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &Server.MapPath("bd/admin.mdb")) set objrs=server.createobject("adodb.recordset") SQL= "select * from cadastro where fone='"& fone &"'" objrs.Open SQL, objConn if objrs.eof then olha_fone="NOA" end if objrs.close if olha_fone = "NOA" then 'Inicia o Processo de Inclusao no Banco 'A opcao Aspas E comercial e Underscore serve para organizar o código SQL=" "&_ "INSERT INTO cadastro ("&_ "cliente, "&_ "cpf, "&_ "cnpj, "&_ "fone, "&_ "celu, "&_ "fax, "&_ "email, "&_ "endereco, "&_ "numero, "&_ "apto, "&_ "bloco, "&_ "bairro, "&_ "cep, "&_ "obs) "&_ "" & "VALUES ("&_ "'" & cliente & "', "&_ "'" & cpf & "', "&_ "'" & cnpj & "', "&_ "'" & fone & "', "&_ "'" & celu & "', "&_ "'" & fax & "', "&_ "'" & email & "', "&_ "'" & endereco & "', "&_ "'" & numero & "', "&_ "'" & apto & "', "&_ "'" & bloco & "', "&_ "'" & bairro & "', "&_ "'" & cep & "', "&_ "'" & obs & "')" 'busca para recuperar o ID do cliente SQL= "select * from cadastro where fone='"& fone &"'" Set RecSet = objconn.Execute(SQL) 'Response.Write SQL response.redirect "vendas.asp?id="&ID&"" end if if olha_fone <> "NOA" then response.redirect "ok.asp?resposta=1" end if %> valeuzis
  8. fhermel

    Mais Uma Duvida De Soma

    Ai galerinha agora esta OK busca e da o total das colunas no final o code esta abaixo para teste VALEUZIS Dark0 <% Dim objConn, objrs, strsql, id, texto, olha_fone id = request("id") Set objConn = server.createobject("ADODB.Connection") objConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &Server.MapPath("bds/cadastro.mdb")) set objrs=server.createobject("adodb.recordset") strsql= "SELECT * from compra where comcli = '"&id&"' order by data" objrs.Open strsql, objConn If objrs.EOF Then Response.Write("<center><b>Nenhum registro foi encontrado</b></center>") Else end if set RS=server.createobject("adodb.recordset") strsql_2= "SELECT SUM(compra.valor) AS tvalor, SUM(compra.quanto) AS tqto FROM compra where comcli='"&id&"'" 'Response.Write strsql RS.Open strsql_2, objConn if RS.EOF then Response.Write("<center><b>Nenhum registro foi encontrado</b></center>") else end if %> <html> <head> <title>Untitled</title> </head> <body> <%do while not objRS.eof%> &nbsp;&nbsp;VALOR: <b><%=objRS("valor")%></b>&nbsp;&nbsp;QUANTIDADE: <b><%=objRS("quanto")%></b><br> <%objrs.movenext loop%> <br> &nbsp;&nbsp;VALOR: <b><%=RS("tvalor")%></b>&nbsp;&nbsp;QUANTIDADE: <b><%=RS("tqto")%></b> </body> </html> <% objconn.close set objconn = nothing %>
  9. fhermel

    Mais Uma Duvida De Soma

    Sim da forma correta ???
  10. fhermel

    Mais Uma Duvida De Soma

    esta abaixo &nbsp;&nbsp;VALOR: <b><%=objrs("tvalor")%></b>&nbsp;&nbsp;QUANTIDADE: <b><%=objrs("tqto")%></b>
  11. fhermel

    Mais Uma Duvida De Soma

    Sim os nomes estão corretos , mais sera que não é a orden do SQL ??? Primeiro ele busca e depois soma , na parte que busca ele esta OK mais quando é para somar da aquele erro. Mais se alterado ele soma OK mais não busca e da o mesmo erro ? que duvida cruel VALEUZIS
  12. Ai galerinha do ASP Estou fazendo um code que busca e some mais esta dando um erro da uma olha no code. Ele busca mais não soma da este erro ADODB.Fields error '800a0cc1' ADO não pôde encontrar o objeto na coleção correspondente ao nome ou à referência ordinal solicitada pelo aplicativo. /vendas.asp, line 110 <% Dim objConn, objrs, strsql, strsql_2, id, texto, olha_fone id = request("id") Set objConn = server.createobject("ADODB.Connection") objConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &Server.MapPath("bds/cadastro.mdb")) set objrs=server.createobject("adodb.recordset") strsql= "SELECT * from compra where comcli = '"&id&"' order by data" objrs.Open strsql, objConn If objrs.EOF Then Response.Write("<center><b>Nenhum registro foi encontrado</b></center>") Else end if strsql= "SELECT SUM(compra.valor) AS tvalor, SUM(compra.quanto) AS tqto FROM compra where comcli='"&id&"'" Response.Write strsql %> VALEUZIS
  13. estranho Ricardo achei q era função do FORUM mais tudo bem já dei um jeito, valeu aos q tiveram algum interesse
  14. fhermel

    Cadastro De Email

    Ai galerinha olha o code esta funcionando um Newsletter de barbada bem simples default.asp <html> <head> <title></title> </head> <body> <form name="main3" action="email.asp" target="Ajex" method="post" onsubmit="Ajex()"> <input onfocus="click4()" type="text" name="email" value="Seu e-mail aqui" style="{font-family:verdana;font-size:8pt;color: White;font-style: oblique;background-color:#000066;border: 0px;}"><br> <input type="radio" name="subs" value="0" checked>ADD<br> <input type="radio" name="subs" value="1">DEL<br> <input type="submit" name="submit" value="Enviar" style="{font-family:verdana;font-size:8pt;color: White;font-style: oblique;background-color:#000066;border: 0px;}"> </form> </body> </html> email.asp <% Dim email, sem_nada, subs email=request.form("email") subs=request("subs") if email = " " then sem_nada="<a href=javascript:self.close()><font face=verdana size=1 color=black><b>:.ensira seu email...</b></font></a>" else 'response.write subs accessdb="subs" cn="driver={Microsoft Access Driver (*.mdb)};" cn=cn & "dbq=" & server.mappath(accessdb) set rs = server.createobject("ADODB.Recordset") sql = "select * from emails where email = '"&email&"'" rs.Open sql, cn if rs.eof then ate_o_fim="No" end if rs.close if subs="1" then SQL = "DELETE * FROM emails where email = '"&email&"'" 'Response.Write sql rs.Open sql, cn delete="deletado o email" end if if ate_o_fim = "No" then SQL = "INSERT INTO emails (email)" sql = sql & "values ('"&email&"')" 'Response.Write sql rs.Open sql, cn mostra="enserido o email" end if %> <center> <% if ate_o_fim <> "No" then %> Seu E-Mail já consta em nossos registros. Obrigado!<br> <% else %> Obrigado pelo seu email !<br><br> <% end if %> <%= sem_nada %><br> <%= mostra %><br> <%= delete %><br> <% end if %> <html> <head> <link rel="stylesheet" href="style1.css" type="text/css" media="screen"> <LINK href="s_a.css" type=text/css rel=STYLESHEET> </head> <body marginwidth="0" marginheight="0" leftmargin="0" topmargin="0"> <br> <a href="javascript:self.close()"> <font face=verdana size=1 color=black><b> :. Fechar... </b></font></a></center> </body> </html> </center> valeu a ajuda
  15. fhermel

    Cadastro De Email

    Ai galerinha do ASP Da uma olhada estou fazendo code para cadastro de email, mais eu quero que o usuário tenha a possibilidade de excluir o seu email então criei um FORM com um campo email e um botão RADIO de nome del para que o usuário posa excluir , mais claro não esta funcionando será que rola uma dica ?!?!? agradeço <% Dim email, mostra, sem_nada, del email=request.form("email") del=request("radio") if email = "" then sem_nada="<a href=javascript:self.close()><font face=verdana size=1 color=black><b>:.ensira seu email...</b></font></a>" else accessdb="db/hemails" cn="driver={Microsoft Access Driver (*.mdb)};" cn=cn & "dbq=" & server.mappath(accessdb) set rs = server.createobject("ADODB.Recordset") if del = "radio" then sql= "delete * from estailer where email = "&email&"" response.write("excluido") else end if sql = "select * from estailer where email = '"&email&"'" rs.Open sql, cn if rs.eof then ate_o_fim="No" end if rs.close if ate_o_fim = "No" then SQL = "INSERT INTO estailer (email)" sql = sql & "values ('"&email&"')" 'Response.Write sql rs.Open sql, cn mostra="ok" end if %> <center> <% if ate_o_fim <> "No" then %> Seu E-Mail já consta em nossos registros. Obrigado!<br> <% else %> Obrigado pelo seu email !<br><br> <% end if %> <%=sem_nada%> <% end if %> <%= mostra %> Valeuzis
×
×
  • Criar Novo...