Editar y Eliminar Registros
Publicado por Allen (1 intervención) el 20/11/2014 06:01:27
Buenas, me preguntaba si me podrían ayudar, verán necesito editar y eliminar registros de un archivo .dat (consultar y agregar ya lo tengo), he intentado varios métodos pero siempre me tiran error, dejo el codigo para que vean como lo estoy haciendo (espero y me ayuden en los botones de BElimina y BEdita). Gracias.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
Imports System.IOPublic Class Form5
Dim tem As dPersonal, narchivo%
Dim ruta As String = "C:\Rockola\Canciones.dat"
Public Structure dPersonal
<VBFixedString(4)> Dim Clave As String
<VBFixedString(100)> Dim Cancion As String
<VBFixedString(60)> Dim Interprete As String
<VBFixedString(60)> Dim Album As String
Dim Año As Integer
<VBFixedString(30)> Dim Genero As String
<VBFixedString(200)> Dim Ruta As String
End Structure
Private Sub Form5_Load(sender As Object, e As EventArgs) Handles MyBase.Load
narchivo = FreeFile()
ComboBox1.Items.Clear()
FileOpen(narchivo, ruta, OpenMode.Random, OpenAccess.Read, , Len(tem))
Do While Not EOF(narchivo)
FileGet(narchivo, tem)
ComboBox1.Items.Add(tem.Clave)
Loop
FileClose(narchivo)
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
Panel1.Visible = True
BElimina.Visible = True
narchivo = FreeFile()
FileOpen(narchivo, ruta, OpenMode.Random, OpenAccess.Read, , Len(tem))
Do While Not EOF(narchivo)
FileGet(narchivo, tem)
If ComboBox1.Text = tem.Clave Then
TClave.Text = tem.Clave
TCancion.Text = tem.Cancion
TArt.Text = tem.Interprete
TAl.Text = tem.Album
TAño.Text = tem.Año
TGen.Text = tem.Genero
TR.Text = tem.Ruta
End If
Loop
FileClose(narchivo)
End Sub
Private Sub BElimina_Click(sender As Object, e As EventArgs) Handles BElimina.Click
MsgBox("Realmente Desea Borrar el Registro?", vbYesNoCancel, "OPCIÓN")
If vbYes Then
MsgBox("Registro Eliminado", vbOKOnly)
Else
MsgBox("Registro NO Eliminado", vbOKOnly)
End If
End Sub
Private Sub BEdita_Click(sender As Object, e As EventArgs) Handles BEdita.Click
End Sub
Valora esta pregunta
0