Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

array mit feldname und wert (vielen dank !!!!) bin etwas weiter gekommen
Autor: TheLord
Datum: 27.01.02 14:15
War unterwegs und konnte mich nicht mehr bedanken gestern, aber Ihr seid wirklich sehr hilfsbereit und das ist schon eine seltenheit bei so doofen fragen... Also vielen Dank nochmal... Bin dann damit gestern auch noch ein wenig vorangekommen. Zumindest bekommen ich jetzt schon mal die Ausgabe so, wie ich es brauche, allerdings als strings und nicht als array: -- Option Explicit Dim adoDataConn As ADODB.Connection Dim rsRecordSet As ADODB.Recordset Public result As Variant Public Records As Variant Public Indizes As Variant '---------------------------------- Function get_data(Query, inumber) Dim conn As New ADODB.Connection Dim rs As New Recordset Dim vArr As Variant Dim i As Long Dim fld As Field Dim n As Integer Dim m As Integer Dim cnt As Integer Dim colFields As New Collection Dim ares() Dim Felder As String Dim Values As String '--------------------------------- conn.Open "odbctest;lunar" rs.Source = Query Set rs.ActiveConnection = conn rs.CursorLocation = adUseClient rs.Open n = 0 i = rs.RecordCount ReDim ares(0 To i) vArr = rs.GetRows(i) ' -----------------------------------| For Each fld In rs.Fields Felder = Felder + fld.Name + ", " colFields.Add n, fld.Name n = n + 1 Next ' -----------------------------------| m = 0 rs.MoveFirst While Not rs.EOF And m < inumber cnt = 0 Values = "" '---- While cnt < colFields.Count Values = Values & rs.Fields(cnt) & " | " cnt = cnt + 1 Wend '---- ares(m) = Values ' Ergebniszeile als String m = m + 1 rs.MoveNext Wend ' #################################### ' # Rückgabe ------------------ # ' #################################### Records = ares ' Array mit allen Ergebniszeilen Indizes = Felder If inumber <= i Then get_data = inumber If i <= inumber Then get_data = i ' ------------------------------------| rs.Close End Function

array mit feldname und wert (vielen dank !!!!) bin etwas wei...	53	TheLord	27.01.02 14:15
anhang...	33	TheLord	27.01.02 14:19

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen