fabin01 Posted August 10, 2009 Report Share Posted August 10, 2009 Boa tarde Galera! é o seguinte aqui na empresa alguns programas tem a base de dados feita em dbf..e o programa que o chefe pediu para estudar e analisar todos os dados estao em dbf... e nao sei particulamente nada sobre dbf gostaria de saber como faço para criar uma tabela neste tipo de db, se é como no access se alguem tiver um artigo ou afim que possa me ajudar ficarei grato Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 Pelles C Editado por - fabin01 on 10/08/2009 15:05:43 Quote Link to comment Share on other sites More sharing options...
fabin01 Posted August 10, 2009 Author Report Share Posted August 10, 2009 Boa tarde Galera! é o seguinte aqui na empresa alguns programas tem a base de dados feita em dbf..e o programa que o chefe pediu para estudar e analisar todos os dados estao em dbf... e nao sei particulamente nada sobre dbf gostaria de saber como faço para criar uma tabela neste tipo de db, se é como no access se alguem tiver um artigo ou afim que possa me ajudar ficarei grato Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 Pelles C Editado por - fabin01 on 10/08/2009 15:05:43 Quote Link to comment Share on other sites More sharing options...
william Posted August 10, 2009 Report Share Posted August 10, 2009 exemplo de como criar um arquivo ALUNOS.DBF pelo xharbour * arquivo de alunos if !file("ALUNOS.DBF") vldbf:={} AAdd(vldbf, {"MATRICULA", "C" ,10 , 0}) AAdd(vldbf, {"CURSO", "C" ,40 , 0}) AAdd(vldbf, {"PERIODO", "c" , 2 , 0}) AAdd(vldbf, {"TURMA", "c", 2 , 0}) AAdd(vldbf, {"TURNO", "c", 7 , 0}) AAdd(vldbf, {"NOME_ALUNO", "c", 40 , 0}) AAdd(vldbf, {"DATA_NASC", "d", 8 , 0}) AAdd(vldbf, {"ENDER", "c", 40 , 0}) AAdd(vldbf, {"NUMERO", "c", 8 , 0}) AAdd(vldbf, {"BAIRRO", "c", 30 , 0}) AAdd(vldbf, {"CIDADE", "c", 40 , 0}) AAdd(vldbf, {"ESTADO", "c", 2 , 0}) AAdd(vldbf, {"CEP", "c", 10 , 0}) AAdd(vldbf, {"NATURALID", "c", 40 , 0}) AAdd(vldbf, {"ESTADO_NAT", "c", 2 , 0}) AAdd(vldbf, {"TELEFONE", "c", 20 , 0}) AAdd(vldbf, {"EMAIL", "c", 50 , 0}) AAdd(vldbf, {"PAI", "c", 40 , 0}) AAdd(vldbf, {"MAE", "c", 40 , 0}) AAdd(vldbf, {"RG", "c", 10 , 0}) AAdd(vldbf, {"EMISSOR", "c", 8 , 0}) AAdd(vldbf, {"DATA_EMIS", "d", 8 , 0}) AAdd(vldbf, {"CPF", "C", 14 , 0}) dbCreate( "ALUNOS", vldbf ) endif William Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime Quote Link to comment Share on other sites More sharing options...
fabin01 Posted August 10, 2009 Author Report Share Posted August 10, 2009 a certo mas william os arquivos dbf é so por codigo? nao tem algum jeito de ser como access nao?algo um pouco visual e há como associar o sitema ao access? valews Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 Pelles C Quote Link to comment Share on other sites More sharing options...
william Posted August 10, 2009 Report Share Posted August 10, 2009 o exemplo que eu postei é via codigo. Mas existe tb o DBU.EXE (visual tipo do DOS) e tb outros dbu´s visuais por aÃ... acho que tem um que chama WINDBU . Mas quando tem que criar na unha, uso o DBU do Clipper mesmo, que faz o trabalho. É feio mas resolve... Agora para associar o sistema ao access somente com libs de terceiros ,ou via ole ou ADO. William Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime Editado por - william on 10/08/2009 15:25:21 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted August 10, 2009 Report Share Posted August 10, 2009 http://www.fivewin.com.br/exibedicas.asp?id=485 João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
fabin01 Posted August 10, 2009 Author Report Share Posted August 10, 2009 citação:o exemplo que eu postei é via codigo. Mas existe tb o DBU.EXE (visual tipo do DOS) e tb outros dbu´s visuais por aÃ... acho que tem um que chama WINDBU . Mas quando tem que criar na unha, uso o DBU do Clipper mesmo, que faz o trabalho. É feio mas resolve... Agora para associar o sistema ao access somente com libs de terceiros ,ou via ole ou ADO. William Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime Editado por - william on 10/08/2009 15:25:21 id=quote>id=quote>a certo, entaum tem programas que fazem os arquivos dbf de forma mais visual neh? aproveitando, como faço para um campo editbox receber formataçao de data exemplo ele aparecer com as barras / / e caso o usuario digite 1/1/01 ele converta para 01/01/2001? valews Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 Pelles C Quote Link to comment Share on other sites More sharing options...
kapiaba Posted August 10, 2009 Report Share Posted August 10, 2009 VEJA \SAMPLES\COMANDO> SPINNER ABRA O DIALOGO E VEJA COMO FICA O GET COM RECURSO. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted August 10, 2009 Report Share Posted August 10, 2009 Baixe o Fox que o kapiaba mostrou.. no prompt do dos digite fox e de enter Create Cadastro * FIELDNAME TYPE WIDTH DEC ---------------------------------------- Nome Caracter 50 0 Data Date 8 Valor Numeric 12 2 id=code>id=code>Pronto tá criado um DBFcom Nome,DAta e valor.. e assim vai.. Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> Quote Link to comment Share on other sites More sharing options...
fabin01 Posted August 10, 2009 Author Report Share Posted August 10, 2009 a certo... programinha bacana para criar mesmo hehehe... agora voltando a questao anterior que citei no topico anterior de formataçao de campos como faço por exemplo um edit box ser formatado para aparecer as barras das data / / e quando o usuario digitar 1/1/01 quando perder o foco mudar para /01/01/2001.... Não achei o exemplo que o kapi sugeriu ali.. tem outro artigo ou mdo que possam me ajudar? valews Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 Pelles C Quote Link to comment Share on other sites More sharing options...
william Posted August 10, 2009 Report Share Posted August 10, 2009 fabio , isso que vc quer o get ja faz automatico, veja o exemplo: set date brit set epoch to 1950 dget:=ctod(" / / ") redefine get oGet var dGet id 101 of odlg picture "@D" a mascara "@D" ja faz isso de autocompletar o campo pra vc William Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime Editado por - william on 10/08/2009 16:09:12 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted August 10, 2009 Report Share Posted August 10, 2009 citação:fabio , isso que vc quer o get ja faz automatico, veja o exemplo: set date brit set epoch to 1950 dget:=ctod(" / / ") redefine get oGet var dGet id 101 of odlg picture "@D" a mascara "@D" ja faz isso de autocompletar o campo pra vc William Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime Editado por - william on 10/08/2009 16:09:12 id=quote>id=quote>Completando o ex. do Willian: a mascara "@D 99/99/9999" ja faz isso de autocompletar o campo pra vc João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted August 10, 2009 Report Share Posted August 10, 2009 Completando mas ainda Nem precisa da mascara... Local Cdata:=CTOD("\\") Redefine Get oGet Var cData ID of odlg id=code>id=code>Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> Quote Link to comment Share on other sites More sharing options...
kapiaba Posted August 10, 2009 Report Share Posted August 10, 2009 citação:Completando mas ainda Nem precisa da mascara... Local Cdata:=CTOD("\\") Redefine Get oGet Var cData ID of odlg id=code>id=code>Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> id=quote>id=quote>O FORUM DO KPETA!! COMO VOCES MANJAM!! Tà LOKO! AINDA VOU SER COMO VOCES. Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
zergar Posted August 10, 2009 Report Share Posted August 10, 2009 Fabin, se voce estiver mais a vontade no Access, voce podera criar as suas tabelas diretamente dele. Crie seu projeto todo no Access e depois export para o formato desejado, nesse caso DBF. Abracos. ps: Sim voce podera vincular suas tabelas DBF no Access e manipular os dados de forma Visual. Editado por - zergar on 10/08/2009 18:27:40 Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted August 10, 2009 Report Share Posted August 10, 2009 citação:Fabin, se voce estiver mais a vontade no Access, voce podera criar as suas tabelas diretamente dele. Crie seu projeto todo no Access e depois export para o formato desejado, nesse caso DBF. Abracos. ps: Sim voce podera vincular suas tabelas DBF no Access e manipular os dados de forma Visual. Editado por - zergar on 10/08/2009 18:27:40 id=quote>id=quote>Isso é pra vcs experts em Acces.. nós que viemos do clipper(summer) aprendemos a fazer tudo na unha. por um meio ou outro, se não tiver Dbase,DBU, FoxBase,dbSayLá etc...para manipular DBFs fazemos via código e mandamos compilar que não vai ter erro. Não sei como funciona o Acces, mas até para o Office 2007 tem suplementos para abrir documentos do proprio Office de versões anteriores. Vc. pode até usar o Acces para criar suas tabelas mas vincular um programa FWH ao Acces acho que é loucura... pode ser que um dia seu Acces não vai mas abrir as tabelas antigas... e dai babau... Inté + Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> Quote Link to comment Share on other sites More sharing options...
zergar Posted August 10, 2009 Report Share Posted August 10, 2009 O Vinculo ao qual me refiro e somente das tabelas em DBF, um otimo DBU Visual . Abracos. Quote Link to comment Share on other sites More sharing options...
fabin01 Posted August 11, 2009 Author Report Share Posted August 11, 2009 citação: citação:Completando mas ainda Nem precisa da mascara... Local Cdata:=CTOD("\\") Redefine Get oGet Var cData ID of odlg id=code>id=code>Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> id=quote>id=quote>O FORUM DO KPETA!! COMO VOCES MANJAM!! Tà LOKO! AINDA VOU SER COMO VOCES. Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe id=quote>id=quote>manjam mesmo viu kapi usahusahuhas deu certinho aqui.. agora e quando for cpf para colocar os pontos e o traço ...- e valores em dinheiro (0,00) valews Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 Pelles C Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted August 11, 2009 Report Share Posted August 11, 2009 Bom Dia... da mesma forma cVar:=Space(14) Redefine Get oGet Var cVar Picture "999.999.999-99" Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> Quote Link to comment Share on other sites More sharing options...
kapiaba Posted August 11, 2009 Report Share Posted August 11, 2009 Fabinho, Pergunta pra você: E SE FOSSE O CNPJ, QUAL SERIA A MÃSCARA?? Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
fabin01 Posted August 11, 2009 Author Report Share Posted August 11, 2009 citação:Fabinho, Pergunta pra você: E SE FOSSE O CNPJ, QUAL SERIA A MÃSCARA?? Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe id=quote>id=quote>kapi se nao estiver errado acho que ficaria assim: cVar:=Space(18) Redefine Get oGet Var cVar Picture "99.999.999/9999-99" ta certo Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 Pelles C Quote Link to comment Share on other sites More sharing options...
kapiaba Posted August 11, 2009 Report Share Posted August 11, 2009 citação: citação:Fabinho, Pergunta pra você: E SE FOSSE O CNPJ, QUAL SERIA A MÃSCARA?? Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe id=quote>id=quote>kapi se nao estiver errado acho que ficaria assim: cVar:=Space(18) Redefine Get oGet Var cVar Picture "99.999.999/9999-99" ta certo Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 Pelles C id=quote>id=quote>EXCELENTE! Parabéns!id=size5> João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
fabin01 Posted August 11, 2009 Author Report Share Posted August 11, 2009 citação: citação: citação:Fabinho, Pergunta pra você: E SE FOSSE O CNPJ, QUAL SERIA A MÃSCARA?? Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe id=quote>id=quote>kapi se nao estiver errado acho que ficaria assim: cVar:=Space(18) Redefine Get oGet Var cVar Picture "99.999.999/9999-99" ta certo Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 Pelles C id=quote>id=quote>EXCELENTE! Parabéns!id=size5> João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe id=quote>id=quote> valews kapi para valores em dinheiro, para aparecer na editbox assim 0,00 na mascara é so colocarPicture "0,00"? Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 Pelles C Quote Link to comment Share on other sites More sharing options...
william Posted August 11, 2009 Report Share Posted August 11, 2009 nao , para aparecer o valor com virgulas use a mascara "@E 999,999.99" Abraco William Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime 4.0 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted August 11, 2009 Report Share Posted August 11, 2009 Fabinho, lição de casa: Baixe e estude-0, segunda-feira, estaremos fazendo perguntas para você. Inverte-se os valores. http://www.fivewin.com.br/exibedicas.asp?id=177 Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.