Avere la conoscenza di 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 usato per la progettazione di database locali . Visual Basic, Applications Edition (VBA ) è il modo più veloce per automatizzare le attività di routine in Access, come la conversione di un array di celle in una stringa . Un array di programmazione è una variabile che può contenere più indici . Ogni indice può avere il suo valore . Una variabile String è utilizzato per contenere dati di tipo carattere . Cose che ti serviranno
Microsoft Office Access
Northwind database di
Show More Istruzioni
1

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

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

Digitare quanto segue per creare un nuovo sottoprogramma :

cellArrayToString Private Sub ( ) per < p > Premere il tasto " Enter ".
4

Digitare quanto segue per creare nuove variabili :

Dim strSQL As String

Dim db As Database

dim rst come Recordset

dim cellIntArray ( 3) As Integer

dim X As Integer

dim Stringa As String

Set db = CurrentDb

5

digitare quanto segue per creare una nuova tabella e aggiungere tre nuovi record :

strSQL = " CREATE tABLE tblData ( Id_Num Number ) ;"

DoCmd.SetWarnings false

DoCmd.RunSQL ( strSQL ) per

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

DoCmd.RunSQL ( strSQL ) per

strSQL = " INSERT INTO tblData ( 1 ) ; "

DoCmd.RunSQL ( strSQL ) per

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

DoCmd.RunSQL ( strSQL ) economici 6

Digitare quanto segue per aprire un nuovo Recordset e interrogare tutti i dati dalla " tblData " : .

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

rst.MoveLast

rst.MoveFirst
7

digitare quanto segue per scorrere tutti i record e aggiungerle alla matrice Integer :

per x = 0 Per rst.RecordCount - . 1

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

rst.MoveNext

Avanti X
Pagina 8

digitare quanto segue per convertire la matrice di celle intero in una stringa variabile :

For X = 0 To 2

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

Avanti X
9

digitare quanto segue per visualizzare il contenuto della variabile " myString " attraverso una finestra di messaggio :
MsgBox

myString

Digitare quanto segue per rilasciare le variabili dalla memoria :

rst.Close

db.Close