18/02/2002, 13:33
|
| | | Fecha de Ingreso: octubre-2000 Ubicación: Juarez, Chih.
Mensajes: 161
Antigüedad: 24 años, 6 meses Puntos: 0 | |
| Re: Mostrar tablas y campos
'Continuación...
Do While Not objColumnRS.EOF
iLength = objColumnRS("Character_Maximum_Length")
iPrecision = objColumnRS("Numeric_Precision")
iScale = objColumnRS("Numeric_Scale")
iDefaultValue = objColumnRS("Column_Default")
If IsNull(iLength) then iLength = " "
If IsNull(iPrecision) then iPrecision = " "
If IsNull(iScale) then iScale = " "
If IsNull(iDefaultValue) then iDefaultValue = " "
Response.Write "<TR><TD>" & objColumnRS("Column_Name") & "</TD>"
Response.Write "<TD>" & objColumnRS("Data_Type") & "</TD>"
Response.Write "<TD>" & iLength & "</TD>"
Response.Write "<TD>" & iPrecision & "</TD>"
Response.Write "<TD>" & iScale & "</TD>"
Response.Write "<TD ALIGN=CENTER><FORM><INPUT TYPE=CHECKBOX"
If objColumnRS("Is_Nullable") then
Response.Write " CHECKED"
End If
Response.Write "></FORM></TD>"
Response.Write "<TD>" & iDefaultValue & "</TD>"
Response.Write "</TR>"
objColumnRS.MoveNext
Loop
objTableRS.MoveNext
Set objColumnRS = Nothing
Response.Write "</TABLE><P>"
Loop
objTableRS.Close
Set objTableRS = Nothing
objConn.Close
Set objConn = Nothing
%>
---------------------
Tan libre como gratuito!!! |