have viden til at konvertere en celle array til en streng kan gøre din database ansøgning mere dynamisk. Microsoft Office Access er en relationel database management system der almindeligvis anvendes til at designe lokale databaser . Visual Basic for Applications ( VBA ) er den hurtigste måde at automatisere rutineopgaver i Access , såsom konvertering af en celle array til en streng. Et array i programmering er en variabel, der kan holde flere indekser . Hvert indeks kan have sin egen værdi . En String variabel bruges til at holde tegndata . Ting du skal
Microsoft Office Access
Northwind -database
Vis Flere Instruktioner
1

Åbn Northwind Microsoft Office Access -database. Databasen Northwind er inkluderet i Microsoft Office-pakken.
2

Klik på " Database Tools " og derefter vælge "Visual Basic " for at åbne Microsoft Visual Basic vindue. Klik på "Indsæt "-feltet og vælg " Modul ".
3

Skriv følgende for at oprette en ny subrutine : Hej

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

Skriv følgende for at oprette nye variabler : Hej

Dim strSQL As String

Dim db Som Database

Dim rst Som Recordset

Dim cellIntArray (3) As Integer

Dim X As Integer

Dim myString As String

Set db = CurrentDb

5

Skriv følgende for at oprette en ny tabel , og tilføj tre nye poster :

strSQL = " CREATE TABLE tblData ( Id_Num nummer) "

DoCmd.SetWarnings Falske < br >

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 følgende for at åbne en ny Recordset og søge alle data fra " tblData " : .

Set rst = db.OpenRecordset ( " Vælg tblData * fra tblData ; " )

rst.MoveLast

rst.MoveFirst
7

Skriv følgende at sløjfe gennem alle posterne og tilføje dem til heltal matrix : Hej

X = 0 Til rst.RecordCount - . 1

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

rst.MoveNext

Next X < br >
8

Skriv følgende for at konvertere Integer celle array til en String variabel : Hej

X = 0 til 2

myString = myString & cellIntArray (X) & "," nær

Næste X
9

Skriv følgende for at få vist indholdet af " myString " variable gennem en besked boks : Hej

MsgBox myString

Skriv følgende for at frigøre variabler fra hukommelsen : Hej

rst.Close

db.Close