ubiquitour.com

Cómo convertir una matriz de celdas en una cadena

Cómo convertir una matriz de celdas en una cadena

Tener el conocimiento para convertir una matriz de celdas en una cadena puede dinamizar la aplicación de base de datos. Microsoft Office Access es un sistema de gestión de base de datos relacional de uso general para el diseño de bases de datos locales. Visual Basic para aplicaciones (VBA) es la forma más rápida para automatizar las tareas rutinarias en el acceso, tales como la conversión de una matriz de celdas en una cadena. Un arreglo en 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 caracteres.

Instrucciones

1 Abra la base de datos Northwind Microsoft Office Access. La base de datos Northwind se incluye en la suite Microsoft Office.

2 Haga clic en "herramientas", luego seleccione "Visual Basic" para abrir la ventana de Visual Basic de Microsoft. Haga clic en el campo "Insertar" y seleccione "Módulo".

3 Escriba lo siguiente para crear una subrutina nueva:

Private Sub cellArrayToString()

Presione "Enter".

4 Escriba lo siguiente para crear nuevas variables:

Dim strSQL As String

Dim db como la base de datos

Dim rst como conjunto de registros de

Dim cellIntArray(3) As Integer

X DIM como entero

Dim miCadena As String

Set db = CurrentDb

5 Escriba lo siguiente para crear una nueva tabla y agregar tres registros:

strSQL = "CREATE TABLE tblData Id_Num número;"

DoCmd.SetWarnings False

DoCmd.RunSQL (strSQL)

strSQL = "Inserte en tblData VALUES(0);"

DoCmd.RunSQL (strSQL)

strSQL = "Inserte en tblData VALUES(1);"

DoCmd.RunSQL (strSQL)

strSQL = "Inserte en tblData VALUES(2);"

DoCmd.RunSQL (strSQL)

6 Escriba lo siguiente para abrir un nuevo Recordset y consulta todos los datos de "tblData":

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

RST. MoveLast

RST. MoveFirst

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

Para X = 0 To rst. RecordCount - 1

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

RST. MoveNext

Siguiente X

8 Escriba lo siguiente para convertir la matriz de célula de entero a una variable String:

Para X = 0 a 2

myString = myString & cellIntArray(X) & ","

Siguiente X

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

MsgBox miCadena

Escriba lo siguiente para liberar variables de memoria:

RST. Cerrar

dB. Cerrar