kuroi

justamente pra q não fiquem irritando as pessoas, o javascript não possui poder pra fazer algo desse tipo. moverei pra sala certa.

tente isso pra conferir se os valores estao vindo certo: Response.Write("percent1: " & percent1 & "<br />percent2: " & percent2 & "<br />total: " & total & "<br />total1: " & total1)

poste o codigo q você usa pra preencher o adodc.

acho q não, mas não to com vb6 aqui pra testar. de uma olhada se o metodo não recebe algum parametro e pra q serve.

igual no outro tópico, matheus, você pode usar a clausula where q simplifica as coisa pra vc: http://www.w3schools.com/sql/sql_where.asp no caso, só precisaria disso: sql = "Select * From tabela Where UF = 'RJ'" ai o recordset já vem filtrado só com registro do RJ.

matheus, com o where (http://www.w3schools.com/sql/sql_where.asp) você filtra os dados e com o group by (http://www.w3schools.com/sql/sql_groupby.asp) você seleciona somente 1 de cada data. depois, no evento clique do listbox, você faz um novo select pra pegar os horarios referentes a essa data (usando o where de novo): Private Sub cmbLogin_Click() abrebanco If cmbLogin.Text <> Empty Then Set rsdados = New ADODB.Recordset rsdados.Open "Select data From log Where login = '" & cmbLogin.Text & "' Group By data", cn Do While rsdados.EOF = False cmbData.AddItem rsdados("Data") rsdados.MoveNext Loop End If fechabanco End Sub[/code]

entre em menu Project -> References e verifique na lista de referencias, se alguma traz o texto "MISSING". se estiver escrito isso em alguma, significa q o arquivo não foi localizado. se você não encontrar, olhe então em menu Project -> Components e procure se alguma traz o texto "MISSING".

barbara, fique de olho na sala onde você posta, php não tem muito a ver com o assunto. moverei pra sala de outros assuntos. agora, quanto a sua duvida... não sei se to me metendo em briga de casal, mas vou tentar te explicar como funciona... bom, não tem como alterar o texto do email depois de ter sido recebido. agora, o email pode ter sido reenviado e o texto original pode ter sido mudado, isso sim é possivel. de uma olhada no campo "From" ou "De" ou "Remetente" ou alguma coisa parecida dessa mensagem. ele diz de qual endereco ela foi enviada. uma vez q ela saiu desse endereco ela não pode mais ter sido alterada. então, se o email q estiver escrito no remetente for do seu noivo, significa q a mensagem saiu da caixa dele exatamente como esta escrito. a não ser q alguém q tenha acesso ao servidor onde ele esta hospedado (o servidor do hotmail, por exemplo) tenha resolvido mexer ou coisa assim. ou seja, uma possibilidade totalmente absurda, tambem porque esses dados devem estar bem protegidos, mesmo para os funcionarios do webmail. ou por acaso o email esta baixado em algum programa gerenciador, como o outlook?? outra possibilidade... na pior das hipoteses, alguém pode ter tentado enviar o email usando o nome do seu noivo. mesmo q o endereco seja o proprio email dele, é possivel fazer isso mesmo sem ter a senha dele, usando uns certos truques. mas isso costuma ser facilmente detectavel. procure, no cabecalho do email, por um campo "mailed-by" ou "enviado por" ou alguma coisa parecida (esses são os termos q aparecem no gmail, talvez em outro servidor sejam usados outros termos). esse campo deve apontar para o mesmo servidor do email remetente. exemplo, se o endereco do remetente for "nome@uol.com.br", o campo mailed-by deve vir como "uol.com.br". se vier qualquer coisa diferente, provavelmente o email é falso.

olhai frata: http://scriptbrasil.com.br/forum/index.php?showtopic=99402

você não usa nenhuma linguagem no lado do servidor, como asp ou php?? acho melhor usa-la nesse caso.

o objeto printer q acho q ele tava falando é esse aqui: http://www.macoratti.net/printer.htm o metodo PrintForm() é outra coisa, ele imprime o formulario mesmo.

oi andreia, q saudade. valeu, mas de q papinho você ta falando?? na verdade eu queria a cor #33CCFF, sabe... se um dia eu virar administrador, eu ponho seu nome em roxo, lilas, ou seja la qual for o nome, pra você ficar feliz.

mas se você não quer q repita a data, então não vai poder mostrar a hora da entrada, né??

hehhee cada vez q você digita uma tecla, ela ativa uma hook q é lida pelo sistema operacional q vai tomar a acao necessaria (escrever a letra na tela, etc). existem apis q capturam a hook (ou seja, você pode saber qual tecla esta sendo pressionada), mas não to lembrado dos nomes agora. a ideia q tinha passado seria você capturar a janela onde o cara estaria digitando e se fosse mesmo o input box, você leria as hooks e caso viesse alguma letra minuscula você transformaria em maiuscula. eu sei q daria pra fazer isso tb porque já vi um codigo q criava uma inputbox pra senha (você digita alguma coisa e ele mostra * na input) q fazia alguma coisa baseada nessas apis q falei. e no caso era um codigo de varias linhas bem complicado e etc, não sei se teria mta vantagem usa-lo em vez daquela ideia de fazer um formulario.

raphael, não tem problema no if não. se vai haver apenas uma instrucao dentro dele, você pode escreve-la na mesma linha e não vai precisar de end if. esse tipo de erro de comandos não fechados ou fechados em lugar errado, o visual basic nem tenta executar a sub, ele sempre aponta o erro antes. EDITADO: mas acho q a ideia do group by ta valendo. (group by: http://www.w3schools.com/sql/sql_groupby.asp) alem do mais, matheus, em vez de checar cada registro com um if, não era mais facil filtrar a query com um where direto?? to vendo q você fecha o banco no final da sub. isso significa q você não usa o recordset pra mais nd certo?? então, você não vai precisar dos outros registros, nem dos outros campos alem da data nesse select. então, um where e um group by devem resolver e simplificar o codigo.

esse tópico estaria melhor me outros assuntos, moverei pra la.

fran, o problema são os campos q tem espaco no nome. o melhor é sempre criar os campos sem espacos, sem acento, sem caracteres especiais, etc, pra não acontecer esse tipo de complicacao. agora, pra resolver você pode usar colchetes nos campos q tem espacos. exemplo: inserir = "INSERT INTO DADOS (Nome, Endereço, Bairro, CEP, RG, [Data de Nascimento], [Telefone Residencial], Celular) VALUES ('" & txtNOME.Text & "','" & txtEND.Text & "','" & txtBAIRRO.Text & "','" & mskCEP.Text & "','" & mskRG.Text & "','" & mskNASC.Text & "','" & mskTEL.Text & "','" & mskCEL.Text & "')"

não uso o datareport. ve se tem um jeito de alterar esse caminho pelo codigo, ai você faz baseado em App.Path. ou ainda, você podia tentar mudar o caminho, levando em conta o diretorio q estao os arquivos. por exemplo, em vez de "C:\Arquivos de programas\Baths Manager\Temp.mdb", você podia por somente "Temp.mdb" e ver se ele entende q tem procurar na mesma pasta, teste ai.

depois de receber os dados digitados numa variavel, você pode usar UCase() no valor dela. agora se você quer q o texto fique maiusculo enquanto ele digita, ai não deve dar não. nem a InputBox() do vba, q tem mais funcionalidades, permite q você formate o texto. o unico jeito seria você capturar as hooks do teclado e transformar as letras minusculas e maiusculas, ou coisa assim, mas se for pra fazer isso, acho mais facil você criar um formulario no seu projeto q simule a InputBox(). você poe um textbox e um botao e o chama como modal e pronto.

danleon, mas se você abre o arquivo .rpt dentro do crystal, pra qual caminho aponta o relatorio?? o objeto connection normalmente não tem relacao com relatorio. talvez seja melhor você postar o codigo q você ta usando pra imprimir. mas ainda acho q aquela dica do same as report q falei deveria funcionar, você já tentou??

matheus, quanto ao immediate, eu to sempre explicando isso por ai, então achei q tivesse falado sobre isso em algum tópico seu. acho melhor eu fazer um tutorial sobre isso quando der... mas é o seguinte, se você apertar Ctrl + G na janela de codigos, você vai abrir uma janelinha chamada Immediate Window. la você pode executar expressoes pra ver o resultado. por exemplo, se você digitar: ? 10 / 2 e apertar ENTER, ele te devolve 5. ou se você fizer ? UCase("kuroi") e apertar ENTER, ele te devolve "KUROI". em resumo, você pode executar codigos pra testar o andamento do programa, já q você pode usar variaveis e funcoes q você tenha declarado (acho q so funcionam funcoes publicas). o truque do Immediate seria, depois do erro, você apertar "Debug" na janela da mensagem (ou antes de rodar o programa, você adicionaria um Break Point com F9 numa linha onde quisesse pausar a execucao. no caso, seria a linha do .Execute()), e ai você iria no Immediate e digitaria, no caso: ? inserir e ele te daria todo o valor da variavel inserir, assim você podia olhar como fica a query toda com os valores das variaveis alem de poder executa-la no access.

é pela funcao MkDir(), de uma olhada aqui: http://www.macoratti.net/file_vb.htm ou você pode usar o FileSystemObject: http://www.macoratti.net/filesyst.htm

danleon, esse tópico aqui fala sobre a distribuicao do crystal, de uma olhada: http://scriptbrasil.com.br/forum/index.php?showtopic=156215 agora, esse erro talvez nem seja de distribuicao. talvez ele esteja procurando o banco no caminho errado, de uma olhada. se você aponta o relatorio para o banco num caminho qualquer dentro do crystal, ele vai querer procurar sempre nesse caminho. o esquema é vc, dentro do crystal, entrar em menu Database -> Set Location e, la dentro, você clica em Same As Report. ai você deixa o relatorio na mesma pasta do banco e deve funcionar. ou você pode editar o caminho pelo visual basic, sempre baseado em App.Path. ou pode tentar fazer o instalador pelo innosetup, caso já não esteja fazendo.

a sala de tutoriais não é pra se pedir ajuda. moverei ao local certo. agora, o codigo seria esse: FormB.Text1.Text = FormA.Text1.Text

matheus, esse erro de sintaxe ele deve dar na hora q você tenta executar a query. se os erros fossem nos & _, ele ia acusar logo quando você estivesse escrevendo. a linha já devia ficar vermelha, não precisava nem rodar o programa. o erro então deve ta no insert, vai ver q você pos alguma virgula a mais ou a menos ou esqueceu de fechar alguma aspa. eu to vendo tb q você ta tentando gravar numeros como '00,00'. faca isso só se o campo estiver como texto. se estiver como numero, grave 0 direto, sem aspa simples mesmo, e se você precisar separar as casas decimais, use ponto em vez de virgula. mas o melhor jeito pra descobrir onde ta o erro seria, em vez de escrever o insert direto no .Execute(), q você escrevesse ela numa variavel, e executasse a partir da variavel. ai quando der o erro, você le o valor da variavel no immediate e tenta executar o codigo como consulta dentro do access. ai quando der o erro, o access as vezes para o cursor na parte q estiver errada. EDITADO: pra simplificar o codigo tb, caso no insert estejam todos os campos da tabela, na ordem, você não precisa escrever os nomes. você pode só fazer "inserto into tabela values(...)"