La sintaxis de la instrucción.
FilePut(Canal, Registro, Posición)
Donde
Canal será la misma variable utilizada en la apertura.
Registro es la variable definida del tipo de la estructura creada.
Posición es la dirección donde deseamos realizar la grabación.
La variable registro es la variable que contiene los datos que se van a grabar.
Un ejemplo de grabación podría ser:
Private Sub Grabacion()
Dim Posicion As Integer
' GRABACION
Posicion = CLng(Codigo)
Reg.Nom = Nombre
Reg.Dire = Direccion
Reg.Pobl = Poblacion
Reg.Prov = Provincia
Reg.Tele = Telefono
FilePut (Canal,Registro,Posicion)
MsgBox("Datos grabados", MsgBoxStyle.OKOnly, Me.Text)
End Sub
Los pasos seguidos son:
Posicion = CLng(Codigo)
Obtener el valor de la dirección que se va a utilizar en la grabación.
Reg.Nom = Nombre
Asignación de los datos a la variable registro del archivo.
FilePut (Canal,Registro,Posicion)
Realizar la grabación de los datos en el archivo.
El proceso de realizar un alta pasa por los siguientes pasos.
Podemos tomar como punto de partida la lectura realizada anteriormente, ya que al fin y al cabo la inserción de un registro ha de basarse en una comprobación previa de que el código no exista.
Esta lectura se haría cuando se introduce el campo código.
Una vez hecha la lectura de comprobación el resto es dejar que se vayan introduciendo los datos de cada campo del archivo y al acabar previa confirmación proceder a grabar los datos.
Veamos el control del campo código.
Select Case Campo00.Text <> ""
Case True
Posicion = CLng(Campo00.Text)
Select Case Posicion
Case 1 To 20
FileGet(CanalAgenda, Reg, Posicion) ' Lectura
Select Case Reg.Nom <> StrDup(15, " ")
Case True ' Ocupado
Visualiza() ' Visualiza datos, y seguimos
Case Else ' Código libre, dejamos que siga
End Select ' Campo siguiente
Case Else ' Código fuera de rango
Mensaje = "Código fuera de rango"
End Select
Case Else ' Valor inadecuado
Mensaje = "Valor del campo incorrecto"
End Select
Los pasos son igual que en la lectura, porque de hecho el primer paso es una lectura de control.
Select Case Reg.Nom <> StrDup(15, " ")
Case True ' Ocupado
Visualiza() ' Visualiza datos, y seguimos
Case Else ' Código libre, dejamos que siga
End Select ' Campo siguiente
Cuando comprobamos que el registro está libre u ocupado,
Si esta ocupado podemos elegir entre seguir después de visualizar su contenido, en cuyo caso el alta se convierte en realidad en una actualización, o en pedir un código nuevo.
Si está libre simplemente seguimos con la ejecución y ya está.
Una vez realizada la introducción de los datos, el siguiente paso es grabar el registro.
La grabación se haría como se ha visto antes, no hay ninguna diferencia.
Síguenos en: Facebook Sobre aulaClic Política de Cookies