RobinhoVB

Amigos me ajudem por favor. vou ser o mais claro possível. Tenho um Relatório (óbvio) que atende 44 itens cada item e uma frase de resposta de uma pesquisa satisfação ou seja o cara escreve o quer e quantos caracteres permitir Agora a duvida se observar na imagem irão ver itens dentro do amarelo e itens dentro do cinza, o que esta dentro do amarelo eu consigo por o titulo(Esses títulos já são pré-moldados então não vem de nenhuma base de dados). Porem eu não consigo colocar o titulo no item cinza, quando mando rodar o texto vai lá pra cima, eu sei que tem GRUPO já ate tentei mas não consegui, pelo menos ate onde vai o meu conhecimento de CR, se existe algum jeito me deem uma Luz. (Lembrando que serão 44 itens do BD) Agradeço ROBSON

Galera vou tentar explicar a vocês Minha empresa resolveu fazer uma pesquisa satisfacao do qual tem 42 itens esses mesmos itens são satisfatório e insatisfatório salvos numa base de dados em mysql ate tudo bem eu criei os 42 itens com botão de opção dentro de 42 frames para que cada item fique idependente o problema esta sendo para salvar no BD eu não queria escrever os 42 itens ia ficar muito grande o codigo o que tentei Dim ItSatisf1, ItSatisf2, ItSatisf3, ItSatisf4, ItSatisf5 ..... ate 42 Dim IT As Integer For IT = 1 To 42 tabela.Fields.Item(IT).Value = ItSatisfX (aqui que eu queria que cada vez que o FOR passar o ItSatisfX variasse para o IT do FOR tipo ficar ItSatis1.. ate 42 e trouxesse o valor da variável) Next IT ps essa variável terá um valor I ou S I - de insatisfeito S - de satisfeito ambos os valores já estão definidos no click do option botão Agradeço to de cabeça enfumaçando já duvida na imagem

Ola pessoal to de volta com problemas em FILTRAR DATA POR CRITERIO, lembrando que o Banco esta em MYSQL e o campo "data" ta no formato data do MYSQL ou seja YYYY-MM-DD to querendo passar parametro de um label, que recebe uma data em dd/mm/aaaa vo postar o codigo: Dim Criterio As String Criterio = CDate(LblDATA.Caption) 'este Label recebe uma data em formato dd/mm/aaaa ex: 25/05/2012 RelatorioGeral.SelectionFormula = "{morto.data} = " & Criterio & "" RelatorioGeral.DiscardSavedData = True RelatorioGeral.Destination = crptToWindow RelatorioGeral.Action = 1 OBS: O rpt "RELATORIOGERAL" esta ligado ao BD em MYSQL via ODBC ta dando erro dizendo que "Uma data seria requerida aqui" me ajuda ai meus queridos grato ROBSON

Meu querido problema resolvido mas tambem agradeço muito a sua vasta colaboracao Muito Obrigado tópico pode ser encerrado refente ao e mail posso te add ?

Meu querido esta dando erro 91 "variavel não esta estabelecida" quando ele passa pelo DO UNTIL eu referenciei o microsoft script runtime, tem algo Mais ? imagen neste link https://www.mar.mil.br/cpse/imagens/erro91.jpg Meu querido 100 palavras ta funcionando direitinho eu achei onde estava o error na verdade era so Obeservar linha a linha ne :( Voce escreveu aqui no Forum a rotina certa, mas no arquivo enviado estava errada tipo (O EXECUTAVEL COMPILADO TAVA CERTO OK) Set arqFormatado = FSO.CreateTextFile(App.Path & "\Teste.txt", True) Essa rotina cria um novo arquivo txt, dai arquivo vazio passava os parametros de false quando o certo seria Set sT = FSO.OpenTextFile(App.Path & "\Teste.txt", ForReading, True) Abrir o arquivo e ler, como você escreveu aqui, tudo bem, queimei pestana mais achei o erro pela logica (NÃO DE O PEIXE ENSINE A PESCAR) Moderador por mim pode fechar o tópico RESOLVIDO A todos o meu muito obrigado senhores, voces fizeram meus filhos muito feliz garantindo meu emprego. :rolleyes:

Meu querido esta dando erro 91 "variavel não esta estabelecida" quando ele passa pelo DO UNTIL eu referenciei o microsoft script runtime, tem algo Mais ? imagen neste link https://www.mar.mil.br/cpse/imagens/erro91.jpg

Confirmou que o tamanho para cada registro é 7 linhas – Vi acima que comentou que pode ser 6 confirma essa possibilidade?. Observando exemplo do arquivo que passou o separador seria “;” certo? Agora faltam dois detalhes... Um seria em relação ao termino do arquivo... Tem algum caractere que finaliza o arquivo ou somente uma linha em branco? No arquivo constam os nomes dos campos em parênteses? Isso mesmo tem bloco de 6 ou de 7 so depois que eu vi O termino do aquivo não tem caracteres uma linha em branco Os aquivo não contem parenteses ex: abaixo WALDIMIR DE SOUZA ;117502430302 ;04/10/1982 ;MASCULINO ;24/01/2001 ;24/01/2001 ;SOLTEIRO ;SEGUNDO GRAU INCOMPLETO ;931 - ESTUDANTE, BOLSISTA, ESTAGIÁRIO E ASSEMELHADOS ;RUA XINGU 17 CA1 AMBAI CEP: 26.050-480 ;60011-RIO DE JANEIRO/RJ ;não CONSTA ;JORCELINA DE SOUZA FLAVIA MARINS DE SOUSA ;116924600388 ;12/11/1982 ;FEMININO ;07/02/2001 ;07/02/2001 ;CASADO ;PRIMEIRO GRAU INCOMPLETO ;931 - ESTUDANTE, BOLSISTA, ESTAGIÁRIO E ASSEMELHADOS ;RUA ARAPONGA 189 CA03 GRAMA CEP: 26.061-080 Confirmou que o tamanho para cada registro é 7 linhas – Vi acima que comentou que pode ser 6 confirma essa possibilidade?. Observando exemplo do arquivo que passou o separador seria “;” certo? Agora faltam dois detalhes... Um seria em relação ao termino do arquivo... Tem algum caractere que finaliza o arquivo ou somente uma linha em branco? No arquivo constam os nomes dos campos em parênteses? Isso mesmo tem bloco de 6 ou de 7 so depois que eu vi O termino do aquivo não tem caracteres uma linha em branco Os aquivo não contem parenteses ex: abaixo WALDIMIR DE SOUZA ;117502430302 ;04/10/1982 ;MASCULINO ;24/01/2001 ;24/01/2001 ;SOLTEIRO ;SEGUNDO GRAU INCOMPLETO ;931 - ESTUDANTE, BOLSISTA, ESTAGIÁRIO E ASSEMELHADOS ;RUA XINGU 17 CA1 AMBAI CEP: 26.050-480 ;60011-RIO DE JANEIRO/RJ ;não CONSTA ;JORCELINA DE SOUZA FLAVIA MARINS DE SOUSA ;116924600388 ;12/11/1982 ;FEMININO ;07/02/2001 ;07/02/2001 ;CASADO ;PRIMEIRO GRAU INCOMPLETO ;931 - ESTUDANTE, BOLSISTA, ESTAGIÁRIO E ASSEMELHADOS ;RUA ARAPONGA 189 CA03 GRAMA CEP: 26.061-080 ;26578868 ;58696-NOVA IGUAÇU/RJ ;JOAO DE SOUSA ;SANDRA DE ASSIS MARINS WALTER SODRE JUNIOR ;117493920396 ;17/02/1984 ;MASCULINO ;24/01/2001 ;24/01/2001 ;SOLTEIRO ;SEGUNDO GRAU INCOMPLETO ;931 - ESTUDANTE, BOLSISTA, ESTAGIÁRIO E ASSEMELHADOS ;RUA ALVARENGA PEIXOTO 65 CA1 AMBAI CEP: 26.040-200 ;00000000;58696-NOVA IGUAÇU/RJ ;WALTER SODRE ;FATIMA MARIA DOS SANTOS SODRE CARLOS ROQUE DE ALMEIDA SANTOS ;117495210329 ;10/08/1961 ;MASCULINO ;30/01/2001 ;30/01/2001 ;CASADO ;PRIMEIRO GRAU INCOMPLETO ;999 - OUTROS ;RUA DR SERGIO 30 FIGUEIRAS CEP: 26.000-000 ;35157-FEIRA DE SANTANA/BA ;FERNANDO MIRANDA SANTOS ;IDALICE PEREIRA DE ALMEIDA CAROLINA NOVAIS OLIVEIRA ;117502460345 ;21/05/1983 ;FEMININO ;24/01/2001 ;24/01/2001 ;SOLTEIRO ;SEGUNDO GRAU COMPLETO ;931 - ESTUDANTE, BOLSISTA, ESTAGIÁRIO E ASSEMELHADOS ;EST DA GRAMA 439 GRAMA CEP: 26.060-640 ;00000000;58696-NOVA IGUAÇU/RJ ;EZEQUIEL NOVAIS OLIVEIRA ;DALVA DOS SANTOS FALCAO não tem esses espacos entre um Bloco e Outro coloquei so pra ilustrar.. Mas 1 vez muito obrigado

Meu querido se o moderador permitir eu mando o arquivo txt dai você ver e testa sua função porque aqui não funcionou, quanto a sua afirmacao você tem razao tem mais coisas alem do bloco com 7 mas isso eu ia me virar com a FUNCAO MID, Trocando em miudos : 1 - Esse banco de dados vem de UM mainframe do TRE de informacoes de eleitores da cidade de Nova Iguacu - RJ (e Legalmente ta !! fica tranquilo) Ele tem Blocos de 7 ou de 6 que vai desde o NOME ate os pais do ELEITOR vou destrincar cada 1 deles ex: 1 por 1 ********************************************************* ESSE EO BLOCO COM 7 ONDE FLAVIA MARINS DE SOUSA (NOME) FLAVIA MARINS DE SOUSA ;116924600388 * 116924600388 (NTITULO) ;12/11/1982 ;FEMININO ;07/02/2001 ;07/02/2001 * 12/11/1982 (DATA NASC) ;CASADO ;PRIMEIRO GRAU INCOMPLETO * FEMININO (SEXO) ;931 - ESTUDANTE, BOLSISTA, ESTAGIÁRIO E ASSEMELHADOS * 07/02/2001 (DATA FILIACAO) ;RUA ARAPONGA 189 CA03 GRAMA CEP: 26.061-080 * CASADO (ESTADO CIVIL) ;58696-NOVA IGUAÇU/RJ * 931-ESTUDANTE,BOLSISTA (PROFISSÃO) ;JOAO DE SOUSA ;SANDRA DE ASSIS MARINS * RUA + CEP: 26.061-080 (ENDERECO) ********************************************************* 58696-NOVA IGUAÇU/RJ (CIDADE) JOAO DE SOUSA (PAI) SANDRA DE ASSIS MARINS (MAE) como disse gostaria de ficar assim cada bloco FLAVIA MARINS DE SOUSA ;116924600388;12/11/1982 ;FEMININO ;07/02/2001 ;07/02/2001;CASADO ;PRIMEIRO GRAU INCOMPLETO;931- ESTUDANTE.... você Vai ver que no arquivo de vez em quando tem uma informacao do tipo Local : XXX Seção: XXX Então essa linha vai baguncar tudo. mas eu já resolvi isso com a funcao MID para deletar essa linha ou seja comeca com local já deleta (Ate porque não conheco ng nesse mundo que se chama LOCAL) em outra situacao tb encontrei a palavra ALACAO (que o mesmo que acerca de) tb mandei o mid nele e deletei a linha (Ate porque não conheco ng nesse mundo que se chama ALACAO) claro isso no arquivo que estou testado esse que estou te mandando e o arquivo original com todas as sujeiras do MAINFRAME inclusive andei observando que tem bloco de 6. sem mais delongas eu precisaria tb do numero do local e da secao como + 2 campos no banco de dados FLAVIA MARINS DE SOUSA (NOME) 116924600388 (NTITULO) 12/11/1982 (DATA NASC) FEMININO (SEXO) 07/02/2001 (DATA FILIACAO) CASADO (ESTADO CIVIL) 931-ESTUDANTE,BOLSISTA (PROFISSÃO) RUA + CEP: 26.061-080 (ENDERECO) 58696-NOVA IGUAÇU/RJ (CIDADE) JOAO DE SOUSA (PAI) SANDRA DE ASSIS MARINS (MAE) LOCAL (ZONA) Seção (SECAO) E ALARCAO PRO LIXO ISSO não E CAMPO DE NADA qualquer duvida agente se fala no forum muito obrigado eu to em parafusos ROBSON

Isso mesmo Clleiton todos tem blocos fixo de (7) ou seja cada 7 forma uma linha, so esse algoritimo e que me falta conhecimento algo que va ate o final da linha e press DELETE tipo um sendkey algo assim por isso peço ajuda ROBSON

Meus queridos estou precisando muito de ajuda com esse arquivo txt que recebi, segue a duvida (Verifiquem que tudo e o mesmo bloco) delimitado com ";" ponto e vigula até tudo bem. So que o MAINFRAME (Grande porte) so ler a linha completa então como faço para que essa linha não tenha quebras e sim fiquem unica, claro continuando com o ";" ? Obs: a primeira onde ta escrito "WALDIMIR DE SOUZA" não precisa ter o ";" e como está Obs2: Eu falei que era um bloco apos a Ultima linha comeca novamente o nome do outro cadastrado e assim por diante Esta assim WALDIMIR DE SOUZA ;117502430302 ;04/10/1982 ;MASCULINO ;24/01/2001 ;24/01/2001 ;SOLTEIRO ;SEGUNDO GRAU INCOMPLETO ;931 - ESTUDANTE, BOLSISTA, ESTAGIÁRIO E ASSEMELHADOS ;RUA XINGU 17 CA1 AMBAI CEP: 26.050-480 ;60011-RIO DE JANEIRO/RJ ;não CONSTA ;JORCELINA DE SOUZA Gostaria que ficasse assim WALDIMIR DE SOUZA ;117502430302;04/10/1982 ;MASCULINO ;24/01/2001 ;24/01/2001;SOLTEIRO ;SEGUNDO GRAU INCOMPLETO;931 - ................................................. Aqui tambem da quebra mas se gravar no aquivo TXT sem formatação fica unica são 13850 linhas, ficar dando delete no final de cada para subir linha a linha HAJA DEDO NE !!! :) fico muito grato mesmo

Ola amigos me ajudem a terminar meu projeto Fiz um sistema em VB claro que cadastra informacoes de visitantes, ate ai tudo a base de dados era local em ACCSSES então era so apontar para o caminho no HD onde estava as fotos EX: SavePicture Picture1.Picture, "C:\SISCONV\FOTOS\" & IDENT & ".jpg" (SISCONV = Sistema de controle devisitantes) ok a empresa quiz o sistema MULTIUSUARIO, dai pra mim não teve problema passei a usar o BD em MySql perfeitamente foi so migrar os dados. Agora as fotos como eu salvo no diretorio do servidor ? e como carrego do mesmo ? eu não quero salvar diretamente no banco e sim apontar o caminho me ajudem nesse codigo eu meu emprego e minha familia ficariamos muito FELIZES.. OBG ROBSON..........

opa ola meu querido vo explicar passo a passo 1 - O sistema rodava local bd em access migrei para Mysql 2 - Vai agora ser com 2 operadores (2 micros), no salao de entrada dos visitantes, a Base de dados continua no mesmo micro anterior so que com XAAMP instalado 3 - O outro micro vai acessar a BD do micro 1 que estara tb as fotos o que eu não sei e como puxar essas fotos da maquina que vai ser servidor 4 eu não quero fazer por compartilhamento fica um troço esquisito já que o BD ta redondinho, todo relacionado 5 cada micro vai ter uma WebCAM e as fotos serao salvas no micro servidor. O que eu quero e apenas trazer essas fotos para o formulario do micro 2 sinseramente já rodei a internet e não consegui arrumar esse codigo Agradeço ROBSON

Ola amigos me ajudem a terminar meu projeto Fiz um sistema em VB claro que cadastra informacoes de visitantes, ate ai tudo a base de dados era local em ACCSSES então era so apontar para o caminho no HD onde estava as fotos EX: SavePicture Picture1.Picture, "C:\SISCONV\FOTOS\" & IDENT & ".jpg" (SISCONV = Sistema de controle devisitantes) ok a empresa quiz o sistema MULTIUSUARIO, dai pra mim não teve problema passei a usar o BD em MySql perfeitamente foi so migrar os dados. Agora as fotos como eu salvo no diretorio do servidor ? e como carrego do mesmo ? eu não quero salvar diretamente no banco e sim apontar o caminho me ajudem nesse codigo eu meu emprego e minha familia ficariamos muito FELIZ.. OBG ROBSON..........

me da uma dica uso ubuntu 9.4 vlw