Avere le conoscenze necessarie per convertire una matrice di celle in una stringa, applicazione di database può rendere più dinamico. Microsoft Office Access è un sistema di gestione di database relazionali comunemente utilizzato per la progettazione di database locali. Visual Basic for Applications (VBA) è il modo più veloce per automatizzare operazioni di routine in Access, secco come convertire una matrice di celle in una stringa. Una matrice nella programmazione è una variabile che può contenere più indici. Ogni indice può avere il proprio valore. Una variabile di stringa viene utilizzata per contenere dati di tipo carattere.

Istruzioni

1

Aprire il database Northwind Microsoft Office Access. Il database Northwind è incluso nella suite Microsoft Office.

2

Fare clic su "strumenti di Database", quindi selezionare "Visual Basic" per aprire la finestra di Visual Basic di Microsoft. Fare clic sul campo "Inserisci" e selezionare "Modulo".

3

Digitare il comando seguente per creare una nuova subroutine:

Private Sub cellArrayToString()

Premere "Enter".

4

Digitare il comando seguente per creare nuove variabili:

Dim strSQL As String

Dim db As Database

Dim rst As Recordset

Dim cellIntArray(3) As Integer

Dim X As Integer

Dim myString As String

Set db = CurrentDb

5

Digitare il comando seguente per creare una nuova tabella e aggiungere tre nuovi record:

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

DoCmd.SetWarnings False

DoCmd.RunSQL (strSQL)

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

DoCmd.RunSQL (strSQL)

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

DoCmd.RunSQL (strSQL)

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

DoCmd.RunSQL (strSQL)

6

Digitare il comando seguente per aprire un nuovo Recordset query tutti i dati da "tblData":

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

RST. MoveLast

RST. MoveFirst

7

Digitare quanto segue per scorrere in ciclo tutti i record e aggiungerli alla matrice di valori Integer:

Per X = 0 To rst. RecordCount - 1

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

RST. MoveNext

Avanti X

8

Digitare il comando seguente per convertire la matrice di cella Integer a una variabile di stringa:

Per X = 0-2

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

Avanti X

9

Digitare il comando seguente per visualizzare il contenuto della variabile "myString" attraverso una finestra di messaggio:

MsgBox myString

Digitare quanto segue per rilasciare variabili dalla memoria:

RST. Chiudere

DB. Chiudere