Mittwoch, 27. Februar 2008

PASS Cast: Test- & Demodaten mit SSIS 2005 erstellen

So, heute wurde der neue PASS Newsletter veröffentlicht. Dort wurde ein neuer PASS Cast von mir erwähnt: Test- & Demodaten mit SSIS 2005 erstellen

Anbei der im Cast erwähnte Sourcecode. Für Fragen mir einfach einen Kommentar oder eine Mail schreiben. Viel Spass damit!

Public Overrides Sub CreateNewOutputRows()

'
' Add rows by calling AddRow method on member variable called "Buffer"
' E.g., MyOutputBuffer.AddRow() if your output was named "My Output"
'

Dim i As Integer
Dim objR As New Random(123412)
Dim OrteVer As Integer() = {8, 4, 3, 5, 8, 3, 4, 6, 6, 8}

For i = 1 To 1000000

With (TestBuffer)

.AddRow()
.id = i
.wert = randomhelp(objR, OrteVer )

End With

Next

End Sub

Function randomhelp(ByVal objR As Random, ByVal ver As Integer()) As Integer

Dim ergebnis As Integer
Dim max As Integer = 0
Dim i As Integer
Dim zufall As Integer

For i = 0 To ver.Length() - 1

max += ver(i)

Next

zufall = objR.Next(0, max)

max = 0

For i = 0 To ver.Length() - 1

If zufall >= max Then

ergebnis = i + 1

End If

max += ver(i)

Next

Return (ergebnis)

End Function

Keine Kommentare: