Progr'amador

Olá raphael, o relatorio ta usando essa query: dtm.qryImp? tenta isso: if filtrar.ItemIndex=0 then begin Application.CreateForm (TQrListForm,QrListForm); dtm.qryImp.Close; dtm.qryImp.SQL.Clear; dtm.qryImp.SQL.Add('SELECT * FROM ceac'); dtm.qryImp.Open; QrListForm.QuickRep1.Preview; end; if filtrar.ItemIndex=1 then begin Application.CreateForm (TQrListForm,QrListForm); dtm.qryImp.Close; dtm.qryImp.SQL.Clear; dtm.qryImp.SQL.Add('SELECT * FROM ceac WHERE Atendido= ''SIM'''); dtm.qryImp.Open; QrListForm.QuickRep1.Preview; end; if filtrar.ItemIndex=2 then begin Application.CreateForm (TQrListForm,QrListForm); dtm.qryImp.Close; dtm.qryImp.SQL.Clear; dtm.qryImp.SQL.Add('SELECT * FROM ceac WHERE Atendido= ''NÃO'''); dtm.qryImp.Open; QrListForm.QuickRep1.Preview; end; Abs. Progr'amador.

Olá pdelphi, tem como usar o DBGRID se você quizer, use a função SUBSTR na select (usando Query), tipo: SELECT SUBSTR(CAMPO_MEMO, 1, 150) CAMPO_MEMO FROM TABELA Abs. Progr'amador.

Okkêêê!!! É!, fazendos alguns teste aqui percebi que o firebird não aceita algumas funções SQL. Com todo respeito aos usuários do firebird, mas, se um banco não reconhece funções Sql do tipo TRUNC, ROUND, NVL, etc..., eu comparo com o paradox. peguei pesado, né!!! Eu utilizo muito esse tipo de função SQL, e se um banco não reconhece funções SQL desse tipo, pra mim não tem muita utilidade. PS: Mas, se eu estiver errado, por favor me corrija, e diga como usar essas funções no firebird... Abs. Progr'amador.

Olá hencker, essa dll FBCLIENT.DLL deve ficar na pasta SYSTEM32 do WINDOWS, procure por essa dll no localizar, e copie pra esse diretorio (SYSTEM32), Abs. Progr'amador.

É o seguinte eu nunca usei esse Report Builder, mas você podeira suar tres query's e um DataSource(para a QueryDadosPessoais) tipo assim: na QueryDadosPessoais, na opção Sql, coloque SELECT * FROM DADOS_PESSOAIS; na QueryGrau: Sql: SELECT * FROM GRAU_INSTRUCAO WHERE IDDADOS = :IDDADOS_PESSOAIS e na opção DataSource dessa query coloque o DataSource da QueryDadosPessoais, na opção Params clique em [...] ira aparecer o parametro: IDDADOS_PESSOAIS em Data Type escola Integer; e na outra query, QueryExperiencia, Sql: SELECT * FROM EXPERIENCIA PROFISSIONAL WHERE IDDADOS = :IDDADOS_PESSOAIS, e repita toda a operação da QueryGrau. Espero que tenha entendido. Qualquer coisa posta ae falou!!! Abs. Progr'amador.

Olá, você poderia usar QUERY, posta ae os campos de suas tabelas, e os campos que fazem referencia. Ok? Abs. Progr'amador.

Olá, use o comando TRUNC, tipo assim: SELECT COUNT(*) FROM TABELA WHERE TRUNC(CAMPO_DATA) = '01/12/2004' GROUP BY TRUNC(CAMPO_DATA) Abs. Progr'amador.

Olá Renato, Você ta falando de pesquisar registro numa tabela usando SQL??? Que ferramenta você esta usando pra conectar ao banco firebird? Abs. Progr'amador.

hehehe, não poderia perder essa!!!

Então, problema resolvido! Fechando o tópico...

e num era assim qu você queria???? um em baixo do outro?

Tenta esse: procedure TForm1.Button1Click(Sender: TObject); var ArqTxt : TextFile; linha : string; i : integer; begin AssignFile(ArqTxt,'C:\Meus documentos\arquivo_texto.txt'); Reset(ArqTxt); i := 0; while not eof(ArqTxt) do begin Readln(ArqTxt, Linha); i := i + 1; if i = 1 then Edit1.Text := Linha; if i = 2 then Edit2.Text := Linha; if i = 3 then Edit3.Text := Linha; if i = 4 then Edit4.Text := Linha; if i = 5 then Edit5.Text := Linha; if i = 6 then Edit6.Text := Linha; end; Linha := ''; Closefile(ArqTxt); end; Abs. Progr'amador.

Pergunto dinovo: O número de linhas sempre será o mesmo? Se for 5 edit's sempre será 5 linhas no txt. (por exemplo) Abs. Progr'amador.

Cara isso é access mesmo? Abs. Progr'amador.

Olá, após a inserção tem da um "Close e um Open" ou "Active:=False e Active:=True" no componente que você ta usando pra abrir a tabela no dbgrid. Abs. Progr'amador.

Olá Nosdaj, é possível sim, mas o número de linhas sempre será o mesmo? tipo, se for 5 edit's sempre será 5 linhas no txt. Abs. Progr'amador.

Olá Arlon, esse deu certo sim, eu testei aki. Abs. Progr'amador.

cara ae eu já num sei te dizer! Como você fez a instalação? No site do Capablanca tem um tutorial - Como acessar um banco de dados Firebird através de componentes ZeosDBO, lá explica passo a passo, como usar, talvez isso possa te ajudar. Abs. Progr'amador.

cara eu fiz um teste aki, copiei o eu código e funcionou, verifique se o arquivo ta correto! Abs. Progr'amador.

Valeu Diraol, funcionou Legal, é isso mesmo Brigradão!!!!! Abs. Progr'amador.

Olá Nosdaj, agente arruma um jeito, hehehe só que no exemplo você ta usando ponto e virgula (;), Ex: (524;farma) ae vai: procedure TForm1.Button1Click(Sender: TObject); var ArqTxt : TextFile; linha, virgula : string; i, nx, tam : integer; begin AssignFile(ArqTxt,'C:\Meus documentos\arquivo_texto.txt'); Reset(ArqTxt); Readln(ArqTxt, Linha); while not eof(ArqTxt) do begin Readln(ArqTxt, Linha); i := Length(Linha); for nx:=1 to i do begin virgula := Copy(Linha,nx,1); if virgula = ';' then tam := nx; end; Edit1.Text := Copy(Linha,1,tam-1); Edit2.Text := Copy(Linha,tam+1,i); end; Linha := ''; Closefile(ArqTxt); end; Caso esteja usando virgula mesmo é só mudar aqui: if virgula = ',' then Abs. Programador.

olá felipee, você pode usar o ZeosDBO, Aqui: http://geocities.yahoo.com.br/ecmsb/zeosdbo-6.1.5-stable.zip Ateção: Caso você clique neste link e não consegui baixar o arquivo, copie todo o endereço do link pra barra de endereços. Abs. Progr'amador.

Olá Kindelis, Ae vai: function ResetAutoInc(FileName: TFileName; Base: Longint): Boolean; begin with TFileStream.Create(FileName, fmOpenReadWrite) do Result := (Seek($49, soFromBeginning) = $49) and (Write(Base, 4) = 4); end; procedure TForm1.Button1Click(Sender: TObject); begin ResetAutoInc('c:\local tebela\nome_tabela.db', 0); end; Funciona legal... Abs. Progr'amador.

É o seguinte, jeronymo: não tem essa opção que você falou: diarol: essa opção Abrir com... só aparece quando um arquivo ta assim: Por enquanto, fiz o seguinte: tirei o Notepad.exe da pasta windows e renomeei o meu bloco.exe pra Notepad.exe e joguei ele na pasta do windows, hehehee desse forma resolvi o problema, só que num gostei muito disso não, se vocês tiverem outra forma de fazer isso sem precisar banir o Notepad do windows, agradeço. Valeu!!! Abs. Progr'amador.

Olá Renato, porque você não usa o MaskEdit1? ele serve pra isso... Abs. Progr'amador.