Ir para conteúdo
Fórum Script Brasil

cristiano.evangelista

Membros
  • Total de itens

    31
  • Registro em

  • Última visita

Tudo que cristiano.evangelista postou

  1. Ola pessoal, estou precisando saber a sintaxe de um select que usa tabelas de dois bancos em acess.. se alguém souber posta ai.. t+
  2. 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.
  3. no botão de chamar o relatorio, verifique se as propriedades do relatorio Datasource e Datamenber estão configuradas..
  4. você pode filtrar depois.. dataenvironment.rsCommand1.Filter = "campo='" & Trim(text1.Text) & " '"
  5. 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
  6. 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..
  7. 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
  8. da erro por causa do group by.. fala que a expressão month(data_not) não faz parte do agrupamento.. o grande problema é esse..
  9. ta retornando assim: 1/2001 1/2002 1/2003 1/2004 preciso que retorne assim: 1/2001 2/2001 3/2001 4/2001 so pode trazer o mes e o ano, pois o relatório é o somatório do mes..
  10. 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
  11. o cara, no visdata este sql funciona normal, quando passo pro vb da o mesmo erro.. uso invalido de nulo.. sabe porque?
  12. certinho cara, so tive trocar esta virgula por o sinal de igual sum(cdbl(Iif(e.codtrib1_es, Null, 0, e.codtrib1_es))) as ICMS_Reduz vlw..
  13. 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
  14. certinho cara.. fico te devendo mais essa, abraço!
  15. 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
  16. 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
  17. 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+
  18. 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..
  19. 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??
  20. 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..
  21. deu certo não cara, o tfiltro.eof ta retornando false e acusando o mesmo erro, o que será que pode ser?
  22. 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...