| Pregunta: | 5439 - COMO GUARDAR DATOS CONTENIDOS EN UN LABEL DE ACCESS. |
| Autor: | Aitor Pliego Rubio |
| Estoy haciendo un programa y necesito guardar en una base de datos el contenido de unos cuantos label y poder abrirlos posteriormente desde el programa.¿como podria hacerlo?
si es posible responded con un ejemplo.Gracias | |
| Respuesta: | rolivera |
| No comprendo bien tu pregunta,pero si almacenar los labels puedes tener variar forma:
1.- Mandarlo a la configuracion del Windows (Regedit) con SaveSetting y luego recuperarlo con Getsetting EJEMPLO creas el formulariIo en ACCESS Option Compare Database Option Explicit Private Sub Form_Load() Dim obj As Object For Each obj In Controls If TypeOf obj Is Label Then obj.Caption = DoGetLabel(obj.Name) End If Next End Sub Private Sub Form_Unload(Cancel As Integer) Dim obj As Object For Each obj In Controls If TypeOf obj Is Label Then DoSaveLabel obj.Name, obj.Caption End If Next End Sub y creas un modulo con las siguientes funciones: Option Compare Database Option Explicit Function DoSaveLabel(ByVal nLabel As String, ByVal str As String) SaveSetting CurrentDb.Name, nLabel, "DATO", str End Function Function DoGetLabel(ByVal nLabel As String) As String DoGetLabel = GetSetting(CurrentDb.Name, nLabel, "DATO", "") End Function 2.-Crear un archivo de recursos 3.- Grabarlo en una tabla que contenge ID NombreObj CaptionObj | |
| Respuesta: | rolivera |
| No comprendo bien tu pregunta,pero si almacenar los labels puedes tener variar forma:
1.- Mandarlo a la configuracion del Windows (Regedit) con SaveSetting y luego recuperarlo con Getsetting EJEMPLO creas el formulariIo en ACCESS Option Compare Database Option Explicit Private Sub Form_Load() Dim obj As Object For Each obj In Controls If TypeOf obj Is Label Then obj.Caption = DoGetLabel(obj.Name) End If Next End Sub Private Sub Form_Unload(Cancel As Integer) Dim obj As Object For Each obj In Controls If TypeOf obj Is Label Then DoSaveLabel obj.Name, obj.Caption End If Next End Sub y creas un modulo con las siguientes funciones: Option Compare Database Option Explicit Function DoSaveLabel(ByVal nLabel As String, ByVal str As String) SaveSetting CurrentDb.Name, nLabel, "DATO", str End Function Function DoGetLabel(ByVal nLabel As String) As String DoGetLabel = GetSetting(CurrentDb.Name, nLabel, "DATO", "") End Function 2.-Crear un archivo de recursos 3.- Grabarlo en una tabla que contenga ID NombreObj CaptionObj | |