 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<% 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>" if rstSchema("Table_name") <> tablename then response.write rstSchema("Table_name") tablename = rstSchema("Table_name") else response.write " " end if response.write "</td><td>"& rstschema("column_Name") & "</td><td>" select case rstschema("data_type") case "130" if rstschema("CHARACTER_MAXIMUM_LENGTH") = 1073741823 then response.write "Memo" else response.write "Text" end if case 135 response.write "Date/Time" case 3 response.write "Long Integer" case 11 response.write "Yes/No" case 131 response.write "Currency" case else response.write rstschema("data_type") end select response.write "</td><td>" & rstschema("is_nullable") & "</td><td>" if rstschema("CHARACTER_MAXIMUM_LENGTH") <> 1073741823 then response.write rstschema("CHARACTER_MAXIMUM_LENGTH") else response.write " " end if response.write "</td></tr>" rstSchema.MoveNext Loop response.write "</table>" %> 返回类别: 教程 上一教程: ASP中数据库操作中游标和加锁方法 下一教程: 检测IP地址是否真正合法的函数 您可以阅读与"在ASP中列出数据库中的表名和字段名的程序"相关的教程: · 列出数据库中的所有表 · ASP获取数据库表名，字段名以及对字段的一些操作 · ASP列出SQL数据库中所有数据视图 · ASP操作ACCESS数据库的程序 · ASP列出SQL数据库中(PUBS数据库)存储过程及其例子 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
