数据库字段:在ASP中列出数据库中的表名和字段名的程序来源: 发布时间:星期四, 2009年2月12日 浏览:86次 评论:0
<% dsn = \"DSN=DSNName\" Const adSchemaTables = 20 adSchemaColumns = 4 Set oConn = Server.CreateObject(\"ADODB.Connection\") oConn.open dsn Set rstSchema = oConn.OpenSchema(adSchemaColumns) response.write \"<table>\" response.write \"<tr><td>Table name</td><td>field name</td><td>field type</td><td>is nullable</td><td>field size</td></tr>\" tablename=\"\" Do Until rstSchema.EOF response.write \"<tr><td>\" rstSchema(\"Table_name\") <> tablename then response.write rstSchema(\"Table_name\") tablename = rstSchema(\"Table_name\") response.write \" \" end response.write \"</td><td>\"& rstschema(\"column_Name\") & \"</td><td>\" select rstschema(\"data_type\") \"130\" rstschema(\"CHARACTER_MAXIMUM_LENGTH\") = 1073741823 then response.write \"Memo\" response.write \"Text\" end 135 response.write \"Date/Time\" 3 response.write \"Long Integer\" 11 response.write \"Yes/No\" 131 response.write \"Currency\" response.write rstschema(\"data_type\") end select response.write \"</td><td>\" & rstschema(\"is_nullable\") & \"</td><td>\" rstschema(\"CHARACTER_MAXIMUM_LENGTH\") <> 1073741823 then response.write rstschema(\"CHARACTER_MAXIMUM_LENGTH\") response.write \" \" end response.write \"</td></tr>\" rstSchema.MoveNext Loop response.write \"</table>\" %> 0
相关文章读者评论发表评论 |