Nachdem das Wissen um eine Zelle Array in einen String konvertieren können Sie Ihre Datenbank-Anwendung dynamischer. Microsoft Office Access ist ein relationales Datenbank -Management-System häufig verwendet, um lokale Datenbanken zu entwerfen. Visual Basic für Applikationen ( VBA) ist der schnellste Weg, um Routineaufgaben in Access , wie die Konvertierung einer Zelle Array in einen String zu automatisieren. Ein Array in der Programmierung ist eine Variable, die mehrere Indizes halten kann . Jeder Index kann seinen eigenen Wert . Ein String-Variable wird verwendet, um Daten zu halten Charakter . Things You
Microsoft Office Access
Nordwind
brauchen anzeigen Weitere Anweisungen
1

Öffnen Sie die Nordwind Microsoft Office Access-Datenbank. Die Nordwind-Datenbank wird der Microsoft Office-Suite enthalten.
2

Klicken Sie auf " Database Tools ", dann wählen Sie " Visual Basic ", um den Microsoft Visual Basic -Fenster zu öffnen. Klicken Sie auf " Insert "-Feld und wählen Sie " Module".
3

Geben Sie den folgenden , um eine neue Subroutine erstellen :

Private Sub cellArrayToString ()
< p > Drücken Sie "Enter".
4

Geben Sie die folgende neue Variablen erstellen :

Dim strSQL As String Dim db

As Database

Dim rst als Recordset

Dim cellIntArray (3 ) As Integer Dim

X As Integer Dim

myString As String

db = CurrentDb
Set
5

Geben Sie den folgenden , um eine neue Tabelle zu erstellen , und fügen Sie drei neue Rekorde :

strSQL = " CREATE TABLE tblData ( id_num 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

Geben Sie den folgenden ein neues Recordset öffnen und abfragen alle Daten von " tblData ": .

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

rst.MoveLast

rst.MoveFirst
7

Geben Sie den folgenden in einer Schleife durch alle Datensätze und fügen Sie sie der Integer -Array :

Für X = 0 To rst.RecordCount - . 1 of

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

rst.MoveNext

Weiter X
8

Geben Sie den folgenden , um die Integer -Array zu einem String-Variable zu konvertieren:

Für x = 0 bis 2

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

Weiter X
9

Geben Sie den folgenden , um den Inhalt des " myString " variable durch eine Message-Box angezeigt :

MsgBox myString

Geben Sie den folgenden Variablen aus dem Speicher freizugeben :

rst.Close

db.Close