一ASP创建ACCESS数据库表函数

最新推荐文章于 2024-11-22 16:22:36 发布

原创最新推荐文章于 2024-11-22 16:22:36 发布 · 708 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#数据库 #access #asp #sql #null #integer

ASP 专栏收录该内容

15 篇文章

订阅专栏

本文介绍了一个使用VBScript创建Access数据库(.mdb)中表的方法。通过示例代码展示了如何定义表结构，包括不同类型的字段如自动编号、文本、数值、日期等。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

函数名称：CreateMDBTable
用法：CreateMDBTable "数据库表名称","数据库地址"
例：CreateMDBTable "Test","Test.mdb"

Function CreateMDBTable(TableName,MdbFileName)
Dim SQL,RS,Conn,Strcon
Set Conn = Server.CreateObject("ADODB.Connection")
Strcon="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(MdbFileName)
Conn.open Strcon
'创建表
SQL = "CREATE TABLE [" & TableName & "] ("
'创建自动编号类型的字段id
SQL = SQL & "[id] integer IDENTITY (1, 1) PRIMARY KEY NOT NULL ,"
'创建文本类型的字段username，并限定该字段的长度为50(char(50)实现该功能),不能为空(NOT NULL)
SQL = SQL & "[username] char (50) NOT NULL,"
'创建文本类型的字段password，并限定该字段的长度为50(char(50)实现该功能),允许为空(NULL)
SQL = SQL & "[password] char (50) NULL ,"
'创建数值类型的字段num
SQL = SQL & "[num] number ,"
'创建日期类型的字段datatime
SQL = SQL & "[datatime] date ,"
'创建逻辑类型的字段yesorno
SQL = SQL & "[yesorno] bit ,"
'创建备注类型的字段neirong
SQL = SQL & "[info] memo "
SQL =SQL& ")"
Set RS = Conn.Execute(SQL)
'显示创建成功信息。
Response.Write (" " & TableName & " 表创建成功！")
end Function

／／改进　　可变字段

Dim TableFields ,TableName,MdbFileName
'创建自动编号类型的字段id
TableFields = "[id] integer IDENTITY (1, 1) PRIMARY KEY NOT NULL ,"
'创建文本类型的字段username，并限定该字段的长度为50(char(50)实现该功能),不能为空(NOT NULL)
TableFields =TableFields & "[username] char (50) NOT NULL,"
'创建文本类型的字段password，并限定该字段的长度为50(char(50)实现该功能),允许为空(NULL)
TableFields =TableFields & "[password] char (50) NULL ,"
'创建数值类型的字段num
TableFields =TableFields & "[num] number ,"
'创建日期类型的字段datatime
TableFields =TableFields & "[datatime] date ,"
'创建逻辑类型的字段yesorno
TableFields =TableFields & "[yesorno] bit ,"
'创建备注类型的字段neirong
TableFields =TableFields & "[info] memo "

TableName ="test"

MdbFileName ="Databases/0791idc.mdb"

Function CreateMDBTable(TableName,MdbFileName,TableFilds)
Dim SQL,RS,Conn,Strcon
Set Conn = Server.CreateObject("ADODB.Connection")
Strcon="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(MdbFileName)
Conn.open Strcon
'创建表
SQL = "CREATE TABLE [" & TableName & "] ("
SQL = SQL & TableFields & ")"
response.Write SQL
Set RS = Conn.Execute(SQL)
'显示创建成功信息。
Response.Write (" " & TableName & " 表创建成功！")
end Function

CreateMDBTable TableName,MdbFileName,TableFilds