Duduh_Capixaba

Lembre-se que se você fizer alterações na base de dados você terá que comparar/atualizar as duas bases com um programa próprio pra isso. Se precisar fazer isso um dia, aconselho a baixar o "IbDb Comparer". É free e faz o serviço direitinho.

Hum...pelo erro que está aparecendo, parece que o campo "datavenda" não faz parte do Command que você setou no DataMember do DataReport. Veja bem: quando você seta o DataMember do DataReport com um Command, são levados em consideração somente os Fields (campos) desse Command. Para tirar a prova do que eu estou falando, tente configurar a propriedade DataField de qualquer RptTextBox do DataReport com o campo "datavenda", e você verá que o VB não vai trazer esse campo. Se você quer relacionar duas tabelas, te aconselho a construir seu Command com um JOIN. Aí sim, você vai ter um relacionamento para seu relatório. Deve haver uma maneira de se fazer sem o JOIN, mas não sei como proceder. Um exemplo de JOIN: SELECT T1.CAMPO1, T1.CAMPO2, T1.CAMPO3, T2.CAMPO1, T2.CAMPO2, T2.CAMPO3, T2.CAMPO4 FROM TABELA1 T1 JOIN TABELA2 T2 ON (T2.CAMPO1 = T1.CAMPO1)

Olá Sidnei! Você poderia ser mais específico, tipo: "Estou tentando gravar dados de vários textbox em uma tabela Access, nas colunas tal e tal...". A primeira vista, entendi que você precisa gravar dados em uma coluna auto-numérica, mas isso não é possível. Em uma estrutura assim, ao gravar dados em uma coluna qualquer da sua tabela, o campo auto-numérico se incrementa sozinho. Poste novamente com mais detalhes pra podermos te ajudar. Até mais!

Pessoas... Até agora não tinha me antenado pra isso, mas comecei a construir um aplicativo mais avançado e gostaria de ajustar o tamanho dos Forms para 800x600 pixels, e simplesmente não sei como fazer... Procurei aqui no fórum e na net, mas tudo que achei foram meios de ajustar o Form conforme a resolução atual do PC do usuário. Não é exatamente isso o que eu quero. Eu quero que o Form continue com seus 800x600 independente da resolução do PC. Procurei por várias configurações no VB e não consegui configurar a escala. Então, pensei em fazer um cálculo de conversão, de pixel para twip. Alguém sabe como fazer esse cálculo? Edição ---------------------------------------------------------------------------------- Putz... já achei um programinha que faz isso... http://superdownloads.uol.com.br/download/191/twipit/ Ele converte qualquer unidade para twip e vice versa. Deixo o link pra quem tiver o mesmo problema. Vlw!

Aproveitando o tópico... Dentro desses ícones há quase sempre três opções de cores: 16 cores, 256 cores e XP (acredito que seja 16 bits). Fiz um arquivo para cada cor e tamanho e depois fui testar dentro do VB. Mas os ícones XP, que são mais detalhados, não são aceitos pelo ImageList. Sempre dá um erro "Invalid picture". Tem como acertar isso?!

Pernambuco??? de onde você tirou isso??? hahaha :P Os sintomas da minha máquina eram os mesmos, e além de tudo, desativou o firewall do Windows tb. Dê uma olhada nos serviços do Windows (execute services.msc) e veja se acha algo de estranho que esteja sendo carregado automaticamente. Nessa máquina que eu estava analisando, haviam dois serviços muitos estranhos que eu nunca vi. Por segurança, deixei os dois desativados. Repare nessa linha do seu log: "C:\WINDOWS\system32\bolenjx.exe - process is either not running or could not be terminated" Pode ser que o Trojan Remover não esteja conseguindo interromper o serviço do vírus. Tente enterrompê-lo com a ferramenta da Mcafee. E logo após execute o Trojan Remover novamente. Boa sorte!

Ah sim Renato, sem problemas! Mas só pra esclarecer... Não tive a intenção de direcionar o usuário a resolver o problema dele em outro fórum, não agi de má fé. Apenas fiz uma referência de outra fonte, informação nunca é demais nesses casos. Mas sem galho, vamos tentar ajudar o cara, ok?! Vlw, abraço :)

Ingo... Primeiro tente o recomendado pelo Renato aí em cima. Se não der certo, tente uma varredura online nos sites de antivírus. Eu aconselho os sites da Panda, Mcafee, Norton e Kaspersky. Se ainda assim o problema persistir, entre em contato comigo via e-mail e a gente tenta resolver. ---------------------------------------- Editado: Ah, dê uma olhada neste tópico tb: http://www.bleepingcomputer.com/forums/topic126561.html, e tente achar os arquivos que o usuário "fred nurk" postou. Se esses arquivos estiverem na sua máquina, apague-os. Outro link: http://www.bleepingcomputer.com/forums/topic34773.html. É um outro passo-a-passo de como resolver problemas com vírus.

certinho, é isso mesmo! eu tinha dois problemas: não sabia qual evento usar e tb não estava usando a instrução correta. agora foi :) vlw Robinho! ----------------------------- Edição: tava testando aqui e vi que não é necessário o evento AfterOpen. você poder simplesmente colocar a instrução de edição logo após a instrução de abertura do DataSet. os dois modos funcionam. vlw!

Não esquente com o exemplo, eu sei como criar formatos customizados. O meu problema é o segundo que você citou, eu não adicionei os campos ao DataSet nem ao DBGrid, pois eles só ficam disponíveis depois que abro o DataSet via código. Eu já desisti, fiz pelo modo mais fácil...adicionei vários ADOTable e formatei os campos direto neles. Talvez uma outra hora, com mais calma, eu tente via código. Sei que tem jeito, é só parar pra pensar um pouco. Mas vlw pela ajuda.

é...teve jeito não! não consegui resolver na base do código, mas vou continuar tentando. até mais!

hum...sakei agora! é porque eu programo em VB tb, e lá a gente configura a máscara de outra forma. eu queria resolver isso por código e não em design-time, pois o projeto fica meio que "amarrado", sei lá, gosto mais de código. mas vou testar aqui as duas maneiras e qualquer coisa volto a postar. obrigado a vocês pelas respostas.

Olá senhores! Eu vi em um dos posts do forum que o código EditMask formata valores de um Grid. Tentei fazer no meu projeto, mas o Grid continua do mesmo jeito. Eis meu código: DBGrid1.Fields[8].EditMask := '0.00'; Após a execução do código não acontece nada, tipo, um valor "5" deveria aparecer como "5,00", certo?! Eu tenho que colocar algum outro código depois do EditMask, tipo um Refresh ou algo assim?! Já tentei, mas tb não funcionou. A coluna 8 recebe valores numéricos reais, e eu gostaria de formatá-la via código, pois o mesmo Grid recebe dados de várias tabelas diferentes.

é, agora deu pra pescar melhor a idéia. é difícil saber a funcionalidade de todas as propriedades dos componentes, mas devagar eu chego lá! estou começando agora e estou cheio de dúvidas ainda. obrigado pelo exemplo.

Creio que isto aconteça porque o Label não está "dentro" do frame, ou seja, o Label não faz parte do grupo de itens do Frame. Pra tirar a prova disso, faça o seguinte: - abra um projeto novo; - dê um duplo clique no componente Frame; - dê um duplo clique no componente Label; Veja que o Label vai ficar sempre atrás do Frame, mesmo que você dê o comando "Bring to Front" com o botão direito do mouse. Isso porque o Label não pertence ao Frame. Agora faça assim: - dê um duplo clique no componente Frame; - dê um clique no componente Label e arraste o mouse dentro da área do Frame; Veja que agora o Label aparece. Se você arrastar ou dimensionar o Frame, o Label vai junto. Isso porque agora sim, o Label pertence ao Frame. Agora, como fazer isso em tempo de execução...não sei!

funcionou tb! mas no esquema do SpeedButton eu não preciso de código, já que ele já possui uma propriedade que me indica se ele está pressionado ou não. esse código acima seria mais pra saber se um botão foi pressionado alguma vez, ou algo do tipo. mas funciona beleza! vlw pela resposta

perfeito cara! do jeito que eu queria :) só pra entender melhor... a propriedade AllowAllUp permite que o botão se mantenha na posição de pressionado e depois permite voltá-lo ao normal; a propriedade Down é a que identifica se ele está pressionado ou não; a propriedade GroupIndex eu não faço a mínima idéia! mas as outras duas propriedade acima só funcionam se esta estiver setada com um valor maior que 0. se alguém puder explicar, eu agradeço. do mais, o problema foi resolvido. vlw Micheus!

Olá! Pelo título acho que já deu pra sacar o que eu quero né?! Um botão que, ao ser pressionado, retorne um valor. Eu sempre usei um componente de terceiros, o RxSwitch, que funciona muito bem, retorna True/False em sua propriedade StateOn. Só que esse botão tem a aparência de um interruptor, e eu estou trabalhando no projeto de outra pessoa, que já tem botões normais do Delphi (Button, BitBtn). Ou seja, se eu colocar esse botão que eu costumo usar, o projeto vai ficar "estranho". Preciso de uma solução nativa do Delphi, um botão que tenha a aparência dos botões padrões. Eu estava pensando em algo tipo: - Botão clicado aparência: afundado, com a cor mais clara valor: true - Botão não clicado aparência: normal, com a cor normal valor: false Será que não dá pra configurar isso em um dos botões do próprio Delphi? Vlw!

resolvi galera! consegui retirar todos os vírus da máquina com as ferramentas "Trojan Remover" (ótima) e "Rootkit Detective". Passei as duas ferramentas várias vezes até que não sobrasse um vestígio só de vermes. agora a máquina só precisa de uns ajustes manuais. fica a dica dessas duas ferramentas pra quem tiver o mesmo problema. vlw!

Salve salve galera dos vírus! Vejam o meu problema... Estou com um vírus o qual eu não sei exatamente o nome, mas consegui identificar os arquivos que ele extrai na máquina a cada boot. Eis os arquivos: - \Windows\kus552.dat - \Windows\bolenjx.exe - \Windows\system32\bolenjx.exe E uma chave de registro: HKLM\Software\Microsoft\Windows NT\CurrentVersion\Windows\AppInit_DLLs com o valor: kus552.dat. Não sei se são só esses. Bem, fiz uma pesquisa no site http://www.hakia.com/ e ele me deu como resultado a seguinte página: http://virusinfo.prevx.com/viruscenter.asp?GRP=4775600015, onde a descrição do vírus Covert.Sys.Exec bate exatamente com o que acontece com a máquina: desativação de firewalls e antivírus e total controle dos processos do Windows. Nessa mesma página, há uma ferramenta de detecção do vírus, mas não consegui rodar a ferramenta, ela simplesmente não inicia, assim como os anti-vírus e anti-spywares. Também tentei rodar o HiJackThis sem sucesso. Tentei renomear as ferramentas, nada... tentei no modo de segurança, nada... deletos os arquivos acima e a chave de registro, mas eles voltam no boot (mesmo no modo de segurança). Tentei com um CD de boot pro XP, deleto os arquivos e eles voltam. Passei uma outra ferramenta da Mcafee: Rootkit Detective. Esse sim, funcionou! Ele detecta o bolenjx e o ntio922.sys. Com o bolenjx ele mata o processo, e o ntio922 ele renomeia o arquivo, mas voltam com o boot. Esse ntio922 tb tem chave no registro: HKLM\System\ControlSet001\Enum\Root\LEGACY_NTIO922, que não pode ser apagada nem editada, pois acredito ser um serviço. E o engraçado é que não consigo encontrar esse arquivo na pasta que a ferramenta aponta: \Windows\system32\drivers, ele simplesmente não existe... Tenho uma certa experiência em remoção de vírus, mas confesso que nunca tinha visto algo como isso. Já não me restam muitas alternativas, peço a ajuda de vocês. Vlw!

acho que isso você só consegue resolver pela função StretchBlt da API Win32. nunca usei nem sei como funciona, mas o Graymalkin já citou isso aqui no fórum: https://www.scriptbrasil.com.br/forum/index...howtopic=101869 se não me engano, são esses os sites que ajudam com API: http://www.allapi.net/ ou http://www.mentalis.org/ como eu já disse, nunca testei, não sei se vai te ajudar

tb trabalho da mesma forma que o Raphael, e não tenho problemas. veja um exemplo: Dim Dados As New ADODB.Recordset Dados.Open "SELECT CAMPO FROM TABELA ORDER BY CAMPO", Conexao, adOpenStatic, adLockReadOnly Dados.MoveFirst Do While Not Dados.EOF cmbCidEstado.AddItem Dados("CAMPO") Dados.MoveNext Loop Dados.Close

não entendi bem sua pergunta...seria inserir uma foto dentro de um form, é isso?! se for só isso, basta adicionar um objeto PictureBox ao seu form e escolher a foto pela propriedade Picture. responde aê pra gente poder te ajudar, vlw!

é, sei que dá pra fazer muitas coisas...o problema é saber como, hehe :) bem, testei aqui e estou quase chegando onde eu quero. fazendo do jeito que está no outro tópico, agora aparece a seguinte mensagem: "Logon failed. Details: Cannot find DSN in connection string" e realmente não coloquei nenhum DSN na minha conexão, pois sem usar um novo direcionamento de base o relatório abre normal. acho que agora eu devo usar o comando LogOnServer, mas tentei e não consegui tb, veja: crRep.Database.LogOnServer "odbc", "localhost", Fonte_ODBC, SYSDBA, masterke dá erro na conexão ODBC: "Nome da fonte de dados não encontrado e nenhum driver padrão especificado"

Eu uso o próprio Help dentro do Crystal. Se você sabe qual comando usar, basta buscá-lo no índice e ler como funciona, tem até exemplos, muito bom! A não ser que o inglês seja um empecilho. Também encontrei um arquivo PDF dentro do CD de instalação do Crystal que ensina passo-a-passo a usá-lo. Também em inglês e também muito bom! Só não lembro o nome do arquivo, mas busque todos os PDFs do CD de instalação que você vai achar. Espero ter ajudado