Ich möchte gerne die Spaltenbeschreibung von allen Spalten einer Tabelle
auslesen, und auch setzen können - aber schon beim auslesen allein komm ich
irgenwie nicht zurecht.
Kann mir da jemand weiterhelfen ? Unten der Code:
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = ContainerDB Recordset1.Source = SQLString
Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType
= 1
Recordset1.Open()
Recordset1_numRows = 0
TblStr = ""
TblTyp = ""
For Each objCol in Recordset1.Fields
TblStr = TblStr & "" & objCol.Name & " "
TblTyp = TblTyp & objCol.Type & " "
'Desc = Desc & objCol.Properties.Description & "|NewCol|"
For each X in objCol.Properties
if X.name <> "" then
Desc = Desc & CStr(X.name) & " ___ "
end if
Next
'###########################################################
Desc = Desc & objCol.Properties("CAPTION") & "|NewCol|"
'############# Hier liegt der Fehler #######################
Next
Beschreibung = Split(Trim(Desc),"|NewCol|") Tabellen = Split(Trim(TblStr))
Typen = Split(Trim(TblTyp))
------------
Hat von euch da jemand eine Ahnung wie man die Caption und die Beschreibung
eines Feldes auslesen kann?
_______________________________________________
Asp.net Mailingliste, Postings senden an:
Asp.net@glengamoi.com
An-/Abmeldung und Suchfunktion unter:
http://www.glengamoi.com/mailman/listinfo/asp.net
