URGENTE! BASE DE DADOS EM TXT

MANUEL.MOURA 06/12/2006 14:37:15
#188348
Encontrei este exp. de BASE DE DADOS EM TXT no site, a unica que falta é apagar um registo, alguem sabe dizer como?

EX:------------------------------------------------------------------
Para gravar registros de tipos de dados diferentes num arquivo texto primeiro vc cria um registro com Type depois usa Open Random para ler e gravar. Ex.:

Crie um form com um FlexGrid, 2 commandbuttons e 1 textbox. Use o Textbox para entrar os dados separados por vírgulas (Nome, Tel, Email, Nascimento)

Private Type MeuRegistro
Nome As String * 50
Tel As String * 15
Email As String * 70
Nascimento As Date
End Type

Dim Regs As MeuRegistro
Dim F As Integer


Private Sub Command1_Click()

    ' Lê Arquivo
    Dim BUF As MeuRegistro
    
    MSFlexGrid1.Rows = 1
    
    For i = 1 To LOF(F) / Len(Regs)
        Get F, i, BUF
        MSFlexGrid1.AddItem BUF.Nome & vbTab & BUF.Tel & vbTab & BUF.Email & vbTab & BUF.Nascimento
    Next
    
End Sub


Private Sub Command2_Click()

    ' Grava um registro
    Dim BUF As Variant
    
    BUF = Split(Text1, ",")
    ReDim Preserve BUF(3)
    
    With Regs
        .Nome = BUF(0)
        .Tel = BUF(1)
        .Email = BUF(2)
        .Nascimento = BUF(3)
    End With
    Put F, , Regs
    
    ' Mostra os arquivos atualizados
    Command1_Click
    Text1 = ""

End Sub


Private Sub Form_Load()

    ' Inicializa
    F = FreeFile
    Open "c:\cliente.cli" For Random As F Len = Len(Regs)

    With MSFlexGrid1
        .Cols = 4
        .FixedCols = 0
        .AllowUserResizing = flexResizeColumns
        .TextMatrix(0, 0) = "Nome"
        .TextMatrix(0, 1) = "Telefone"
        .TextMatrix(0, 2) = "Email"
        .TextMatrix(0, 3) = " Nascimento"
    End With
    Command1.Caption = "Lêr Arquivos"
     Command2.Caption = "Gravar Registro"
        
End Sub


Private Sub Form_Unload(Cancel As Integer)

    Close F
    
End Sub


Desta forma é possível criar um banco de dados simples. Vc pode acessar qualquer registro do arquivo pelo número do registro, ex: Get F, 3, BUF retorna o 3º registro, se ele existir, e assim vai...stro, ex: Get F, 3, BUF retorna o 3º registro, se ele existir, e assim vai...
end:--------------------------------------------------
http://www.vbmania.com.br/vbmania/vbmdetail.php?varID=462&TxtSearch=text&CmbSort=ftitulo&varPagina=1
MANUEL.MOURA 06/12/2006 16:19:59
#188379
Ninguem passa bola ou é dificil ????????????????????
MANUEL.MOURA 06/12/2006 17:00:13
#188396
Da mesma forma q faço Get para ler e Put para escrever, como faço para apagar o registo ?
MANUEL.MOURA 06/12/2006 17:05:04
#188399
tou a ficar azul, del ? , delete? , clear ? ??????????????
HARRY.POTTER 06/12/2006 17:35:12
#188407 Resposta escolhida
Não entendi o que você quer. Me add aí: pauloharrypotter@hotmail.com Quem sabe se você me explicar melhor? ^^
MANUEL.MOURA 07/12/2006 00:18:30
#188452
descubri um exemplo que faz direitinho tudo o que queria

http://www.vbmania.com.br/vbmania/vbmdetail.php?varID=3434

Mas muito obrigado a todos!
Tópico encerrado , respostas não são mais permitidas
Voltar