Ir ao conteúdo
  • Cadastre-se

Daniel.Alexander

Membros Plenos
  • Total de itens

    119
  • Registro em

  • Última visita

  • Qualificações

    0%

Reputação

0

Informações gerais

  • Cidade e Estado
    Sao Paulo - SP
  1. aí Clemente e galera em geral, funcionou perfeitamente. Valeu pela ajuda.
  2. Valeu mai uma vez Clemente, testarei e notifico pra galera a funcionalidade.
  3. aí galera, to precisando da ajuda de vocês novamente, eu tenho que gerar um uma sequencia de 15 numeros com valores que podem variar de 1 a 25 com as condições: os números não podem ser repetidos numa mesma sequencia e uma sequencia não pode ser igual a outra. Qualquer ajuda é bem vinda pessoal...
  4. Galera comprei essa placa K8V-MX da asus com um Athlon64 3200, mas minha fonte antiga é a de um HP Vectra, inclusive o gabinete usado é o do vectra, mas essa placa mãe nova tem mais 1 cabo com um terminal de 4 pinos, tem como eu fazer uma adaptação para conseguir esse conector com os 4 pinos e ligar na placa mãe e fazê-la funcionar ? Ajudem-me, qualquer opnião será bem vinda.
  5. Caro esaccomandi, formatação física ou de baixo nível é a mesma coisa, também conhecida como "zero-fill" consiste em zerar "completamente" o conteúdo do HD, issso é possível por programas específicos disponibilizados pelos fabricantes de HD, aqui tem alguns links caso precise e aqui uma definição melhor do zero-fill . Até +
  6. Galera, estou com problema quando tento abrir um sistema em DOS numa máquina com Win98 é apresentado a mensagem de erro BLX286: 1307 unable to load segment in module... ( ai vem o nome do aplicativo ) , em outras máquinas funciona normalmente inclusive com Win98 e também com XP, será que é alguma configuração a ser feita no config.sys ? Qualquer sugestão é bem vinda ...
  7. Ai Clemente, essa é pra você, ou qualquer outro que possa dar alguma dica. Estou fazendo uma consulta, onde existe uma tabela (TabVen) que possui vários campos NomeProd1, NomeProd2, QtdVenda1, QtdVenda2 etc..., a consulta funciona perfeitamente com um produto, mas com vários ele puxa somente o primeiro produto. Abaixo segue o código. ConsultaS = "SELECT NomeProd1 , SUM(QtdVenda1) AS TotalVenda " & _ "FROM TabVen " & _ "WHERE (DataVen >=#" & QuinzeDias & "#) " & _ "GROUP BY NomeProd1 " & _ "ORDER BY SUM(QtdVenda1) DESC;" Se eu conseguisse simplesmente : ConsultaS = "SELECT NomeProd1, NomeProd2, NomeProd3, NomeProd4, NomeProd5, NomeProd6, NomeProd7, NomeProd8 SUM(QtdVenda1, QtdVenda2, QtdVenda3, QtdVenda4, QtdVenda5, QtdVenda6, QtdVenda7, QtdVenda8) AS TotalVenda " & _ "FROM TabVen " & _ "WHERE (DataVen >=#" & QuinzeDias & "#) " & _ "GROUP BY NomeProd1, NomeProd1, NomeProd2, NomeProd3, NomeProd4, NomeProd5, NomeProd6, NomeProd7, NomeProd8 " & _ "ORDER BY SUM (QtdVenda1, QtdVenda2, QtdVenda3, QtdVenda4, QtdVenda5, QtdVenda6, QtdVenda7, QtdVenda8) DESC;" Estava tudo certo, mas ocorre um erro quanto tento fazer do modo acima. Qualquer dica é bem vinda, valeu.
  8. Galera, estou precisando de um código que associado a um botão, envie um email, para um determinado endereço, assunto e um breve texto, sem anexos. Alguém tem alguma ideia, qualquer dica ajuda.
  9. Ninguém tem nenhuma ideia de como faço isso ?
  10. Galera, estou com um pequeno problema, adicionei um datareport num projeto e o mesmo não exibe todos os valores da tabela selecionada, exibe apenas o primeiro registro da tabela (conferi e ele não gerou outras páginas de relatório) uma vez que este é o único intuito do meu data report, exibir todos os clientes da tabela tabcli, alguém sabe o que pode estar ocorrendo, qualquer dica me ajuda.... valeu ...
  11. Clemente valeu mesmo, funcionou que é uma beleza, repito, você é o cara ... muito obrigado mesmo !
  12. Clemente, valeu você é o cara, o problema era exatamente o tipo de dados juntamente com a dica anterior, a do "MM/dd/yyyy", tenho outra dúvida acho que bem simples, vou fazer uma query para me trazer os produtos próximo ao vencimento nos próximos 15 dias, mas quando eu faço ele me exibe todos vencimentos anteriores ao dia corrente + 15 dias, eu consigo limitar a pesquisa por exemplo >QuinzeDias e <Hoje ? Já declarei a variável Hoje mas como aplicá-la na query ? Abaixo o código: ListProximoAoVencimento.Clear Dim Hoje As String Dim QuinzeDias As String Dim ConsultaS As String Dim ConsultaS2 As String QuinzeDias = DateAdd("d", 15, Date) QuinzeDias = Format$(QuinzeDias, "MM/dd/yyyy") Hoje = Date Hoje = Format(Hoje, "MM/dd/yyyy") ConsultaS = "SELECT CodLote, Vencimento FROM TabLote WHERE Vencimento <=#" & QuinzeDias & "# ORDER BY Vencimento;" Set TeBe = db.OpenRecordset(ConsultaS, dbOpenSnapshot) Dim Class As Integer If Not TeBe.RecordCount = 0 Then Do Class = Class + 1 ListProximoAoVencimento.AddItem Class & "º" & " Código : " & (TeBe("CodLote")) & " - Data de Vencimento :" & (TeBe("Vencimento")) TeBe.MoveNext Loop Until TeBe.EOF MsgBox "Pesquisa concluída", vbInformation, "Consulta de Lotes" Else MsgBox "Não há resultados para esta pesquisa", vbInformation, "Consulta de Lotes" End If Set TeBe = Nothing
  13. Olá Clemente, obrigado por responder, testei suas sugestões mas o problema persiste, tentei inclusive alterar a data de um registro no banco de dados (access) para o padrão norte americano mas a pesquisa não retorna nada, tentei também colocar (DataVen =#" & QuinzeDias & "#) deixando uma data de venda na base de dados idêntica a variavel QuinzeDias (também testei no padrão norte americano) mas não retorna nada, alguma sugestão ? Abaixo está o código com a alteração efetuada. ListMaisVendidos.Clear Dim QuinzeDias As String Dim ConsultaS As String QuinzeDias = DateAdd("d", -15, Date) QuinzeDias = Format$(QuinzeDias, "MM/dd/yyyy") ConsultaS = "SELECT NomeProd, SUM(QtdVenda) AS TotalVenda " & _ "FROM TabVen " & _ "WHERE (DataVen >=#" & QuinzeDias & "#) " & _ "GROUP BY NomeProd " & _ "ORDER BY SUM(QtdVenda) DESC;" Set tebe = db.OpenRecordset(ConsultaS, dbOpenSnapshot) Dim Class As Integer If Not tebe.RecordCount = 0 Then Do Class = Class + 1 ListMaisVendidos.AddItem Class & "º" & " Nome : " & (tebe("NomeProd")) & " - Quantidade Vendida :" & (tebe("TotalVenda")) tebe.MoveNext Loop Until tebe.EOF MsgBox "Pesquisa concluída", vbInformation, "Consulta de Vendas" Else MsgBox "Não há resultados para esta pesquisa", vbInformation, "Consulta de Vendas" End If Set tebe = Nothing
  14. Um adendo: O também citando no código é TeBe (Letra T, Letra que foi alterado pelo código do forum...
  15. Galera, abaixo segue meu código, ele tem que pesquisar os itens mais vendidos nos últimos 15 dias e me mostrar o resultado num listbox ordenado pela quantidade vendida, só que, aparentemente não está reconhecendo a variável QuinzeDias pois mesmo eu adicionando uma venda na data precisa dos QuinzeDias e alterando para o DataVen para ser = ao QuinzeDias não é exibido o resultado. Alguém tem alguma dica, eu pensei que fosse o DataVen que não estava no Select mas ele não permite adicionar o DataVen acusa um erro citando que a variável não faz referencia a nada na expressão, O Clemente Silva me já me ajudou com esse problema um vez, alguém pode me ajudar ou até mesmo o Clemente, por favor, isso é um projeto que tenho que entregar em breve. Valeu ListMaisVendidos.Clear Dim QuinzeDias As String Dim ConsultaS As String QuinzeDias = DateAdd("d", -15, Date) QuinzeDias = Format$(QuinzeDias, "dd/MM/yyyy") ConsultaS = "SELECT NomeProd, SUM(QtdVenda) AS TotalVenda " & _ "FROM TabVen " & _ "WHERE (DataVen >=#" & QuinzeDias & "#)" & _ "GROUP BY NomeProd " & _ "ORDER BY SUM(QtdVenda) DESC;" Set também = db.OpenRecordset(ConsultaS, dbOpenSnapshot) Do Dim Class As Integer If também.AbsolutePosition > -1 Then Class = Class + 1 ListMaisVendidos.AddItem Class & "º" & " Nome : " & (também("NomeProd")) & " - Quantidade Vendida :" & (também("TotalVenda")) também.MoveNext End If Loop Until também.EOF MsgBox "Pesquisa concluída", vbInformation, "Consulta de Vendas"

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×