kuroi

claudia, visual basic .net é na sala de .net, moverei pro local correto. mas sua duvida não deu pra entender direito. pra não ter problemas, é bom sempre salvar a data no formato YYYY-MM-DD na hora de escrever o insert. agora dentro do banco de dados, depois de salva, a data não tem formato, é simplesmente o valor da data q ta salvo. você so formata na hora de mostrar.

acho q era isso: classificador = cells(i,2) & Right (classificador, 3)

então, acho q é o seguinte. o overflow (vertical) so vai funcionar se o height estiver setado. no chrome, se você não define o height, ele assume como o height o tamanho q o objeto ficou depois de carregada a pagina. mas no firefox, ele simplesmente entende q o height não foi setado (mesmo sabendo q o objeto tem tamanho). pra resolver, no css, sete um height qualquer para a div #description. ponha 100px q for, ou mesmo 10px, tanto faz, porque depois aquele codigo q eu passei no javascript vai ajeitar o tamanho no final. so tem q ser um tamanho q não ultrapasse o tamanho final q tera a div #allgame. tenta ai.

lramos, tenta fazer por running total field (na janela do Field Explorer, procure por Running Total Fields e adicione um novo). na janela q abrir, na opcao Field to summarize, selecione esse campo de atendimentos q você tava tentando somar. em Type of summary, selecione sum. ai em Evaluate, ponha On change of group, e selecione o grupo 2 = Operador. e em Reset, ponha tb On change of group, e selecione o grupo 1 = nmMaquina. veja se não funciona.

mario, tenta abrir o .rpt dentro do crystal e ai clique no menu Database -> Verify Database. então, salve e veja se não resolve.

danyy, o problema é q você manda ativar (metodo Activate()) direto. se ele não achar o texto, não existe o q ativar, por isso o erro. tenta assim: Dim classificador as string, pesquisa As Range classificador = cells(i,2) = Right (classificador, 3) Set pesquisa = Cells.Find(What:="1005", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False) If Not pesquisa Is Nothing Then pesquisa.Activate ActiveCell.FormulaR1C1 = "1.1.2.01" & classificador End If[/code]

d_bob, nesse tópico aqui, o cara ta co mesmo problema q o seu, veja se o ultimo post te ajuda em alguma coisa: http://scriptbrasil.com.br/forum/index.php?showtopic=138995 fora isso, veja se esse artigo da microsoft ajuda. a propriedade q ele tenta setar é diferente, mas parece ser um problema parecido co seu: http://support.microsoft.com/?scid=kb%3Ben...mp;x=14&y=9

hehe eu sou genial danny, primera coisa, declara vlrd e vlrc como Boolean e não String. tem mais sentido como Boolean, você não ta guardando texto dentro delas. agora, acho q seu problema é q quando ele apaga a linha depois de testar o vlrd, embaxo você manda testar o vlrc pra mesma linha, mas ela já foi excluida, não existe mais. tenta por um else if (assim, ele so vai testar a segunda condicao se a primera não tiver dado certo): If Cells(i, 7).Value = Cells(i + 1, 7).Value And vlrd Then 'aqui compara a coluna g com a proxima linha Cells(i, 4).Value = Cells(i + 1, 4).Value 'aqui copia a proxima linha da coluna d pra linha atual Cells(i, 3).Value = Cells(i + 1, 3).Value Cells(i, 5).Value = Cells(i + 1, 5).Value Rows(i + 1).Select Selection.Delete shift:=xlUp 'apaga a proxima linha ElseIf Cells(i, 7).Value = Cells(i + 1, 7).Value And Vlrc Then Cells(i, 6).Value = Cells(i + 1, 6).Value Cells(i, 3).Value = Cells(i + 1, 3).Value Cells(i, 5).Value = Cells(i + 1, 5).Value Rows(i + 1).Select Selection.Delete shift:=xlUp End If[/code] ve se da certo.

mdlima, eu acho q isso deve ser problema de permissao do windows mesmo. acho q seu usuario não tem permissao pra alterar a pasta onde o banco ta dentro. acho q não é do visual basic não. tenta fazer um teste. logue com esse usuario e tente salvar um arquivo de texto qualquer nessa pasta pra ver se ele permite. ai no caso, se for do windows mesmo, e você tiver dificuldade pra conseguir dar permissao, poste na sala de windows aqui do forum explicando seu problema.

pra selecionar os arquivos, você pode usar o componente CommonDialog, ou os componentes DirListBox e FileListBox, ou pode usar a funcao Dir() e colocar a lista dos arquivos pra dentro de uma ListBox comum. pra carregar no banco de dados, você pode ver nesse tutorial aqui: http://www.macoratti.net/txt_arqs.htm

okplaygo, isso deve resolver no java script: document.getElementById("description").style.height = (document.getElementById("allgame").offsetHeight - 10) + "px"; so lembra de colocar esse codigo DEPOIS da div allgame já estar fechada (e obviamente, dentro da tag script).

primeiro de tudo, não é mais "iostream.h" o nome da biblioteca. nos compiladores atuais é so "iostream": #include <iostream> e depois, a string fica dentro do name space std. então você teria q fazer assim: #include <iostream> int main() { std::string aloTar = "Alo, Tarcisio!"; std::cout << aloTar; }[/code] agora se você adicionar o using namespace antes, ai você não precisa ficar escrevendo std:: [code]#include <iostream> using namespace std; int main() { string aloTar = "Alo, Tarcisio!"; cout << aloTar; }

danyy não entendi direito, mas o q você teria q fazer seria ir pra proxima linha e comparar com a anterior. tipo assim, você le a primera linha e grava os valores numa variavel (exemplo, você declara duas variaveis vlrlanc. uma pra linha anterior e otra pra atual). ai você le a proxima. então você compara o valor da linha atual com a linha anterior. ai você ve se escreve "1" ou "2". ve ai se você entendeu e se é isso mesmo, qualquer coisa posta o codigo q você ta usando ate agora.

danyy, ficou meio dificil de entender... mas acho q deve ser tipo isso: For i = 1 To finalrow - 1 If Cells(i, 7).Value = Cells(i + 1, 7).Value Then 'aqui compara a coluna g com a proxima linha Cells(i, 4).Value = Cells(i + 1, 4).Value 'aqui copia a proxima linha da coluna d pra linha atual Rows(i + 1).Select Selection.Delete Shift:=xlUp 'apaga a proxima linha End If Next[/code] veja se é isso. mas pra pegar a ultima linha, não precisa ir ate o Range("A65536"). porque desse jeito, mesmo q tenha so 100 linhas preenchidas, ele vai querer procurar todas as 65536 e ai você vai perder muito tempo. o codigo q eu te passei no otro tópico pega a ultima linha q tiver preenchida, assim você não perde tempo.

o flag são opcoes q podem ser passadas pra funcao InternetConnect(). pra saber quais são os valores pra cada opcao, teria q olhar a documentacao da api q ele deve listar as constantes. no site do msdn deve ter. quanto as otras perguntas, eu nunca usei essas funcoes de api pra ftp, mas quando sobrar tempo eu posso tentar da uma pesquisada.

acho q quando você setou no HKEY_LOCAL_MACHINE, ele já fica pra todos os usuarios. quando você setou no HKEY_CURRENT_USER, ele adicionou mais uma vez pro usuario logado no momento. você so precisaria escrever uma vez no HKEY_LOCAL_MACHINE ou então você escreveria no HKEY_CURRENT_USER pra cada usuario. so precisa escrever em um deles, escolhe qual você acha melhor (acho q seria mais facil no HKEY_LOCAL_MACHINE, já q você quer pra todos os usuarios) e apagua o q você escreveu na otra, assim não fica mais carregando duas vezes.

a mas ele não mostrando nem a janela do confirm(). quando eu perguntei se ele mostrava a janela do confirm você não respondeu e eu achei q não tava tendo problema, se você tivesse falado antes, eu já teria encontrado o problema. alias, ele tb não deve ter mostrado nenhum dos dois alerts q eu tinha passado, como você disse q mostrou. imagino q você tenha testado no firefox, mas se o problema ta no chrome, era pra ter testado nele ne. mas a explicacao pra isso, verifiquei aqui, é q o chrome e tb o ie não aceitam a propriedade onclick na tag option. você vai ter q fazer tudo pelo evento onchange do select. ai acho q o melhor seria você fazer uma nova funcao e, no onchange do select, você passa o item selecionado por parametro. ai você checa o item e so ai você chama a funcao q antes você tinha posto no onclick de cada option. a de qualquer modo, no teste q eu fiz aqui, ele problema do bloqueador de popup tb aconteceu aqui no onchange.

muito estranho. se ele mostrou os alert q você pos depois do window.open(), significa q ele não ta encontrando erros no window.open(). não é so abrir a pagina q vai aparecer o icone do xis. so vai aparecer na hora q você chamar o window.open(). o seu site ta hospedado em algum server pra eu poder testar aqui??

aqui ta aceitando sem problemas. no spread designer, quando você seta a celula pra ser do tipo Number, ele te da a opcao de escolher o valor maximo e o minimo q a celula aceita. se o numero q você ta tentando digitar não for menor q o valor minimo, ele vai aceitar.

mario mas você ainda não disse qual o problema q ta acontecendo pra vc. ele mostra alguma mensagem de erro ou simplesmente não ordena?? ele ta trazendo a mesma ordem q vem do banco?? por acaso, dentro do .rpt já ta setado alguma coisa nos sort fields?? se tiver, tire todas as ordenacoes pra garantir q não ta dando conflito e salve o .rpt e tenta de novo. fora isso, o seu relatorio tem algum agrupamento?? por qual campo você esta agrupando??

luiz, o q acontece de errado com esse codigo?? de qualquer forma, aqui tem um tutorial do macoratti com um codigo q funciona perfeito com inet: http://www.macoratti.net/vb_ftp1.htm na verdade, parece q hj o site do macoratti ta fora do ar, pelo menos eu não to conseguindo abrir aqui. mas nesse tópico aqui, por acaso, eu upei esse mesmo tutorial do macoratti e você pode baxar o projeto funcionando no meu ultimo post do tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=133005

essa parte aqui na ta servindo pra nd ó: numi = Val(contador) If numi = "0" Then contador = contador + 1 numf = Val(contador) str = Right(complemento & contador, 5) For contador = numi To numf Next[/code] você devia estar somando o contador dentro do for q percorre as linhas. tipo assim ó: [code]contador = 1 ultimalinha = xlw.Application.Cells(xlw.Application.Cells.Rows.Count, 8).End(xlUp).Row For i = 2 To ultimalinha str = Right(complemento & contador, 5) data = xlw.Application.Cells(i, 8).Value Print #arq1, "LC1" & str & Space(3) & data contador = contador + 1 Next assim ele é somado pra cada linha. do jeito q tava você so tava somando uma vez e ainda antes de comecar a ler as linhas.

prweb, eu tava falando disso aqui: não aparece isso pra vc?? (o balaozinho so aparece depois q você clicar, mas o desenho do xis vermelho deve aparecer assim q um pop up for bloqueado) tenta apertar f5 pra confirmar.

acho q é isso q você quer: Shell "cmd /C net user > """ & App.Path & "\arquivo.txt""", vbHide a reposta pra isso esta aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=41838

ta, então acho q não tem erro nenhum no codigo. o q deve ta acontecendo é q o bloqueador de popup do chrome ta barrando seu window.open(). olha la, quando você carrega a pagina, no canto direito da barra de endereco la em cima deve aparecer um desenhenhinho de uma janela com um xis vermelho. clica no desenho q ele vai te dar as opcoes de desbloqueio.