COMANDO INCLUIR E CONSULTA

USUARIO.EXCLUIDOS 11/06/2004 15:41:10
#29234 Resposta escolhida

Tente, apenas é basico, se tiver dúvida avise

(General)
Type Estrutura
Campo1 as string * 100
Campo2 as string * 100
Campo3 as string * 100
Campo4 as string * 100
end type
Dim dado as estrutura
Sub AbrirArquivo()
open "C:    este.dat" fo random as #1 len = len(Dado)
end sub

Sub ExibirDado(Indice as long)
get #1,Indice,Dado
Msgbox Dado.Campo1 & vbcrlf & Dado.Campo2 & vbcrlf & Dado.Campo3 & vbcrlf & Dado.Campo4
end sub

Sub AdicionarDado(Dado1,Dado2,Dado3,Dado4)
dado.campo1 = dado1
dado.campo2 = dado2
dado.campo3 = dado3
dado.campo4 = dado4
put #1,,dado
end sub