Using Access2000 Required Field Property

[Michael42]

Is there any way from ASP to use the Access 2000 required field property set in the database?

Thanks,

Michael

 

[Michael42]

I think I figured it out (see below):

Dim i, sAttributes
sAttributes = " "
Response.Write &quot;<table border=1 cellpadding=2 cellspacing=2>&quot; & vbNewLIne
Response.Write &quot;<tr bgcolor=#eeeeee><td>Name</td><td>Type</td><td>Size</td><td>Attributes</td></tr>&quot; & vbNewLine

Response.Write &quot;<tr>&quot; & vbNewLine
For i = 0 To oRS.Fields.Count-1
Response.Write &quot;<td>&quot; & oRS.Fields(i).Name & &quot;</td>&quot; & vbNewLine
Response.Write &quot;<td>&quot; & oRS.Fields(i).Type & &quot;</td>&quot; & vbNewLine
Response.Write &quot;<td>&quot; & oRS.Fields(i).DefinedSize & &quot;</td>&quot; & vbNewLine

Response.Write &quot;<td><font size=2>&quot;
If ( oRS.Fields(i).Attributes AND adFldKeyColumn) then Response.Write &quot;adFldKeyColumn<br>&quot;
If ( oRS.Fields(i).Attributes AND adFldUpdatable) then Response.Write &quot;adFldUpdatable<br>&quot;
If ( oRS.Fields(i).Attributes AND adFldUnknownUpdatable ) then Response.Write &quot;adFldUnknownUpdatable<br>&quot;
'Required
If ( oRS.Fields(i).Attributes AND adFldIsNullable ) then
Response.Write &quot;Not Required<br>&quot;
else
if ( oRS.Fields(i).Type <> 11) then
Response.Write &quot;<b>Required</b><br>&quot;
else
Response.Write &quot;Not Required<br>&quot;
end if
end if
If ( oRS.Fields(i).Attributes AND adFldRowID ) then Response.Write &quot;adFldRowID<br>&quot;



Response.Write &quot;</font></td>&quot; & vbNewLine

Response.Write &quot;</tr>&quot; & vbNewLine
Next Michael