Ir para conteúdo
Fórum Script Brasil

cristiano.evangelista

Membros
  • Total de itens

    31
  • Registro em

  • Última visita

Posts postados por cristiano.evangelista

  1. ola pessoal, estou precisando fazer uma consulta utilizando tabelas de dois banco access diferentes..

    select a.codigo as Codigo, e.desc_es as Descricao, a.quant as Quant, t.descri as Fabricante, e.divisao_es as Divisao, e.grupo_es as Grupo, e.codfabri_e as Cod_Fabri, e.codbarra_e as Cod_Barras, codorig_es as Cod_Original, codrefe_es as Cod_Referencia from c:\sigerest\dados.mdb.estoque e,  c:\sigerest\dados_acerto.mdb.acerto a

    o banco dados.mdb possui senha, portanto me retorna o erro senha inválida.. gostaria de saber como colocar a senha nessa consulta, se não tiver jeito, qual a maneira de resolver o problema..

    fico no aguardo de uma ajuda.

  2. olá pessoal,

    estou com o seguinte problema.. quando entro no sistema ele pergunta em qual banco vai se conectar (matrix ou filial) é o mesmo banco, mas com dados diferentes. O problema é que estou usando data environmet para os relatórios, e neles tenho que configurar o caminho do banco. Quando escolher o banco que não está configurado, como programar a conexao do data enviroment? estou usando acess.

    fico no aguardo de uma ajuda

  3. Pessoal, quando executo este sql recebo o seguinte erro:

    A clausula LEVEL inclui uma palavra reservada ou um argumento que esta incorreto ou faltando, ou a pontuação está incorreta

    campo = "data_not"
    filtro_nf ("select n.data_not as Data, sum(n.vrt_not) as Total from notafis n, estoque e where n.prod_not = cdbl(e.cod_es) and " & campo & " BetWeen #" & VBA.Format(dinicial.Text, "YYYY/MM/DD") & "# And #" & VBA.Format(dfinal.Text, "YYYY/MM/DD") & "#; group by n.data_not order by data_not ")

    fico no aguardo de uma ajuda..

  4. pessoal, estou recebendo essa mensagem de erro uso inválido de null,

    quando executo este sql

    select n.data_not as Data, n.numero_not as Documento, sum (n.vrt_not - n.desconto_not) as Valor, sum(e.cpiscof_es) as pis_cof, sum(e.codst_es) as Subs_Trib, sum(e.vricms_es) as ICMS, sum(cdbl(Iif(e.codtrib1_es = Null, 0, e.codtrib1_es))) as ICMS_Reduz from notafis n, estoque e where n.prod_not = cdbl(e.cod_es) group by n.numero_not, n.data_not

    já testei essa instrução e funciona beleza no visdata, sinceramente não sei o porque deste erro, se alguém tiver uma ideia eu agradeço,

    abraço

  5. ola pessoal,

    tenho essa instrução sql, que soma as vendas por mês.. preciso ordenar por mes, desse jeito não ordena..

    select (MONTH(data_not) & '/' & YEAR(data_not)) as mes, sum(n.vrt_not) as Total from notafis n, estoque e where n.prod_not = cdbl(e.cod_es) group by (MONTH(data_not) & '/' & YEAR(data_not)) order by (MONTH(data_not) & '/' & YEAR(data_not))

    fico no aguardo de uma ajuda

  6. ola pessoal, to com um problema nessa instrução sql..

    select  n.numero_not as Documento,  sum (n.vrt_not - n.desconto_not) as Valor, sum(e.cpiscof_es) as pis_cof, sum(e.codst_es) as Subs_Trib, sum(e.vricms_es) as ICMS, sum(cdbl(e.codtrib1_es)) as ICMS_Reduz  from notafis n, estoque e where n.prod_not = cdbl(e.cod_es) group by n.numero_not

    o campo codtrib1_es é do tipo texto, tem varios registros em branco.. quando executo este sql da o seguinte erro

    "Uso inválido de null"

    alguém sabe o porque disso?

    abraço

  7. Kuroi, com esse select obtenho o resultado da imagem..(obs: vou mandar a imagem no seu email)

    select e.cod_es as Código, e.desc_es as Descrição, IIf(t.numero = 3, t.descri, '') as Und, IIf(t.numero = 9, t.descri, '') as  Fabricante, e.codbarra_e as Cod_Barras, e.embal_es as Emb, e.qant_es as Estoque  from estoque e, tipos t where (t.numero = 3 or t.numero = 9) and  (cint(e.und_es) = t.codigo and t.numero = 3) or (cint(e.fabric_es) = t.codigo and t.numero = 9 )
    observe que os registros ficam repetindo de dois em dois, por causa dos campos unidades e fabricantes, preciso juntar essas duas linhas que repetem em um unico registro.. conto com sua ajuda, t+
    Kuroi, com esse select obtenho o resultado da imagem..(obs: vou mandar a imagem no seu email)
    select e.cod_es as Código, e.desc_es as Descrição, IIf(t.numero = 3, t.descri, '') as Und, IIf(t.numero = 9, t.descri, '') as  Fabricante, e.codbarra_e as Cod_Barras, e.embal_es as Emb, e.qant_es as Estoque  from estoque e, tipos t where (t.numero = 3 or t.numero = 9) and  (cint(e.und_es) = t.codigo and t.numero = 3) or (cint(e.fabric_es) = t.codigo and t.numero = 9 )

    observe que os registros ficam repetindo de dois em dois, por causa dos campos unidades e fabricantes, preciso juntar essas duas linhas que repetem em um unico registro..

    conto com sua ajuda, t+

    não achei seu email, me adiciona ai

    MSN: cristiano.evangelista88@hotmail.com

    skype: cristiano.evangelista88

  8. Kuroi, é o seguinte amigo.. to usando acess mesmo,

    tenho essa tabela TIPOS, ela traz várias informações (grupos, unidades, fabricante.. etc), o que diferencia os registros é o campo numero, (ex: os fabricantes tem o numero = 9, todos os registros que tem o numero = 9 então são fabricantes).

    Agora to fazendo um relatorio da tabela ESTOQUE onde tenho que buscar a descrição de unidades e fabricantes, que está na mesma tabela (TIPOS), e é o mesmo campo (descri) o que diferencia é campo numero..

    tentei com IIf, não da certo de jeito nenhum!

    olha só

    select e.cod_es as Código, e.desc_es as Descrição, IIf(t.numero = 3, t.descri, 0) as Und, IIf(t.numero = 9, t.descri, 0) as  Fabricante, e.codbarra_e as Cod_Barras, e.embal_es as Emb, e.qant_es as Estoque  from estoque e, tipos t where  cint(e.fabric_es) = t.codigo and cint(e.und_es) = t.codigo

  9. Pessoal, preciso montar um select que tem buscar a descrição de dois campos da mesma tabela,

    tenho uma tabela TIPOS com a seguinte estrutura:

    NUMERO CODIGO DESCRI

    1 1 GRUPOS

    1 2 UNIDADES

    1 3 FABRICANTES

    2 1 UNT

    2 2 PCT

    3 1 TILIBRA

    3 2 CASSIO

    preciso buscar a descrição de unidades e fabricantes no mesmo select, será que tem jeito de fazer isso?

    fico no aguardo de uma ajuda..

    t+

  10. Pessoal, to precisando gerar um relatório agrupado com data report.. não uso data ev.

    qual o segredo pra fazer isso? tentei colocando o campo na seçao group reader e não funcionou,

    o que mais tenho que fazer?

    será que a melhor opção é mudar para o crystal report??

    preciso agrupar os dados de uma mesma tabela da seguinte forma:

    CLIENTE CONTROLE VALOR

    001 1234 12,00

    002 2222 1,00

    001 2345 2,00

    002 5667 3,00

    os dados devem aparecer agrupados por cliente:

    CLIENTE 001

    CONTROLE VALOR

    1234 12,00

    2345 2,00

    CLIENTE 002

    CONTROLE VALOR

    2222 1,00

    5667 3,00

    fico no aguardo de uma ajuda..

  11. Pessoal, to precisando gerar um relatório agrupado com data report.. não uso data ev.

    qual o segredo pra fazer isso? tentei colocando o campo na seçao group reader e não funcionou,

    o que mais tenho que fazer?

    será que a melhor opção é mudar para o crystal report??

  12. o sql ta correto sim, o estranho é que se colocar um filtro um filtro ele funciona olha so:

    assim funciona

    filtro ("select e.cod_es as Código, e.desc_es as Descrição, t.descri as Fabricante, e.codbarra_e as Cod_Barras, e.embal_es as Emb, e.qant_es as Estoque  from estoque e, tipos t where cint(e.fabric_es) = t.codigo and t.numero = 9 and grupo_es= " & txtgrupo.Text & " ")
    e assim para mostrar todos dá o erro
    filtro ("select e.cod_es as Código, e.desc_es as Descrição, t.descri as Fabricante, e.codbarra_e as Cod_Barras, e.embal_es as Emb, e.qant_es as Estoque  from estoque e, tipos t where cint(e.fabric_es) = t.codigo and t.numero = 9 ")

    num sei porque não viu :wacko:

    falou..

  13. pode ser que sua consulta está vazia, coloca uma verificação se ele é nulo antes

    if not tfiltro.eof = true then
         sua rotina
    else
          msgBox = "Não há registros para essa consulta"
    end if

    deu certo não cara, o tfiltro.eof ta retornando false e acusando o mesmo erro,

    o que será que pode ser?

  14. Pessoal, tenho essa rotina na minha aplicação

    Private Sub filtro(sql1 As String)
    
    Set tfiltro = New Recordset
    tfiltro.CursorLocation = adUseClient
    tfiltro.Open sql1, conexao, adOpenForwardOnly, adLockReadOnly
    
    'preenchendo o grid
    Set griddados.DataSource = tfiltro
    lblmsg.Caption = "(" & tfiltro.RecordCount & ")" & " Item (s) " & " encontrados!"
    
    End Sub

    quando mando a expressão sql dá o seguinte erro..

    uso inválido de 'nulo', e aponta a linha onde está o recordcount, a instrução sql está correta..

    fico no aguardo de uma dica.. t+

×
×
  • Criar Novo...