|
Avoir les connaissances nécessaires pour convertir une matrice de cellules d' une chaîne peut rendre votre application de base de données plus dynamique. Microsoft Office Access est un système de gestion de la base de données relationnelle couramment utilisé pour concevoir des bases de données locales . Visual Basic pour Applications ( VBA) est le moyen le plus rapide pour automatiser des tâches courantes d'accès, telles que la conversion d' une matrice de cellules à une chaîne. Un tableau de programmation est une variable qui peut contenir plusieurs index . Chaque indice peut avoir sa propre valeur . Une variable String est utilisé pour stocker les données de caractères. Choses que vous devez
Microsoft Office Access
Northwind base de données
Afficher plus Instructions
1 Ouvrez la base de données Access Northwind Microsoft Office . La base de données Northwind est inclus dans la suite Microsoft Office.
2 Cliquez sur " Database Tools ", puis sélectionnez " Visual Basic " pour ouvrir la fenêtre de Microsoft Visual Basic . Cliquez sur le champ "Insérer" et sélectionner "Module ".
3 Tapez la commande suivante pour créer un nouveau sous-programme :
cellArrayToString Private Sub ()
Appuyez sur " Entrée".
4 Tapez la commande suivante pour créer de nouvelles variables :
strSQL Dim As String
db As Database
rst As Recordset
Dim cellIntArray (3) As Integer
Dim X As Integer
myString Dim As String
Set db = CurrentDb
5 Tapez la commande suivante pour créer une nouvelle table et ajouter trois nouveaux records :
strSQL = " CREATE tABLE tblData ( Id_Num Number) ; "
DoCmd.SetWarnings false
DoCmd.RunSQL ( strSQL )
strSQL = "INSERT INTO VALUES tblData (0) ; "
DoCmd.RunSQL ( strSQL )
strSQL = " insérer dans les valeurs de tblData (1); "
DoCmd.RunSQL ( strSQL )
strSQL =" INSERT INTO VALUES tblData ( 2); "
DoCmd.RunSQL ( strSQL )
6 Tapez la commande suivante pour ouvrir un nouveau jeu d'enregistrements et d'interroger toutes les données de " tblData ": .
Set rst = db.OpenRecordset ( "Select * from tblData tblData ; »)
rst.MoveLast
rst.MoveFirst
7 Tapez la commande suivante pour parcourir tous les enregistrements et les ajouter au tableau d'entiers:
Pour X = 0 To rst.RecordCount - 1.
cellIntArray (X) = rst.Fields (0 ) Valeur
rst.MoveNext
de Suivant X < br > Photos 8 Tapez la commande suivante pour convertir la matrice de cellules Integer à une variable String :
Pour x = 0 à 2
myString = myString & cellIntArray (X) et ","
Suivant X
9 Tapez la commande suivante pour afficher le contenu de la variable « myString " à travers une boîte de message :
MsgBox myString
Tapez la commande suivante pour libérer les variables de la mémoire :
rst.Close
db.Close
|
