Eigenschaftsabfrage von Tabellenfeldern in VBScript

[Thomas]

Hallo Leute

Vielleicht könnt Ihr mir weiterhelfen. Es geht um den unten stehenden Code.
Ich schreibe damit eine ergebnistabelle.
Ich hätte aber gern den Text des entsprechenden Tabellen Feldes farbig gemacht in Abhängigkeit vom Tabellen Feld(ob es ein Pflichtfeld ist oder nicht: Dieser Wert muss eingetragen werden). Kann mir jemand weiterhelfen. Mir fehlen die entsprechenden Befehle.Ich nehme an gObjRS.Fields.Properties.???
Ich weiss echt nicht weiter.

Vielen Dank schon im vorraus!!!

Gruß Thomas

<!-- TABLE HEADER -->
<TR>
<TD COLSPAN=<% =myFieldCount+1 %>>
<FONT CLASS="VERYIMPORTANT"><% =myDSN %> ::
<% =myTable %> (<% =gObjRS.RecordCount %>  Einträge) Seite <%=myPage%>/<%=gObjRS.PageCount %></FONT>
</TD>
</TR>
<TH COLSPAN=<% =myFieldCount+1 %>>Inhalt der Tabelle ( SQL Abfrage : <% =mySQLQuery %> )
</TH>

<!-- FIELD NAME -->
<TR>
<%
For i = 0 to myFieldCount-1
myLink = "tablecontent.asp?DSN_Name=" & myDSN & "&Table_Name=" & myTable & "&Page=1&OrderBy=" & gObjRS.Fields(i).Name
Response.Write "<TD NOWRAP><B>" & gObjRS.Fields(i).Name & "</B><BR>(" & GetType(gObjRS.Fields(i).Type) & ")<A HREF='" & myLink & "&way=ASC'><B> A</A>-<A HREF='" & myLink & "&way=DESC'>D</A></B></TD>" & vbCrlf
Next
%>
<TD> </TD>
</TR>

<!-- RECORDS -->
<%
If gObjRS.RecordCount > 0 Then
gObjRS.Move (gObjRS.PageSize * (myPage-1))
End If
myCount = 1
Do While Not gObjRS.EOF AND myCount <= gObjRS.PageSize
Response.Write "<TR>"
For i = 0 to myFieldCount-1
myValue = gObjRS(i)
If myValue = "" Or VarType(myValue)= vbNull Or IsNull(myValue)Then
      myValue = " "
End If
Response.Write "<TD>" & myValue & "</TD>" & vbCrlf
Next
' Modify And Drop
myUpdateLink = "updaterecord1.asp?"
myDropLink = "droprecord1.asp?"
myLink = ""
For j = 0 to myFieldCount-1
If Not gObjRS.Fields(j).Properties(13).Value Then ' autoincrement are non-updatable
If gObjRS(j) <> "" Then
myLink = myLink & gObjRS.Fields(j).Name & "=" & Server.URLEncode(gObjRS(j)) & "&"
Else
myLink = myLink & gObjRS.Fields(j).Name & "=&"
End If
myLink = myLink & gObjRS.Fields(j).Name & "_JTMRType=" & GetType(gObjRS.Fields(j).Type) & "&"
End If
Next
myLink = myLink & "DSN_Name=" & myDSN & "&Table_Name=" & myTable
Response.Write "<TD>  <A HREF=" & myUpdateLink & myLink & "><B>Ändern</B></A>  "
Response.Write "  <A HREF=" & myDropLink & myLink & "><B>Löschen</B></A>  "
Response.Write "</TD>" & vbCrlf
Response.Write "</TR>" & vbCrlf

myCount = myCount + 1
gObjRS.MoveNext
Loop
%>

[Uwe Nohl]

Hallo Leute

Vielleicht könnt Ihr mir weiterhelfen. Es geht um den unten stehenden Code.
Ich hätte aber gern den Text des entsprechenden Tabellen Feldes farbig gemacht in Abhängigkeit vom Tabellen Feld(ob es ein Pflichtfeld ist oder nicht: Dieser Wert muss eingetragen werden). Kann mir jemand weiterhelfen. Mir fehlen die entsprechenden Befehle.Ich nehme an gObjRS.Fields.Properties.???
Ich weiss echt nicht weiter.

Vielen Dank schon im vorraus!!!

Gruß Thomas

Hallo Thomas

nehme an, dass Dein Code ein ASP-Skript ist. Dafuer habe ich in
adovbs.inc folgendes gefunden:

Const adFldMayBeNull = &H00000040

vielleicht ist es die gesuchte property bzw. ihr enum.

gruss

Uwe

[Uwe Nohl]

Hallo Leute

Vielleicht könnt Ihr mir weiterhelfen. Es geht um den unten stehenden Code.
Ich hätte aber gern den Text des entsprechenden Tabellen Feldes farbig gemacht in Abhängigkeit vom Tabellen Feld(ob es ein Pflichtfeld ist oder nicht: Dieser Wert muss eingetragen werden). Kann mir jemand weiterhelfen. Mir fehlen die entsprechenden Befehle.Ich nehme an gObjRS.Fields.Properties.???
Ich weiss echt nicht weiter.

Vielen Dank schon im vorraus!!!

Gruß Thomas

Hallo Thomas

nehme an, dass Dein Code ein ASP-Skript ist. Dafuer habe ich in
adovbs.inc folgendes gefunden:

Const adFldMayBeNull = &H00000040

vielleicht ist es die gesuchte property bzw. ihr enum.

gruss

Uwe

Nochmal Hallo,

habe nachgeschaut in der ADO-Dokumentation des PWS:

For a Field object, the _Attributes_ property is read-only, and its _value_ can be the _sum_ of any one or more of these

FieldAttributeEnum values:

Constant -Description

adFldMayDefer -Indicates that the field is deferred, that is, the field values are not retrieved from the data source with the whole record, but only when you explicitly access them.

adFldUpdatable -Indicates that you can write to the field.

adFldUnknownUpdatable -Indicates that the provider cannot determine if you can write to the field.

adFldFixed -Indicates that the field contains fixed-length data.

-> adFldIsNullable -Indicates that the field accepts Null values.<-

adFldMayBeNull -Indicates that you can read Null values from the field.

Gruss

Uwe

[Thomas]

Hallo Uwe

Du hast recht, es handelt sich um eine ASP-Datei.
Aber die Eigenschaft die Du aufgeführt hast ist nicht dabei!
In Access (meiner Datenbank) wird diese Eigenschaft als "Required" bezeichnet. ABer damit kann ich Sie nicht ansprechen. Es soll einfach so sein, das wenn ich miich im Internet einlogge auf meine Seite, und eventuell die Datenbank online ändern will, sollen alle Tabellenfelder die unbedingt eingetragen werden müssen (Required) in einer anderen Farbe dargestellt werden!

Ich kann Sie einfach nicht ansprechen!?

Trotzdem erstmal Dank für Deine Hilfe.
Vielleicht hast Du ja noch einen Tipp?