Wie man eine Zelle Array in einen String umwandeln

March 26

Das wissen, um eine Zelle Array in einen String umwandeln kann Ihre Datenbankanwendung dynamischere darstellen. Microsoft Office Access ist ein relationales Datenbankmanagementsystem häufig verwendet, um lokale Datenbanken entwerfen. Visual Basic für Applikationen (VBA) ist der schnellste Weg um Routineaufgaben in Access zu automatisieren, z. B. eine Zelle Array in eine Zeichenfolge konvertieren. Ein Array in der Programmierung ist eine Variable, die mehrere Indizes enthalten kann. Jeder Index kann seinen eigenen Wert haben. Eine String-Variable wird verwendet, um die Zeichendaten zu halten.

Anweisungen

1 Öffnen Sie die Microsoft Office Access-Datenbank. Die Northwind-Datenbank ist in der Microsoft Office-Suite enthalten.

2 Klicken Sie auf "Datenbanktools", dann wählen Sie "Visual Basic", um das Microsoft Visual Basic-Fenster öffnen. Klicken Sie im Feld "Einfügen" und wählen Sie "Module".

3 Geben Sie Folgendes ein, um ein neues Unterprogramm zu erstellen:

Private Sub cellArrayToString()

Drücken Sie "Enter."

4 Geben Sie Folgendes ein, um neue Variablen erstellen:

Dim StrSQL As String

Dim Db als Datenbank

Dim Rst als Recordset

Dim cellIntArray(3) As Integer

Dim X As Integer

Dim MyString As String

Set Db = CurrentDb

5 Geben Sie Folgendes ein, um eine neue Tabelle erstellen und drei neue Datensätze hinzufügen:

StrSQL = "CREATE TABLE TblData (Nummer Id_Num);"

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 Folgendes ein, um ein neues Recordset und die Abfrage alle Daten aus "TblData" zu öffnen:

Festlegen von Rst = Db. OpenRecordset ("Select tblData.* von TblData;")

RST. MoveLast

RST. MoveFirst

7 Geben Sie Folgendes ein, um alle Datensätze durchlaufen und die Integer-Array hinzufügen:

Für X = 0 bis Rst. RecordCount - 1

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

RST. MoveNext

Nächsten X

8 Geben Sie Folgendes ein, um die Zelle Integer-Array in eine String-Variable zu konvertieren:

Für X = 0 bis 2

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

Nächsten X

9 Geben Sie Folgendes ein, um den Inhalt der Variablen "MyString" durch ein Meldungsfeld anzuzeigen:

MsgBox myString

Geben Sie Folgendes ein, um die Variablen aus dem Speicher freizugeben:

RST. Schließen

DB. Schließen