Access: Massendaten zum Testen erzeugen
Schreiben Sie eine Prozedur wie in Listing 1, welche in eine Tabelle eine beliebige Menge Daten hineinschreibt. Für dieses Beispiel benötigen Sie eine Tabelle tblMengen mit den Feldern wie in Tabelle 1.
Feldname |
Typ |
Größe |
Mtext |
Text |
255 |
Mzahl |
Zahl |
Double |
Mdatum |
Datum |
Dann können Sie mittels Zufallsfunktion und einer Schleife viele zufallsgesteuerte Datensätze erzeugen. Listing 1 ermittelt mit der Rnd-Funktion einen Wert zwischen 0 und 1, der mit der Differenz zwischen jeweiligem Minimum und Maximum multipliziert wird. Falls beispielsweise das Minimum 3 und das Maximum 10 war, ergeben sich Werte zwischen 0 und 7 inklusive. Zu diesem Wert muss dann das Minimum wieder addiert werden. Diese Formel gilt sowohl für eine Double-Zahl als auch für das Datum. Wenn Sie ganzzahlige Ergebnisse oder ein Datum ohne Uhrzeit benötigen, entfernt die Funktion CLng (ConvertToLong) die jeweiligen Nachkommastellen. Diese Prozedur erzeugt schon die gewünschten Zahlen und Datumswerte, nur noch keine Texte.