Listado 6.1
El procedimiento creado por Visual Studio
para cargar el conjunto de datos.
Public Sub LoadDataSet()
'Creamos un conjunto de
datos para alojar los registros devueltos por la llamada a Fill.
'Utilizamos un conjunto de
datos temporal porque llenar el conjunto de datos
'existente requeriría que se
volvieran a enlazar los enlaces de datos.
Dim objConjunto de datosTemp As WindowsApplication2.Conjunto de datos1
objConjunto de datosTemp = New
WindowsApplication2.Conjunto de datos1()
Try
'Intentamos rellenar el conjunto de
datos temporal.
objConjunto de datosTemp =
Me.objConjunto de datos1.Clone
Catch eFillConjunto de
datos As System.Exception
'Agregamos aquí el código de control de errores.
Throw eFillConjunto de datos
End Try
Try
'Vaciamos los registros obsoletos
del conjunto de datos.
objConjunto
de datos1.Clear()
'Combinamos los registros con el
conjunto de datos principal.
objConjunto de
datos1.Merge(objConjunto de datosTemp)
Catch eLoadMerge As
System.Exception
'Agregamos aquí el código de control de errores.
Throw eLoadMerge
End Try
End Sub