Konvertera en cell array till en sträng

ha kunskap för att omvandla en cell array till en sträng kan göra din databas ansökan mer dynamisk . Microsoft Office Access är en relationsdatabas management system som vanligen används för att utforma lokala databaser . Visual Basic for Applications ( VBA ) är det snabbaste sättet att automatisera rutinuppgifter i Access , t.ex. omvandling av en cell array till en sträng . En array i programmering är en variabel som kan hålla flera index . Varje index kan ha sitt eget värde . En sträng variabel används för att hålla teckendata . Saker du behöver
Microsoft Office Access
Northwind databas
Visa fler instruktioner
1

Öppna Northwind Microsoft Office Access-databas . Northwind-databasen ingår i Microsoft Office-paketet .
2

Klicka på " Databas Verktyg " och välj sedan " Visual Basic " för att öppna Microsoft Visual Basic Window . Klicka på " Infoga "-fältet och välj " Modul . " Addera 3

Skriv följande för att skapa en ny subrutin :

Private Sub cellArrayToString ( ) katalog

Tryck på " Enter ".
4

Skriv följande för att skapa nya variabler :

Dim strSQL As String

Dim db som databas

Dim rst Som Recordset

Dim cellIntArray ( 3 ) As Integer

Dim x As Integer

Dim MyString As String

Set db = CurrentDb

5

Skriv följande för att skapa en ny tabell och lägg till tre nya rekord :

strSQL = " CREATE TABLE tblData ( Id_Num Number ) , "

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL ) katalog

strSQL = " INSERT INTO tblData VALUES ( 0 ) ; "

DoCmd.RunSQL ( strSQL ) katalog

strSQL = " INSERT INTO tblData VALUES ( 1 ), "

DoCmd.RunSQL ( strSQL ) katalog

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

DoCmd.RunSQL ( strSQL )
6

Skriv följande för att öppna ett nytt Recordset och fråga alla de uppgifter från " tblData " : .

Set rst = db.OpenRecordset ( " Välj tblData * från tblData ; " ) katalog

rst.MoveLast

rst.MoveFirst
7

Skriv följande för att loopa igenom alla poster och lägga till dem i heltalsmatris :

För X = 0 att rst.RecordCount - . 1

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

rst.MoveNext

Next X

8

Skriv följande för att konvertera Integer cell array till en sträng variabel :

för X = 0 till 2 Review

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

Nästa X
9

Skriv följande för att visa innehållet i den " MyString " variabel genom en meddelanderuta :

MsgBox MyString

Skriv följande för att frigöra variabler från minnet :

rst.Close

db.Close