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

Tener los conocimientos necesarios para convertir un conjunto de células a 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 el diseño de bases de datos locales . Visual Basic para Aplicaciones ( VBA) es la forma más rápida para automatizar las tareas de rutina en el acceso , tales como la conversión de una serie de células en una cadena. Una matriz de programación es una variable que puede contener varios índices . Cada índice puede tener su propio valor. Una variable String se utiliza para almacenar los datos de caracteres. Cosas que necesitará
Microsoft Office Access
Northwind base de datos
Mostrar más instrucciones
1

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

2 Haga clic en " Herramientas de base de datos ", seleccione "Visual Basic " para abrir la ventana de Microsoft Visual Basic . Haga clic en el campo " Insertar" y seleccione " Módulo ".
3

Escriba lo siguiente para crear un nuevo subprograma:

cellArrayToString Sub Private ()
< p > Pulse la tecla " Enter".
4

Escriba lo siguiente para crear nuevas variables:

strSQL As String Dim

db As Database

rst As Recordset

Dim cellIntArray ( 3 ) As Integer

X As Integer

miCadena dévil como secuencia

Set db = CurrentDb
Página 5

Escriba el siguiente para crear una nueva tabla y sumar tres nuevos récords :

strSQL = " CREATE TABLE tblData ( id_num Number) ; "

DoCmd.SetWarnings false

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 ": .

Set rst = db.OpenRecordset ( " Seleccionar 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 Para rst.RecordCount - . 1

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

rst.MoveNext

Siguiente X
8

Escriba lo siguiente para convertir la matriz celular Integer a una variable String :

para X = 0 a 2

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

Siguiente X
9

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

MsgBox miCadena

Escriba lo siguiente para liberar las variables de la memoria :

rst.Close

db.Close