Wie man eine Zelle Array in einen String umwandeln
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