Página 1 de 1

Ajuda em montar prg

Enviado: 26 Mai 2006 09:43
por kristo
Bom dia a todos
Eu uso clipper mais não tenho grandes conhecimentos, estou precisando montar uma PRG com a seguinte função:
Tenho 5 dbf com os nomes:
SP.dbf
MG.dbf
RJ.dbf
BH.dbf
SC.dbf
eu preciso montar o seguinte, preciso de uma prg que pegue os dados desses arquivos e monte um novo dbf, ou seja que entre em SP.DBF pegue a quatidade de 100 nomes dentro dele e jogue para uma nova dbf, com a mesma estrutura da DBF pesquisada, nome da nova DBF pode ser SP2.dbf, e assim por diante, se der para colocar todos os estados nessa prg para ele fazer a busca automática, melhor ainda.
Os campos contido nas DBF são os seguintes
nome,endereco,cidade,estado,telefone

Pode parecer abuso par alguns e fácil para outros, mais estou precisando disso e não sei como fazer, se alguém puder me ajudar fico grato.

Fiquem em paz.

Enviado: 26 Mai 2006 10:10
por MARCELOG
Olá Santo (Kristo),
há diversas maneiras de fazer o que você quer.
Um exemplo.

Crie a tabela SP2.DBF com os campos.

Depois

USE SP2.DBF
USE SP.DBF

For i= 1 To 100
SP2->(DBAPPEND()) //Sua rotina para inserir registro
SP2->Campo1 = SP->Campo1
SP2->Campo2 = SP->Campo2
SP2->Campo3 = SP->Campo3
SP2->Campo4 = SP->Campo4
SP->(DBSKIP())
Next i

Espero ter ajudado.

MarceloG

Enviado: 26 Mai 2006 17:14
por kristo
MARCELOG escreveu:Olá Santo (Kristo),
há diversas maneiras de fazer o que você quer.
Um exemplo.

Crie a tabela SP2.DBF com os campos.

Depois

USE SP2.DBF
USE SP.DBF

For i= 1 To 100
SP2->(DBAPPEND()) //Sua rotina para inserir registro
SP2->Campo1 = SP->Campo1
SP2->Campo2 = SP->Campo2
SP2->Campo3 = SP->Campo3
SP2->Campo4 = SP->Campo4
SP->(DBSKIP())
Next i

Espero ter ajudado.

MarceloG
Marcelão valeu, acabou de salvar uma alma do purgatório, agora so mais uma coisinha, não me ache abusado ok

Não tenho rotinha para inserir os registros, pode quebrar essa tb?
Fique com Deus