jbinfo Posted April 16, 2004 Report Share Posted April 16, 2004 amigos do forum! estou precisando converter bancos de dados (.dat) de um novo cliente para dbf, já procurei de tudo mais não acho nada que resolva esse problema, se alguém souber de uma dica, por favor me ajude! Aguardo Resposta, Obrigado Quote Link to comment Share on other sites More sharing options...
karinha Posted April 17, 2004 Report Share Posted April 17, 2004 http://www.comunidadeclipper.hpg.ig.com.br http://www.pctoledo.com.br http://www.fivewin.info/ http://www.the-oasis.net/ João Santos São Paulo-Brasil (11) 3106-2832 a Noite karinhannah@ubbi.com.br Quote Link to comment Share on other sites More sharing options...
karinha Posted April 17, 2004 Report Share Posted April 17, 2004 // Olá, Tente Adaptar este exemplo ao que você quer, veja se da certo. Abraços. // // Compilar: // // Clipper convdbf // Blinker fi convdbf, sixcdx lib six3 // // // Conversor para arquivos .DBF com campo memo para SIX // // convdbf nomeold nomenew //...........|........| //...........|........|--> Arquivo a ser criado //...........|-----------> Arquivo que vai fornecer a estrutura e os dados // Parameters arqold, arqnew Private arqold, arqnew Request dbfntx Request sixcdx // Pode Usar DBFCDX, _DBFCDX se souber como fazer... Sele 1 Use &arqold aArray := 1->(dbStruct()) SX_dbCreate( ArqNew , aArray ) Sele 2 Use &arqnew Sele 1 dbGoTop() While .Not. Eof() Sele 2 dbAppend() For t := 1 To FCount() cField := FieldName( t ) _Field->&cField := 1->&cField Next t Sele 1 dbSkip() EndDo João Santos São Paulo-Brasil (11) 3106-2832 a Noite karinhannah@ubbi.com.br 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.