Hvordan konvertere en celle array til en streng

Å ha kunnskap til å konvertere en celle array til en streng kan gjøre databaseapplikasjon mer dynamisk. Microsoft Office Access er en relasjonsdatabase styringssystem som 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. A String variabel brukes til å holde tegndata.

Bruksanvisning

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

2 Klikk "Databaseverktøy", velg deretter "Visual Basic" for å åpne Microsoft Visual Basic Window. Klikk på "Sett inn" feltet og velg "Module".

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

Private Sub cellArrayToString ()

Trykk enter."

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

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

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 VERDIER (0);"

DoCmd.RunSQL (strSQL)

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

DoCmd.RunSQL (strSQL)

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

DoCmd.RunSQL (strSQL)

6 Skriv inn følgende for å åpne en ny Recordset og spørre alle dataene 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 i Integer matrise:

For X = 0 For å rst.RecordCount - 1

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

rst.MoveNext

Neste X

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

For X = 0 til 2

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

Neste X

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

MsgBox myString

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

rst.Close

db.Close