Unidad 42. Archivos Random en VB (II)





42.6. Grabación de un registro.

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.

42.7. Inserción, Alta.

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.

Octubre-2010
Pág. 42.2

Atrás  Inicio  Adelante






Página inicial  Cursos Informática Gratuitos

Síguenos en:   Facebook       Sobre aulaClic            Política de Cookies