rjcerri

Tenho uma aplicação usando firebird e com o componente IB, tem alguma forma de colocar o ip do servidor automatico? porque quando esta n aminha maquina eu tenho que mudar no componente Ibdatabase a propriedade Databasename colocando o meu IP e depois da manutenção eu tenho que compilar com o ip do cliente para esse rodar no cliente. Acho muito estranho o jeito que eu faço. :rolleyes:

Obrigado amigo, Mas o CVS e para converter de txt paradox? eu preciso fazer de Firebird para paradox. Abs

Boa tarde Pessoal, Preciso passar algumas tabelas do firebird 1.5 para paradox, fizemos a mudança aqui a pouco tempo mas temos usuarios que ainda usam o paradox e queria saber se tem uma ferramenta que faça isso ou algum bizu. Abs :D :rolleyes:

Boa Tarde, Tive um erro no sistema de baixa da venda de keyviol, achei que poderia ser o campo autoincremento tirei ele e fiz a consulta via SQL, esse erro fazia assim a pessoa lançava tudo e a uma certa altura dava a mensagem de erro e se notava que nada estava gravado. Depois de tirar o autoincrento e passar as operações para sql comecei a fazer o teste e depois de lançar varios pedidos deu uma mensagem de capacidade não suportada e memoria insuficiente _Qd.Db e nada que lancei gravou somete o primeiro pedido. alguen já passou por isso?

Já foi resolvido, era erro de programação. Abs

Estou usando os componetes interbase e fui fazer os testes do programa de transferencia, deu tudo certo ele grava em todos os campos, ai fomos testar em rede. Na minha maquina aonde esta o banco de dados ele grava certo mas na outra maquina ele só grava em alguns campos e outros ele não faz nada. alguém já viu isso? uso firebird

Zquery1.ParamByName('aniv').DataType:=ftstring; Zquery1.ParamByName('mest').DataType:=ftstring; Zquery1.ParamByName('mtipo').DataType:=ftstring; Zquery1.ParamByName('mdesc').DataType:=ftstring; Zquery1.ParamByName('aniv').AsString:='%'+edit1.text+'%'; Zquery1.ParamByName('mest').AsString:='%'+edit3.text+'%'; Zquery1.ParamByName('mtipo').AsString:='%'+edit2.text+'%'; Zquery1.ParamByName('mdesc').AsString:='%'+DBlookupComboBox2.text+'%'; Zquery1.open; Obrigado amigo, fiz assim mas o erro continua.

Zquery1.SQL.Clear; Zquery1.SQL.Add('Select * from clientes where aniver LIKE:aniv and estado LIKE:Mest and tipocli LIKE:Mtipo and descricao LIKE:Mdesc'); Zquery1.ParamByName('aniv').AsString:='%'+edit1.text+'%'; Zquery1.ParamByName('mest').AsString:='%'+edit3.text+'%'; Zquery1.ParamByName('mtipo').AsString:='%'+edit2.text+'%'; Zquery1.ParamByName('mtipo').AsString:='%'+edit2.text+'%'; Zquery1.ParamByName('mdesc').AsString:='%'+DBlookupComboBox2.text+'%'; Zquery1.open; estou fazendo assim mas esta dando esse erro 303 aritmetic exception, numeric overflow, or string truncation, error code:-303 incompatible cloun/host variable datatype. não tenho a menor ideia do que seja isso.

Na propriedade mastersouce do componente Zquerycadmedci coloquei o data source Dsdivutemp que é do componente ZqueryDivutemp, quando usava paradox o passo seguinte era na propriedade Masterfield clica nela e dentro fazer a ligação dos campos divutemp.codigo=cadmedic.codigo e assim no relatorio a tabela cadmedic mostrava tudo relacionada ao codigo da tabela divutemp, mas no componente zeos a propriedade masterfield não tem essa opçao de clicar, só tem o campo vazio.

E quase isso, mas eu não quero saber do arquivo *.fdb, e sim da tabela que existe nele, eu crio essa tabela quando gero um relatorio e quando vou gerar ele de novo eu faço essa procura e pergunto se vou criar um novo backup desse arquivo, por isso tenho que saber se ele já existe.

Eu usava esse comando no paradox, como faço isso agora no firebird? If (fileexists('c:\derma98\dados\'+nometabela+'.db')) then Question

entei fazer um mastersource no componente zeos mas, mas a propriedade masterfield não funciona como nos componentes table do paradox, alguém pode me dar uma dica?

esse é o erro single row subquery produced more than one row a sql update receitas set mesant=(select totalrec from marcele62005 where receitas.medico=marcele62005.medico) as 2 tabelas tem a mesma estrutura, a tabela marcele62005 e o backup do mes 6 e a receitas e o mes atual 7, o campo medico se repeti varias vezes nas duas tabelas, sera que vou ter que usar um while?

em que parte eu coloco esse comando? fiz assim e não deu certo strsql:=strsql+'(burro AutoInc, datavenda DATE,codigo CHARACTER(45),descricao CHARACTER(45),variacao CHARACTER(5),quantidade INTEGER,tiporeceita CHARACTER(1),'; strsql:=strsql+'medico CHARACTER(50),nvisitas NUMERIC(15,2),nvisitasobj NUMERIC(15,2),objetivorec NUMERIC(15,2),varvisita NUMERIC(15,2),divulgadora CHARACTER(30),totalrec NUMERIC(15,2),Primary Key (burro), INDEX med ON(medico))'; CREATE INDEX NOME_INDICE1 ON CadCliente(CAMPO_DA_TABELA); o que seria esse cadcliente? e a tabela

strsql:=strsql+'(burro AutoInc, datavenda DATE,codigo CHARACTER(45),descricao CHARACTER(45),variacao CHARACTER(5),quantidade INTEGER,tiporeceita CHARACTER(1),'; strsql:=strsql+'medico CHARACTER(50),nvisitas NUMERIC(15,2),nvisitasobj NUMERIC(15,2),objetivorec NUMERIC(15,2),varvisita NUMERIC(15,2),divulgadora CHARACTER(30),totalrec NUMERIC(15,2),Primary Key (burro))'; estou criando essa tabela via SQL, como faço par criar um secundario index?

Field in order by must be in result set essa e a mensagem de erro que da no meu relatorio, tenho que organizar por total de produtos vendidos pelo medico, mas não estou conseguindo. Qreceita.SQL.Add('select * from receitas order by totrec,medico,descricao'); fiz assim uso paradox essa tabela esta assim medico produto qtd total produtos carlos xx 1 10 joao xx 3 9 joao xy 1 9 luiz yy 2 2 brito yy 2 2 carlos wy 8 10 carlos yz 1 10 tiao yz 7 7 joao xx 5 9 porque não consigo? um campo com valores repetidos não pode ser usado em um order by?

Olhei, mas não tem nada lá que me ajude.

Estou usando o componente qrgroup, quickreport, estou trabalhando com duas tabelas um tem o nome,receitas,visitas,objetivo do medico e na outra tem nome,produtos essa tabela fica assim medico1 sabonete medico1 shampoo medico1 creme medico2 filtro medico3 creme medico3 sabonete tem como aparecer assim no quickreport? nome receitas visitas objetivo produtos fulano 20 10 3 sabonete,shampoo creme

Eu só quero importar os valores de outra tabela, essa tabela receita vai receber todos os dados das tabelas produtocx e 4 diretorios diferentes.

Não entendi. são duas tabelas receitas que esta vazia e produtocx2 que tem os dados que eu filtro por data com o between.

Não, é paradox. Tento fazer a mesma coisa com paradox?

desculpe a bagunça, fiz assim agora, strsql é uma variavel mesma e o erro que da e esse Invalid use of keyword Token:select(datavenda,codigo,descricao,variacao,quantidade,tiporeceita,medico Line Number 1 strsql:='insert into receitas(datavenda,codigo,descricao,variacao,quantidade,tiporeceita,medico)values'; strsql:=strsql+' select(datavenda,codigo,descricao,variacao,quantidade,tiporeceita,medico from ":Copacabana:produtocx2.DB" where datavenda between :per1 and :per2 and codigo<>:nada and medico<>:nada)';

strsql:='insert into receitas(datavenda,codigo,descricao,variacao,quantidade,tiporeceita,medico)values'; strsql:='(select datavenda,codigo,descricao,variacao,quantidade,tiporeceita,medico from ":Copacabana:produtocx2.DB") where produtocx2.datavenda between :per1 and :per2 and produtocx2.codigo<>:nada'; Estou usando esse comando para incluir em uma tabela o conteudo de outra, mas da erro no select, aonde estou errando?

Tenho uma tabela que esta em firebird, que esta com esse erro. Quando vou vizualizar ela pelo IBexpert da essa mensagem. E acho que esse erro esta influenciando na programação pos esta dando um erro de timestamp quando vou usar essa tabela.

DataMrp.ZQueryMrpmat.SQL.Clear; DataMrp.ZQueryMrpmat.SQL.Add('update mrpmatprima set falta=qtdmatprima-estoque ,total=:preço*falta where simulacao=:simu and qtdmatprima > estoque '); DataMrp.ZQueryMrpmat.Parambyname('simu').asinteger:=strtoint(txtsimulacao.text); DataMrp.ZQueryMrpmat.ExecSQL; Assim funcionou valeu!!