Cómo convertir un conjunto de células en una cadena

Tener el conocimiento para convertir una serie de células en una cadena puede hacer que su aplicación de base de datos más dinámico. Microsoft Office Access es un sistema de gestión de base de datos relacional utilizada para diseñar las bases de datos locales. Visual Basic para Aplicaciones (VBA) es la forma más rápida para automatizar tareas rutinarias de acceso, tales como la conversión de una serie de células en una cadena. Una matriz en la programación es una variable que puede contener varios índices. Cada índice puede tener su propio valor. Una variable de cadena se utiliza para contener datos de carácter.

Instrucciones

1 Abra la base de datos Neptuno Microsoft Office Access. La base de datos Northwind se incluye en el paquete de Microsoft Office.

2 Haga clic en "Herramientas de base de datos", a continuación, seleccione "Visual Basic" para abrir la ventana de Visual Básico Microsoft. Haga clic en el "insertar" y seleccione "Módulo".

3 Escribe lo siguiente para crear un nuevo subprograma:

Private Sub cellArrayToString ()

Presione ENTRAR."

4 Escribe lo siguiente para crear nuevas variables:

Dim como secuencia strSQL

Dim db Como Base de Datos

Dim primera medida de registros

Dim cellIntArray (3) As Integer

Dim X As Integer

Dim MiCadena As String

Set db = CurrentDb

5 Escribe lo siguiente para crear una nueva tabla y añadir tres nuevos registros:

strSQL = "CREATE TABLE tblData (Número id_num);"

DoCmd.SetWarnings falsos

DoCmd.RunSQL (strSQL)

strSQL = "INSERT INTO VALORES tblData (0);"

DoCmd.RunSQL (strSQL)

strSQL = "INSERT INTO VALORES tblData (1);"

DoCmd.RunSQL (strSQL)

strSQL = "INSERT INTO VALORES tblData (2);"

DoCmd.RunSQL (strSQL)

6 Escriba lo siguiente para abrir un nuevo conjunto de registros y consultar todos los datos de "tblData":

Establecer primera db.OpenRecordset = ( "Seleccionar tblData * desde tblData;").

rst.MoveLast

rst.MoveFirst

7 Escriba lo siguiente para recorrer todos los registros y agregarlos a la matriz de enteros:

Para X = 0 Para rst.RecordCount - 1

cellIntArray(X) = rst.Fields(0).Value

rst.MoveNext

Siguiente X

8 Escriba lo siguiente para convertir la matriz celular de entero a una variable de cadena:

Para X = 0 a 2

miCadena = miCadena y cellIntArray (X) y ","

Siguiente X

9 Escribe lo siguiente para visualizar el contenido de la "miCadena" variable a través de un cuadro de mensaje:

MsgBox miCadena

Escribe lo siguiente para liberar las variables de la memoria:

rst.Close

db.Close