array übergeben
11.06.2004 17:34:32
arne
das eine Problem geschafft und gleich in das nächste gestolpert.
Also eigentlich wollte ich das Array weitergeben um eine Benutzerdef. "Suchreihenfolge" zu generieren....
nur wie mache ich das?
jemand eine Idee?
danke schonmal
arne
Private Sub sort()
Dim MyRSArray As Variant '--- dieses Array wird mit dem rs gefüllt werden
Dim con As New ADODB.Connection
Dim RS As New ADODB.RecordSet
Dim vtSql As String
Dim x as long
'--- öffnen der Connection zur DB mit übergabe des Connection-Strings
con.Open "constring"
vtSql = "" '--- SQL-String übergeben
RS.Open vtSql, con
If Not RS.EOF And Not RS.BOF Then '--- Überprüfen ob RS leer ist
AnzahlSpalten = RS.Fields.Count - 1
AnzahlZeilen = 0
ReDim MyRSArray(AnzahlSpalten, AnzahlZeilen)
Do Until RS.EOF
'--- Array-Grösse anpassen
ReDim Preserve MyRSArray(AnzahlSpalten, AnzahlZeilen)
For i = 0 To AnzahlSpalten
MyRSArray(i, AnzahlZeilen) = RS.Fields(i)
Next
AnzahlZeilen = AnzahlZeilen + 1
RS.MoveNext
Loop
End If
Application.AddCustomList MyRSArray(0, AnzahlZeilen) ' wie mache ich das
hier?
x = Application.CustomListCount + 1
Worksheets("Tabelle1").Activate
Range("A1").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=(x), MatchCase:=False, Orientation:=xlTopToBottom
RS.Close
End Sub