Ir para conteúdo
Fórum Script Brasil

Felipe ( Primow.com.br )

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    8

  • Registro em

  • Última visita

Sobre Felipe ( Primow.com.br )

  • Data de Nascimento 11/12/1987

Contatos

  • Website URL
    http://www.primow.com.br

Perfil

  • Gender
    Male

Últimos Visitantes

439 visualizações

Felipe ( Primow.com.br )'s Achievements

0

Reputação

  1. Felipe ( Primow.com.br )
    Marvi, Gerei um código aqui e efetuei alguns teste, acredito que esteja certo. Veja se atende as suas necessidades. Caso não, favor me informar para que eu possa ver uma outra forma de lhe ajudar. <% 'VERIFICA O REQUEST If request("processar") = "sim" Then 'DECLARA VAR DE VERIFICAÇÃO bit_status = false 'RETORNO DO CAMPO DIGITADO data_informada = request("data_agendamento") 'VERIFICA SE A DATA FOI INFORMADA If Not(IsNull(data_informada) OR data_informada = "") Then 'VALIDA SE É UMA DATA VÁLIDA If IsDate(data_informada) Then 'VERIFICA A DIFERENÇA DE DIAS dif_dias = DateDiff("d", Date, data_informada) 'CASO A DIFERENÇA SEJA DE 1 DIA, CORRESPONDE COMO AO DIA SEGUINTE If CInt(dif_dias) = 1 Then 'MONTA O DIA BASE DO DIA SEGUINTE dia_seguinte = FormatDateTime(DateAdd("d", 1, Date),2) & " 00:00:00" 'VERIFICA A DIFERENÇA EM HORAS dif_hora = DateDiff("n", dia_seguinte, CDate(data_informada)) 'CASO A DIFERENÇA SEJA MAIOR QUE 1020 MINUTOS (17h) If CInt(dif_hora) >= 1020 Then 'NÃO ´PERMITIDO O CADASTRO bit_status = false Else 'PERMITE O CADASTRO bit_status = true End If Else 'CASO A DIFERENÇA SEJA MAIOR QUE 1 DIA, O CADASTRO É PERMITIDO bit_status = true End If Else 'CASO NÃO SEJA UMA DATA VÁLIDA, NÃO PERMITE O CADASTRO bit_status = false End If Else 'CASO NÃO TENHA INFORMADO UMA DATA, NÃO PERMITE O CADASTRO bit_status = false End If 'EXIBE A MENSAGEM DE ACORDO COM O STATUS If (bit_status) Then response.write "O cadastro pode ser efetuado." Else response.write "A data não foi validada." End If End If %> <body> <!-- FORMULÁRIO --> <form name="form1" method="post" action="index.asp"> <input type="text" name="data_agendamento" /> <input type="submit" value="Enviar" /> <input type="hidden" name="processar" value="sim" /> </form> </body> </html> Flwsss...
  2. Felipe ( Primow.com.br )
    nosliwde, Estrutura a consulta que pelo erro informado é problema com "(" e ")". Você deve estar abrindo e não fechando corretamente. Grato.
  3. Felipe ( Primow.com.br )

    comparar data

    pergunta respondeu ao marvi de Felipe ( Primow.com.br ) em ASP

    Tente usar na comparação o CDate(). Ele irá converter sua string em uma data. Ex.: If CDate(vardata_agenda) < CDate(Fun_Data) Then não aceita Else aceita End If Flwsss...
  4. Felipe ( Primow.com.br )
    Boa tarde DeeKilleer, Segue um exemplo que possa te ajudar. Você apenas deverá colocar o mesmo no padrão que você desejar. Usando o seu RedordSet. <% qtd_colunas = 3 /* DEFINA A QUANTIDADE DE COLUNAS */ cont = 0 /* CONTADOR QUE SERÁ USADO NAS COLUNAS */ %> <table width="100%" border="1"> <% i = 1 /* ÍNICIA A VÁRIAVEL COM O VALOR 1 */ While i <= 10 /* WHILE DE 10 POSIÇÕES, VOCÊ DEVERÁ TROCAR PELO SEU RecordSet */ cont = cont + 1 /* INCREMENTA O CONTADOR */ If cont=1 Then /* SE FOR O PRIMEIRO, ABRE A TR */ %> <tr> <!-- ABRE TR --> <% End If %> <td> <!-- ABRE TD --> Foto número <%=i%> <!-- INSERE A FOTO --> </td> <!-- FECHA TD --> <% If cont=qtd_colunas Then /* CASO SEU CONTADOR SEJA IGUAL A QUANTIDADE DE COLUNAS DESEJADA, FECHA A TR E ZERA O CONTADOR */ %> </tr> <!-- FECHA TR --> <% cont = 0 /* ZERA O CONTADOR */ End If i=i+1 /* INCREMENTA A VARIÁVEL "I", NO SEU CASO, SERA SEU RecordSet.MoveNext */ Wend /* FINAL DO WHILE */ If ((cont > 0) AND (cont < qtd_colunas)) Then /* VERIFICA A VÁRIAVEL PARA FECHAR A TABELA E NÃO TER BURACOS */ For i=1 to (qtd_colunas-cont) /* VERIFICA QUANTAS COLUNAS DEVE PREENCHER */ %> <td>-</td> <!-- EXIBE UM "-" PARA TERMINAR A TABELA --> <% Next End If %> </table> Qualquer dúvida, favor me informar. Grato.
  5. Felipe ( Primow.com.br )
    JGD, Você pode tentar transformar a data em um inteiro. Isso geralmente funciona comigo. Porém você tem que convertar juntando o Ano, Mês e Dia. Segue um Exemplo. 'RECUPERA A DATA DE HOJE data_hoje = Year(Now) & Month(Now) & Day(Now) 'RECUPERA A PRÓXIMA DATA DE 5 DIAS data_futura = Year(DateAdd("d", 5, Now)) & Month(DateAdd("d", 5, Now)) & Day(DateAdd("d", 5, Now)) 'MONTA A CONSULTA NA BASE qry = "SELECT * FROM tbCad" qry = qry & " WHERE" qry = qry & " CONVERT(INT, " qry = qry & " (" qry = qry & " CONVERT(VARCHAR, DatePart(Year, dataNasc))" qry = qry & " +" qry = qry & " CONVERT(VARCHAR, DatePart(Month, dataNasc))" qry = qry & " +" qry = qry & " CONVERT(VARCHAR, DatePart(Day, dataNasc))" qry = qry & " )" qry = qry & " ) BETWEEN " & data_hoje & " AND " & data_futura & "" Qualquer dúvida, envia ai. Flwsss...
  6. Felipe ( Primow.com.br )
    Você pode fazer isso na sua própria página. Segue como ficaria. <html> <% If request("alterar") = "sim" Then Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DBQ=" & Server.MapPath("fila.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" strQuery = "UPDATE apontamentos SET id_status = 2, dt_pronto_ativacao = '"&Now&"', oper_pronto_ativacao = 'rlima' WHERE id = "&vID&"" Set rs = objConn.Execute(strQuery) End If %> <body> <form name="form1" method="post" action="pagina_atual.asp"> <input type="hidden" name="alterar" value="sim"> <input name="Submit" type="submit" value="Alterar"> </form> </body> </html> Como você iria chamar a mesma página no action do seu form, ele iria efetuar o update e carregar a mesma página. Qualquer dúvida, manda ai dinovo. Flwsss..
  7. Felipe ( Primow.com.br )
    Boa tarde Denis Courcy, Copiei e colei o código que você me passou, porém o mesmo não funcionou. Exibiu o seguinte erro: You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'DELIMITER;$$' at line 5 Para usar o 'DELIMITER' precisa ter alguma versão especial? Grato.
  8. Felipe ( Primow.com.br )
    Boa tade, Estava lendo sobre procedure no MySQL e fiquei sabendo que só funciona no MySQL superior ao 5.0, porém no servidor onde eu estou hospedando meu site, a versão do MySQL é a 5.1.30 e minha dúvida é o seguinte. O client também precisa ser o 5.1.30? O client que estou usando é o 5.1.11 porém não consigo criar procedure. Estou usando o MySQL Administrator e ele já tem a opção de criar procedure. Segue o código da procedure. CREATE PROCEDURE `minhabase`.`sp_teste` () BEGIN SELECT * FROM `minhabase`.`t_teste` END Segue o erro. You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '' at line 4 alguém poderia me ajudr sobre essa questão? Desde já agradeço.
×
×
  • Criar Novo...