kuroi

você quer dizer q quer procurar um arquivo no hd?? se for isso, nesse tópico eu dou uma ideia mais o menos de como fazer isso: http://scriptbrasil.com.br/forum/index.php?showtopic=129131

cara, se você fizer com fontes de tamanho fixo (tipo lucida console, em q todos os caracteres tem o mesmo tamanho) é so você tentar ver direitinho qtos pixels ocupa cada caractere e ai você consegue montar a formula baseado nisso. agora, se não me engano já saiu um tópico aqui em q o graymalkin ensinava como medir o tamanho certinho da fonte, se não me engano era alguma api, q você poderia utilizar pra fontes q não tenham tamanho fixo. veja se consegue encontrar o tópico ai.

cara, não deu pra entender o q você quer... tem como explicar melhor??

é isso mesmo. o indice segue a ordem q os campos aparecem, de cima pra baxo, no field explorer. o indice comeca no 1, o primero de todos os campos parametros la em cima é o indice 1. pra mudar os indices, você pode mudar as posicoes dos campos com umas flechinhas pra cima e pra baixo nos botoes do field explorer.

nanda, nesse post aqui ensino como funciona o timer: http://scriptbrasil.com.br/forum/index.php...st&p=537012 se eu entendi o q você quer, so o q você tem fazer é setar o interval dele como 15 minutos (900000 milisegundos) e mandar adicionar a hora no combobox no evento tick. veja ai se consegue, qualquer coisa poste. EDITADO: esquece acho q entendi o q você quer. você quer q no combobox apareca tipo assim: - 8:00 - 8:15 - 8:30 ... ... - 17:30 - 17:45 - 18:00 sendo cada uma dessas uma opcao do combo ne?? se for isso, é so você usar o DateAdd() tipo assim: Dim x As Date x = TimeSerial(8, 0, 0) Do While x <= TimeSerial(18, 0, 0) ComboBox1.Items.Add(x.ToString("hh:mm")) x = DateAdd(DateInterval.Minute, 15, x) Loop[/code]

cara tenta fazer por subquery assim: select nome, matricula sum(total) as soma from ( select a.nome, a.matricula, count(b.codmat) as total from ealunos a, umatalun b where a.matricula = b.mataluno and b.codcur =:CODCUR and b.status in (14,11,25) AND b.grade =:GRADE group by a.nome, a.matricula union all select a.nome, a.matricula, count(b.codmat) as total from ealunos a, uhistmatalun b where a.matricula = b.mataluno and b.codcur =:CODCUR and b.status in (14,11,25) AND b.grade =:GRADE group by a.nome, a.matricula ) group by nome, matricula[/code] ou ponha a sua consulta ai em uma view e faca a soma a partir dela.

muito bom isso do opera, todo navegador devia sim ter essa opcao bem facil. o javascript é muito bom sim, mas devia ser totalmente opcional, e não gosto nd de sites q so funcionam a base de javascript. tipo, ele dificulta muito principalmente porque os programadores fazem mta bestera por não saber onde parar. tipo assim, validacao de formulario, postagem por ajax, ate menu popup essas coisas td bem. mas tem ai os caras q comecam a fazer abrir link por javascript em vez de por href. ai eu não consigo mandar abrir o link em otra aba e etc e mtas otras besterars desse tipo q os caras fazem q enchem muito o saco. e é bom prestar atencao quem gosta de fazer td em javascript, e poe toda a validacao de formularios em javascript, q se o cara desabilitar o javascript a validacao não vai funcionar ne. a validacao javascript é muito util e facilita muito, mas se você não fizer tb a validacao na linguagem dinamica, nd vai impedir do cara cadastrar data invalidas, nomes em branco e etc.

você pode usar um campo parametro pra isso. do tipo texto. ai você passa o valor assim: crRep.ParameterFields(1).AddCurrentValue "Gerado em " & Now onde crRep é seu objeto report.

mano acabei de escrever no post de cima?? você tentou com o MSXML2.IXMLDOMNode?? se não for isso e se você ta querendo declara so por causa do Option Explicit, então poe Variant mesmo e já era.

use um timer. ponha o interval dele igual a 900000 (15 minutos = 900 segundos = 900000 milisegundos) e clique duas vezes nele pra chamar o evento. dentro do evento ponha o codigo pra mostrar a hora. o evento sera chamado a cada 900 segundos (15 minutos).

o metodo selectSingleNode() tem o retorno do tipo MSXML2.IXMLDOMNode então o VB_RESULT deveria tb ser declarado desse tipo.

se você for escrever o tópico intero no titulo ai fica dificil ne. não é um join q você tem q fazer??

frias, tem certeza q esse erro acontece nessa formula mesmo?? se você tentar executar dentro do crystal reports, ele deve apontar a formula do erro, veja la. apesar de q nunca vi essa mensagem, talvez seja erro no sql ainda. se for essa formula mesmo, o campo dt_vencimento é mesmo do tipo data??

so os moderadores conseguem anexar arquivo no forum. se você quiser compartilhar o projeto ai, hospeda em algum servidor tipo o rapidshare e poe o link (ou me mande o link por mp, caso não quera dar acesso pra todos).

quanto aquela parte do form_load, tente por o codigo tipo assim: Private Sub Form_Load 'As duas linhas debaxo são pra abrir a conexao, se você usa otro codigo pra abrir, substitua as duas linhas cnnAgenda.ConnectionString = " - ponha aqui a connection string - " cnnAgenda.Open Set rsSeleçao = New ADODB.RecordSet Set rsSeleçao = cnnAgenda.Execute("Select * From Agenda") End Sub[/code] mas antes declar o rsSeleçao la em cima no generals. e ai não feche mais a conexao e nem o recordset. e quando ao codigo do raphael no lost focus, acho melhor você usar um segundo recordset pra não dar conflito com o rsSeleçao. e dexando a conexao aberta, o codigo deve funcionar.

essa mensagem invalid file name é do crystal reports ne?? provavelmente você ta apontando o caminho errado. quando você instalar o programa no computador o relatorio vai ficar num caminhjo diferente de antes ne. se o relatorio estiver na mesma pasta da aplicacao, pegue pelo App.Path fora isso, se você tiver mais erros com dll e coisas do genero no instalador, ai talvez isso seja do crystal reports, ele é meio chato pra passar as dlls pra otros pcs onde ele não esteja instalado. verifica ai se os erros acontecem na hora de acessar os relatorios.

cara, isso é visual basic .net, não poste mais sobre isso na sala de visual basic (e sim na de .net)

bom, acho q isso ai é excel não?? se for você vai ter q fazer um foreach na coluna e comparar os valores dentro do for.

se você puder explicar como resolveu, ai pode ajudar quem mais tiver esse problema

o codigo acima evitaria o erro Invalid Use of Null. tipo, se você fizer assim com um valor nulo: objCurrLI.SubItems(mlngCUST_ENDEREÇO_IDX) = !ENDEREÇO ai o erro deve acontcer. mas caso você faca assim: objCurrLI.SubItems(mlngCUST_ENDEREÇO_IDX) = !ENDEREÇO & "" ai não deve ter erro.

acho q se você puser o campo do tipo memo ele aceitara. entretanto, acho q o campo memo tem algumas limitacoes, do tipo você não pode usa-lo em formulas, nem fazer agrupamentos, etc.

hum ta estranho... mas olha aqui, um projeto q faz exatamente isso q você quer, aqui ta funcionando td certinho: kuroi.rar o relatorio foi feito em crystal 8.5 e o banco no access 2003. veja se funciona ai pra você e se você consegue usa-lo pra arrumar o seu, qualquer coisa poste.

george, fiz uns testes aqui e realmente aconteceu esse problema. entretanto, parece q se você dexar a formula já pronta no rpt o erro não ocorre. tipo, no rpt com o crystal aberto, clique em menu Report -> Edit Selection Formula -> Record... ponha la o codigo: CDate({tbclt.DtClt}) >= {?data1} And CDate({tbclt.DtClt})<= {?data2} e salve o rpt. no visual basic, retire a linha: CrystalRet.SelectionFormula = "CDate({tbclt.DtClt}) >= {?data1} And CDate({tbclt.DtClt})<= {?data2}" e veja se não vai funcionar.

nossa, mas acho q tem inner join sim. inclusive tem left join, right join e ainda por cima full join pelo q li por ai. mas de qualquer modo, o like tem q funcionar sim. você devia tentar da uma olhada nisso e tentar fazer testes executando direto no banco de dados pra ver os retornos. ou ainda faca uma busca por ai sobre a sintaxe do like no oracle, talvez tenha alguma coisa de diferente.

não é pra executar o select toda hora (metodo execute q você ta usando). delcare o recordset no generals e execute o select no form load por exemplo (e não feche o recordset, so feche no unload do formulario). ai, ponha no clique do botao, a unica linha rsSeleçao.MoveNext e pronto. bom, pra dizer a verdade, melhor dexar o codigo assim: Private Sub cmdProximo_Click() If rsSeleçao.EOF Then Exit Sub rsSeleçao.MoveNext If rsSeleçao.EOF Then rsSeleçao.MovePrevious End Sub End Sub[/code] assim não vai acontecer erro de você passar do final dos registros.