Conocer cómo analizar y acceder a datos analizados se puede ahorrar tiempo en el desarrollo de una aplicación de base de datos. A menudo, los administradores de bases de datos tienen que analizar los datos en un campo de base de datos y agregarla a otras tablas o utilizarlo de otra manera. Usted puede realizar esta tarea mediante el uso de Microsoft Office Access . El acceso es un sistema de gestión de base de datos relacional incluido en la suite de Microsoft Office. En Access puede utilizar Visual Basic para Aplicaciones ( VBA ) para analizar y acceder a datos analizados . Cosas que necesitará
Microsoft Office Access
Mostrar más instrucciones
1

Inicio Microsoft Office Access y seleccione "Base de datos en blanco " y luego haga clic en " Crear". Haga clic en " Herramientas de base de datos " y luego seleccionar "Visual Basic "

Escriba lo siguiente para crear un nuevo procedimiento : . " . Escriba"

Private Sub parseFieldData ()

Pulse
2

Escriba el siguiente para declarar las variables que va a utilizar al analizar los datos :

sSQL Dim As String

db As Database

rst As Recordset

Dim cellIntArray ( 4 ) As String

x As Integer

y Dim As Integer

fldStr As
secuencia

Dim pos As Integer

Set db = CurrentDb
3

Escriba lo siguiente para crear una nueva tabla que contiene los datos que analizará :
< p> sSQL = " CREATE TABLE tblParseData ( fieldData TEXT ( 100 )); "

DoCmd.SetWarnings False

DoCmd.RunSQL ( sSQL )

sSQL = "INSERT INTO VALORES tblParseData ( ' será analizado esta frase .') ; "

DoCmd.RunSQL ( sSQL )
4

escriba lo siguiente para consultar los datos agregados a la tabla de la paso anterior:

Set rst = db.OpenRecordset ( "Select tblParseData * de tblParseData ; ").

rst.MoveFirst

fldStr = rst.Fields ( 0 ) . Valor
5

Escriba el siguiente para agregar los datos analizados de una matriz String :

x = 0

pos = InStr ( 1 , fldStr , "")

¿ Mientras fldStr < > ""

cellIntArray (x ) = Izquierda ( fldStr , pos)

fldStr = Right ( fldStr , Len ( fldStr ) - pos )

pos = InStr ( 1 , fldStr , "")

x = x + 1

Si pos = 0 Entonces

cellIntArray (x ) = fldStr

fldStr = "" End If

Loop
6

Escriba lo siguiente para acceder a los datos analizados de la matriz :

para y = 0 para x

Debug.Print cellIntArray ( y)

Siguiente y
7

Escriba el siguiente para cerrar el conjunto de registros y base de datos :

rst.Close

db.Close