kuroi

clica com o botao direito no SubReport e seleciona Change SubReport Links. ai você vai linkar um campo da seu report principal com o do subreport pra fazer o filtro. q, no seu caso acho q o campo pelo qual seu report esta agrupado (processo, acredito). no caso de mais de um grupo, você passaria os campos de cada grupo.

o q é "a consulta"?? é o central_escolhe_pra_alterar.asp??

entendi valeu. mas então como funciona aqui o forum por exemplo?? a lista de usuarios online?? como ele sabe quando eu sai e não estou mais online?? tipo, se eu clico na pagina inicial do forum ele diz, na lista de usuarios, q eu to vizualizando a index, ate ai td bem. mas ai eu fecho o navegador se clicar em nenhum botao sair nem nd. como ele sabe q eu sai e me tira da lista online??

sim, o InnoSetup. faz uma busca no google q você encontra pra baxar, ele é free. e como o InnoSetup faz o setup baseado num script q você tem q escrever, você teria q saber a sintaxe desse script. então costumamos usar um outro programa q é o IsTool q é tipo um Wizard do InnoSetup, e q monta os scripts pra você. ele tb é free e você encontra pra baxar por ai.

o problema ta no caminho, tira o c: da frente: Shell "%systemroot%\system32\dfrg.msc"

usa a funcao left: Text2.Text = Left(Text1.Text, 3)

não, o close só fecha o recordset, e só no caso de ele estar aberto (com registros), ele vai fechar a consulta atual, mas o recordset continua utilizavel.

é o seguinte. no meu site tenho uma tabela onde eu vou guardar os dados de cada visita. ai assim q qualquer pagina do site for carregada, tenho um include q vai checar a sessao. se ela estiver vazia, ele vai e grava na tabela os dados do usuario, tipo ip, navegador, hora de acesso (hora do inicio da sessao) e etc. quero saber se tem como saber quando essa sessao for encerrada. ai quando ele sair eu gravo no banco a hora q ele finalizou a sessao. da pra fazer isso no php?? sei q no asp eu faria acho q com o Session_OnEnd no global.asa, mas acho q o php não tem algo assim. como fazer com php??

o q acontece de errado?? ele redicireciona pro logar.asp?? mas com a querystring erro = 1, 2, 3 ou 4??

se você quer q uma coisa seja executada continuamente, então use um Timer. ai no evento MouseDown você habilita o Timer e no MouseUp, você desabilita.

ta, mas o seu campo ta com formato MM-YYYY, não?? ele não tem dia, certo?? como esta o formato no banco?? tipo, adicione o dia antes de converter. tipo, se no banco ta gravado como MM/YYYY, tenta assim: word = "DELETE FROM TrocasProgramadas WHERE Cast('01/' DataImporta As Date) = '" & Format(CDate("01/" & form1.text1.text), "YYYY-MM-DD") & "'"

seu site ta em uma pasta no seu pc, não?? clica com o botao direito nessa pasta e clica em propriedades. na aba geral vai ter um item Tamanho.

já vi mta gente se mantando pra saber qual o ultimo dia do mes, tentando calcular ano bissexto e etc e fazendo uma funcao gigante com varios ifs e etc (eu mesmo fazia assim). na verdade não precisa de nd disso. arranjei um jeito simples aqui de fazer q funciona sempre pra qualquer mes, qualquer ano e qualquer dia q esteja na data: Public Function UltimoDia(datax As Date) As Date UltimoDia = DateAdd("m", 1, DateSerial(Year(datax), Month(datax), 1)) UltimoDia = DateAdd("d", -1, UltimoDia) End Function[/code]

Esse é pra quem calcula diferenca em segundos e depois quer escrever o valor em minutos ou horas. Exemplo, você tem um intervalo de 80 segundos e quer transformar em 1 minuto e 20 segundos. ou tem 3600 segundos e quer transformar em 1 hora. Note q se você tem o valor em minutos e quer transformar em hora é só multiplicar por 60 e usar a funcao abaixo. Essa funcao vai transformar no formato H:MM:SS. caso você queira um formato diferente, é simples, é so editar no final onde a string é montada, sem se preocupar com os calculos. A funcao tb suporta valores negativos, pondo um sinal de - na frente (exemplo -80, vai retornar - 0:01:20): Public Function MontaHora(ByVal Seg As Long) As String Dim Hor As Long, Min As Long If Seg < 0 Then MontaHora = "- " Seg = Abs(Seg) Else MontaHora = "" End If Hor = Seg \ 3600& Seg = Seg - (Hor * 3600&) Min = Seg \ 60& Seg = Seg - (Min * 60&) MontaHora = MontaHora & Hor & ":" & _ Format(Min, "0#") & ":" & _ Format(Seg, "0#") End Function[/code] EDITADO: dei uma melhorada na funcao, q o codigo estava muito ruim (28/10/2010).

Public Function Bissexto(intAno As Integer) As Boolean Bissexto = (intAno Mod 4 = 0 And ((Not intAno Mod 100 = 0) Or intAno Mod 400 = 0)) End Function[/code]

nunca usei crystal com oracle, mas olhando aqui o seu codigo, to vendo uma uma coisa. o campo de baixo esta entre {} e o de cima não. não seria esse o problema (tenta por {} no campo de cima ou tirar os {} do de baixo).

como a duvida é basicamente sobre o mesmo assunto, podemos continuar nesse tópico mesmo. o q acontece é o seguinte. cada vez q você faz um select, os dados são trazidos para a memoria. o recordset passa a acessar a memoria e não o banco de dados. qualquer alteracao q você faca no banco vai alterar o banco mas não a memoria. você teria q fazer outro select (pegar de novo do banco pra gravar na memoria). o MoveLast seguido do MoveFirst não vai influenciar em nd. alias só vai fazer você perder tempo de processamento, já q o q esta na memoria vai continuar como está. a solucao é abrir novamente o recordset mesmo. e ai você teria q limpar o combo e carregar os dados novamente. quanto ao Set rs = New ADODB.Recordset só é necessario usar alguma vez. a não ser q você use o Set rs = Nothing. é o seguinte. ao inicializar o RecordSet você pode utiliza-lo normalmente. mas quando você seta o Nothing pra ele, você esta destruindo o RecordSet. e só vai pode utiliza-lo se inicializa-lo de novo. deu pra entneder??

realmente, ocorre essa diferenca porque os anos bissextos tem 366 dias. como a divisao é feita por 365, cada ano bissexto q o cara viver a diferenca vai dar 1 dia a mais. a solucao pra isso está aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=108907 EDITADO: Duduh_Capixaba, quanto ao seu codigo, não entendi sua logica. testei aqui e tb achei um problema. exemplo, se o cara nasceu em 28/02/2007 e hj for 28/02/2008 ele devia ter 1 ano, mas ele retorna 0. mesmo se eu setar a data pra 29/02/2008 (ele devia ter 1 ano e 1 dia) ele tb retorna 0. bom mas deem uma olhada na funcao q eu passei no link q parece estar funcionando sem problemas.

Acho q mta gente já teve dificuldade em calcular corretamente a idade certo?? Resolvi postar essa função depois que vi um tópico onde estavam com dificuldade sobre esse assunto. O problema é q a funcao DateDiff sempre vai retornar a diferenca do ano menos o ano, desconsiderando os dias. Ou seja, se o cara nasceu em 02/01/2006 e hj é 01/01/2007, o cara so vai fazer 1 ano amanha, certo?? mas a funcao DateDiff assim: DateDiff("yyyy", "2006-01-02", "2007-01-01") vai retornar 1. porque ele calcula 2007 - 2006. A solucao seria calcular por dia e dividir por 365, certo?? certo, mas o problema é q tem anos que tem 366 dias. ai o seu calculo pode não bater. exemplo, o cara nasceu em 01/03/2007 e hj é 29/02/2008 (ano bissexto). ou seja, o DateDiff assim: DateDiff("d", "2007-03-01", "2008-02-29") vai retornar 365. ai você divide 365 por 365 e vai resultar 1. mas ele ainda não tem 1 ano. só vai ter 1 ano amanha. Como resolver?? Achei q tivesse algum jeito de calcular pelo DateDiff mesmo, mas não achei nd sobre isso. A solucao q encontrei foi fazer minha propria funcao e contar qtos dias a mais ele viveu. EDITADO (18/03/2011): escrevi uma nova funcao aqui baseada numa ideia q o membro Duduh_Capixaba passou num tópico há uns atras. ela tem um codigo um pouco menor q a minha funcao antiga e faz muito menos processamento. fiz uns testes e parece q funciona legal. se encontrarem qualquer problema, avisem ai: Public Function CalculaIdade(ByVal datNasc As Date) As Integer Dim i As Integer, datHoje As Date datHoje = Date CalculaIdade = Year(datHoje) - Year(datNasc) If Month(datHoje) < Month(datNasc) Then CalculaIdade = CalculaIdade - 1 ElseIf Month(datHoje) = Month(datNasc) Then If Day(datHoje) < Day(datNasc) Then If Month(datNasc) = 2 And Day(datNasc) = 29 Then i = Year(datHoje) If Not ((Month(datHoje) = 2 And Day(datHoje) = 28) And Not _ (i Mod 4 = 0 And ((Not i Mod 100 = 0) Or i Mod 400 = 0))) Then CalculaIdade = CalculaIdade - 1 End If Else CalculaIdade = CalculaIdade - 1 End If End If End If End Function[/code] Se alguém quiser conferir como era a funcao antiga: [code]Public Function CalculaIdade(datNasc As Date) As Integer Dim i As Integer, intBix As Integer, intAno As Integer, datHoje As Date datHoje = Date intBix = 0 i = Year(datNasc) i = IIf((i Mod 4 = 0 And ((Not i Mod 100 = 0) Or i Mod 400 = 0)) And datNasc <= DateSerial(i, 2, 28), i, i + 1) intAno = Year(datHoje) intAno = IIf((intAno Mod 4 = 0 And ((Not intAno Mod 100 = 0) Or intAno Mod 400 = 0)) And datHoje > DateSerial(intAno, 2, 28), intAno, intAno - 1) For i = i To intAno If i Mod 4 = 0 And ((Not i Mod 100 = 0) Or i Mod 400 = 0) Then intBix = intBix + 1 Exit For End If Next For i = i + 4 To intAno Step 4 If (Not i Mod 100 = 0) Or i Mod 400 = 0 Then intBix = intBix + 1 End If Next CalculaIdade = (DateDiff("d", datNasc, datHoje) - intBix) \ 365 End Function

cara a secao tutoriais e dicas tem esse nome porque nela é pra se postar tutoriais e dicas e não problemas, beleza?? agora quanto ao seu delete, qual o tipo do campo DataImporta?? se for do tipo datetime, smalldatetime, etc, não precisa converter, é só comparar normalmente: word = "DELETE FROM TrocasProgramadas WHERE DataImporta = '" & Format(form1.text1.text, "YYYY-MM-DD") & "'" agora se for varchar, converta tipoa assim: word = "DELETE FROM TrocasProgramadas WHERE Cast(DataImporta As Date) = '" & Format(form1.text1.text, "YYYY-MM-DD") & "'"

então, é melhor falar o q ele diz aqui do como você esta fazendo de limpar a mascara. ponha o promptinclude = false e ai você pode testar como qualquer TextBox normal. depois ponha o promptinclude = true de novo.

sim tb porque se não fosse pra usar, não teria nenhum sentido criar o objeto Connection e abrir a conexao.

A exemplo da sala de JavaScript, resolvi criar o Índice de Tópicos pra facilitar o acesso. Apesar de q ainda temos poucos tutoriais, um dia esse número pode ser grande. Só pra lembrar, não tive tempo nem saco de testar todos os tutorias, então não posso garantir que todos eles funcionem 100%. então caso você encontre qualquer problema em qualquer um deles, você estaria ajudando bastante se avisasse (no seu respectivo tópico). Resolvi aqui destacar (em negrito) os tópicos com as dicas mais "incríveis". Qual o critério pra falar quando uma dica é incrivel ou não?? É a utilidade, praticidade. Estou destacando o tópcio apenas pra chamar a atencao de quem não esteja, no momento, procurando especificamente por ele, por conterem dicas que todos "deveriam" ler, que realmente vai facilitar, ou ajudar algum dia. Ou é aquela coisa que você sempre quis saber como fazer, mas nunca encontrou nada sobre o assunto. Arquivos e Diretórios Alterar Imagem de um Diretório Excluindo Arquivos Temporários Gravando e Lendo Arquivos INI Gravar Arquivos com Dados Vindos do FlexGrid Bancos de Dados Acessando Via ADO Busca no DataGrid com DataControl Busca no DataGrid com Objeto RecordSet Carregar Combo com Dados da Tabela Colocar ListBox em coluna do DataGrid Enviar Dados de uma Tabela para Outra Exportando Planilha Excel para Access Iniciando no MySQL Inserindo Dados com ADO Mostrando e Configurando Dados no DataGrid Ordenação e Restrição de Dados num Grid Data e Hora Ano Bissexto Calcular Idade Função Para Somar Horas Transformar Segundos Em Hora (ex: 80seg Em 1min20seg) Último Dia do Mês DataReport Chamando Relatório com Intervalo de Datas Gerando Relatórios com Dados do RecordSet Demais Controles Arrastar de um ListBox ao Outro Autocompletar num ComboBox Botões Personalizados (com objeto Image) Mudar Cor do SSTab Utilizando TabStrip Utilizando ToolBar Formulários Letreiro Digital no Caption do Form Mover Formulário Sem Borda Impressão 10 Dicas Sobre Impressão Imprimindo um DataGrid Office Acessando Uma Planilha Excel Mala Direta com Word Strings Escrevendo Valores por Extenso Primeira Letra de Cada Palavra em Maiúsculo TextBox Máscaras no TextBox Máscara para Números no TextBox Máscara para Datas no TextBox Selecionar Texto da TextBox Somente Números no TextBox Texto Sempre em Maiúsculo Validações Validação de CPF Validação de CPF, CNPJ e Inscrição Estadual Windows Finalizar Processos Lendo e Gravando no Registro do Windows Nome do Usuário Logado e Nome do Computador Verificar Processo Rodando WinSock Tutorial de WinSock Vídeo-Aula WinSock Outros Comentar Várias Linhas de Uma Vez Identificando o Click no Cancelar da Inputbox Programar Sobre O Scroll Do Mouse Scroll do Mouse no Visual Basic 6 Sistema de Cadastro WebService - Acessando Webservices em Visual Basic 6

Esse código vai garantir que apenas seja permitido valor numérico no TextBox. Ele vai impedir que mais de uma vírgula seja digitada e transformará ponto em virgúla: - Antes de tudo, ponha a propriedade KeyPreview do seu formulario = True. - No evento KeyPress do seu TextBox, copie o seguinte código: Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 46 Then KeyAscii = 44 If KeyAscii = 44 And InStr(Text1.Text, ",") <> 0 Then KeyAscii = 0 Exit Sub End If If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 And KeyAscii <> 44 Then KeyAscii = 0 End If End Sub[/code] Onde Text1 é o nome do seu TextBox. Obviamente, você deve alterar para o nome correto. Para permitir somente números inteiros no TextBox, o código seria simplesmente assim: [code]Private Sub Text1_KeyPress(KeyAscii As Integer) If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then KeyAscii = 0 End If End Sub

aqui em http://www.connectionstrings.com tem exemplos de como montar a string (q no seu codigo você gravaria na variavel caminho). você teria q passar o ip do servidor sim, apesar de q pode ser o alias do endereco.