Het hebben van de kennis om een cel -array te converteren naar een string kan uw database applicatie dynamischer te maken . Microsoft Office Access is een relationele database management systeem vaak gebruikt om lokale databases te ontwerpen . Visual Basic for Applications ( VBA ) is de snelste manier om routinetaken in Access , zoals het omzetten van een cel -array naar een string te automatiseren . Een array in programmering is een variabele die meerdere indexen kunnen houden . Elke index kan een eigen waarde hebben . A String variabele wordt gebruikt om karakter data op te slaan . Wat je nodig hebt
Microsoft Office Access
database Noordenwind
Toon Meer Aanwijzingen
1 Open de Noordenwind Microsoft Office Access-database . De database Noordenwind is opgenomen in de Microsoft Office-suite .
Klik 2 " Database Extra " en selecteer vervolgens " Visual Basic " om de Microsoft Visual Basic venster te openen . Klik op het veld " Insert " en selecteer " Module . "
Type 3 van de volgende opties om een nieuwe subroutine maken: Private Sub cellArrayToString
( ) op Druk op ' Enter '.
Type 4 de volgende nieuwe variabelen maken : Dim strSQL
als Koord Dim db
Als Database
Dim rst als Recordset
Dim cellIntArray ( 3 ) As Integer Dim X As Integer Dim myString
als Koord
Set db = CurrentDb
Goedkope 5 Typ het volgende om een nieuwe tabel te maken en toe te voegen drie nieuwe dossiers: strSQL
= " CREATE tABLE tblData ( Id_Num Number ) ; " DoCmd.SetWarnings
False < 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 ) op Twitter Type 6 de volgende opties om een nieuwe record set openen en alle gegevens uit " tblData " opvragen: .
Set rst = db.OpenRecordset ( " Selecteer tblData * van tblData ; " ) rst.MoveLast
rst.MoveFirst
Type
7 het volgende aan lus door alle records en voeg ze toe aan de Integer -array :
Voor X = 0 To rst.RecordCount - . 1 cellIntArray
( X ) = rst.Fields ( 0 ) Value rst.MoveNext
Volgende X < br >
Type 8 het volgende aan de Integer celmatrixeenheid converteren naar een String variabele :
voor X = 0 To 2
myString = myString & cellIntArray ( X ) & " , "
volgende X
type 9 de volgende om de inhoud van de variabele " myString " weer te geven door middel van een bericht : MsgBox myString
Typ het volgende om variabelen los te maken van het geheugen : rst.Close
db.Close
|
