Å ha kunnskap til å konvertere en celle array til en streng kan gjøre databaseprogrammet mer dynamisk . Microsoft Office Access er en relasjonsdatabase styringssystem vanligvis brukes til å utforme lokale databaser . Visual Basic for Applications ( VBA ) er den raskeste måten å automatisere rutineoppgaver i Access , for eksempel å konvertere en celle array til en streng. En rekke i programmering er en variabel som kan holde flere indekser. Hver indeks kan ha sin egen verdi. En String variabel brukes til å holde tegndataene . Du trenger
Microsoft Office Access
Northwind database
Vis flere instruksjoner
en

Åpne Northwind Microsoft Office Access database. The Northwind database er inkludert i Microsoft Office-pakken.
2

Klikk på " Database Verktøy ", velg deretter " Visual Basic " for å åpne Microsoft Visual Basic Window . Klikk på " Insert "-feltet og velg " Module ".
3

Skriv inn følgende for å opprette en ny subrutine : en

Private Sub cellArrayToString ( )
< p > Trykk på "Enter".
4

Skriv inn følgende for å lage nye variabler : en

Dim strSQL As String

Dim db As Database

Dim rst Som Recordset

Dim cellIntArray ( 3 ) As Integer

Dim X As Integer

Dim myString As String

Sett db = CurrentDb

5

Skriv inn følgende for å opprette en ny tabell og legge til tre nye rekorder:

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

DoCmd.SetWarnings falske

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

Skriv inn følgende for å åpne en ny Recordset og spørre alle data fra " tblData " : .

Sett rst = db.OpenRecordset ( " Velg tblData * fra tblData ; ")

rst.MoveLast

rst.MoveFirst
7

Skriv inn følgende å sløyfe gjennom alle postene og legge dem til heltall matrise:

For X = 0 For å rst.RecordCount - . en

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

rst.MoveNext

Neste X
Side 8

Skriv inn følgende for å konvertere heltall celle array til en streng variabel : en

for X = 0 til 2

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

Neste X
9

Skriv inn følgende for å vise innholdet i " myString " variable gjennom en meldingsboks : en

MsgBox myString

Skriv inn følgende for å frigjøre variabler fra minnet : en

rst.Close

db.Close