Avere la conoscenza per convertire un array di celle in una stringa può rendere l'applicazione di database più dinamico. Microsoft Office Access è un sistema di gestione di database relazionali comunemente utilizzato per la progettazione di database locali. Visual Basic, Applications Edition (VBA) è il modo più veloce per automatizzare le attività di routine in Access, come ad esempio la conversione di un array di celle in una stringa. Un array in programmazione è una variabile che può contenere più indici. Ogni indice può avere il proprio valore. Una variabile String è utilizzato per contenere i dati di carattere.

istruzione

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

2 Fai clic su "Strumenti di database", quindi selezionare "Visual Basic" per aprire la finestra di Microsoft Visual Basic. Fare clic su "inserire" e selezionare "Modulo".

3 Digitare la seguente per creare una nuova subroutine:

Private Sub cellArrayToString ()

Premere Invio."

4 Digitare la seguente per creare nuove variabili:

Dim strSQL As String

db fioco come base di dati

Dim rst come Recordset

Dim cellIntArray (3) As Integer

Dim X As Integer

myString Dim As String

Set db = CurrentDb

5 Digitare la seguente per creare una nuova tabella e aggiungere tre nuovi record:

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

DoCmd.SetWarnings False

DoCmd.RunSQL (strSQL)

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

DoCmd.RunSQL (strSQL)

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

DoCmd.RunSQL (strSQL)

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

DoCmd.RunSQL (strSQL)

6 Digitare quanto segue per aprire un nuovo recordset e interrogare tutti i dati da "tblData":

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

rst.MoveLast

rst.MoveFirst

7 Digitare quanto segue per scorrere tutti i record e aggiungerli alla matrice Integer:

Per X = 0 Per rst.RecordCount - 1

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

rst.MoveNext

Successivo X

8 Digitare quanto segue per convertire la matrice cellulare intero a una variabile stringa:

Per X = 0 a 2

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

Successivo X

9 Digitare la seguente per visualizzare i contenuti del "myString" variabile attraverso una finestra di messaggio:

MsgBox myString

Digitare la seguente per rilasciare le variabili dalla memoria:

rst.Close

db.Close