ARQUIVOS DAT
Ola pessoal como eu posso manipular arquivos com extenção do tipo dat (Registro), Tipo Inserir,atualizar,Consultar e excluir.Quem poder me ajudar, desde ja agradeço
Eu usava isto na epoca do DOS
type Cadastro
Nome as string * 10
Idade as long
Sexo as string *1
end type
Dim TCad as cadastro
Abre
open "C: este.dat" for random as #1 len= len(Tcad)
Ler
get #1,Posição do registro,TCad
Msgbox TCad.Nome
Salvar
Tcad.Nome = "Teste"
Put #1,Posição do registro,Tcad
Saber a quantidade de registro
Quantidade = lof(#1)/len(Tcad)
Fechar
Close #1
type Cadastro
Nome as string * 10
Idade as long
Sexo as string *1
end type
Dim TCad as cadastro
Abre
open "C: este.dat" for random as #1 len= len(Tcad)
Ler
get #1,Posição do registro,TCad
Msgbox TCad.Nome
Salvar
Tcad.Nome = "Teste"
Put #1,Posição do registro,Tcad
Saber a quantidade de registro
Quantidade = lof(#1)/len(Tcad)
Fechar
Close #1
Tópico encerrado , respostas não são mais permitidas