在以前的文章《如何在.NET框架下创建Access数据库和表？》中提供的方法，在.NET 2.0下无效，所有的字段类型都变成了文本类型，不知道微软改变了什么东西。提醒大家注意，需要加ADOX.ColumnClass.Type = DataTypeEnum.adLongVarBinary属性。下面将修正后的代码发布如下。
C#：
<%@ Page Language="C#" %>
<%@ Import Namespace="ADOX" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server">
/// <summary>
/// CreateAccessDB 的摘要说明。
/// 对于不同版本的ADO，需要添加不同的引用
/// 请添加引用Microsoft ADO Ext. 2.7 for DDL and Security
/// 请添加引用Microsoft ADO Ext. 2.8 for DDL and Security
/// </summary>
protected void Page_Load(object sender, EventArgs e)
{
//为了方便测试，数据库名字采用比较随机的名字，以防止添加不成功时还需要重新启动IIS来删除数据库。
string dbName = "D:\NewMDB" + DateTime.Now.Millisecond.ToString() + ".mdb";
ADOX.CatalogClass cat = new ADOX.CatalogClass();
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + dbName + ";");
Response.Write("数据库：" + dbName + "已经创建成功！");
ADOX.TableClass tbl = new ADOX.TableClass();
tbl.ParentCatalog = cat;
tbl.Name = "MyTable";
//增加一个自动增长的字段
ADOX.ColumnClass col = new ADOX.ColumnClass();
col.ParentCatalog = cat;
col.Type = ADOX.DataTypeEnum.adInteger; // 必须先设置字段类型
col.Name = "id";
col.Properties["Jet OLEDB:Allow Zero Length"].Value = false;
col.Properties["AutoIncrement"].Value = true;
tbl.Columns.Append(col, ADOX.DataTypeEnum.adInteger, 0);
//增加一个文本字段
ADOX.ColumnClass col2 = new ADOX.ColumnClass();
col2.ParentCatalog = cat;
col2.Name = "Description";
col2.Properties["Jet OLEDB:Allow Zero Length"].Value = false;
tbl.Columns.Append(col2, ADOX.DataTypeEnum.adVarChar, 25);
//增加数字字段
ADOX.ColumnClass col3 = new ADOX.ColumnClass();
col3.ParentCatalog = cat;
col3.Name = "数字";
col3.Type = DataTypeEnum.adDouble;
col3.Properties["Jet OLEDB:Allow Zero Length"].Value = false;
tbl.Columns.Append(col3, ADOX.DataTypeEnum.adDouble, 666);
//增加Ole字段
ADOX.ColumnClass col4 = new ADOX.ColumnClass();
col4.ParentCatalog = cat;
col4.Name = "Ole类型";
col4.Type = DataTypeEnum.adLongVarBinary;
col4.Properties["Jet OLEDB:Allow Zero Length"].Value = false;
tbl.Columns.Append(col4, ADOX.DataTypeEnum.adLongVarBinary, 0);
//设置主键
tbl.Keys.Append("PrimaryKey", ADOX.KeyTypeEnum.adKeyPrimary, "id", "", "");
cat.Tables.Append(tbl);
msg.Text = ("<br>数据库表：" + tbl.Name + "已经创建成功！");
System.Runtime.InteropServices.Marshal.ReleaseComObject(tbl);
System.Runtime.InteropServices.Marshal.ReleaseComObject(cat);
tbl = null;
cat = null;
GC.WaitForPendingFinalizers();
GC.Collect();
}
</script>
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title>在.NET框架下动态创建Access数据库和表</title>
</head>
<body>
<form id="form1" runat="server">
<asp:Label ID="msg" runat="server" />
</form>
</body>
</html>
VB.NET：
<%@ Page Language="VB" %>
<%@ Import Namespace="ADOX" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server">
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
Dim dbName As String = "D:NewMDB" + DateTime.Now.Millisecond.ToString + ".mdb"
Dim cat As ADOX.CatalogClass = New ADOX.CatalogClass
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + dbName + ";")
Response.Write("数据库：" + dbName + "已经创建成功！")
Dim tbl As ADOX.TableClass = New ADOX.TableClass
tbl.ParentCatalog = cat
tbl.Name = "MyTable"
Dim col As ADOX.ColumnClass = New ADOX.ColumnClass
col.ParentCatalog = cat
col.Type = ADOX.DataTypeEnum.adInteger
col.Name = "id"
col.Properties("Jet OLEDB:Allow Zero Length").Value = False
col.Properties("AutoIncrement").Value = True
tbl.Columns.Append(col, ADOX.DataTypeEnum.adInteger, 0)
Dim col2 As ADOX.ColumnClass = New ADOX.ColumnClass
col2.ParentCatalog = cat
col2.Name = "Description"
col2.Properties("Jet OLEDB:Allow Zero Length").Value = False
tbl.Columns.Append(col2, ADOX.DataTypeEnum.adVarChar, 25)
Dim col3 As ADOX.ColumnClass = New ADOX.ColumnClass
col3.ParentCatalog = cat
col3.Name = "数字"
col3.Type = DataTypeEnum.adDouble
col3.Properties("Jet OLEDB:Allow Zero Length").Value = False
tbl.Columns.Append(col3, ADOX.DataTypeEnum.adDouble, 666)
Dim col4 As ADOX.ColumnClass = New ADOX.ColumnClass
col4.ParentCatalog = cat
col4.Name = "Ole类型"
col4.Type = DataTypeEnum.adLongVarBinary
tbl.Columns.Append(col4, ADOX.DataTypeEnum.adLongVarBinary, 0)
tbl.Keys.Append("PrimaryKey", ADOX.KeyTypeEnum.adKeyPrimary, "id", "", "")
cat.Tables.Append(tbl)
msg.Text = ("<br>数据库表：" + tbl.Name + "已经创建成功！")
System.Runtime.InteropServices.Marshal.ReleaseComObject(tbl)
System.Runtime.InteropServices.Marshal.ReleaseComObject(cat)
tbl = Nothing
cat = Nothing
GC.WaitForPendingFinalizers()
GC.Collect()
End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml">
<head id="Head1" runat="server">
<title>在.NET框架下动态创建Access数据库和表</title>
</head>
<body>
<form id="form1" runat="server">
<asp:Label ID="msg" runat="server" />
</form>
</body>
</html>
【Update】下面的代码添加对现有数据库的字段添加：
<%@ Page Language="C#" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server">
/// <summary>
/// CreateAccessDB 的摘要说明。
/// 对于不同版本的ADO，需要添加不同的引用
/// 请添加引用： Microsoft ADO Ext. 2.7 for DDL and Security
/// 请添加引用： Microsoft ADO Ext. 2.8 for DDL and Security
/// 另外，如果修改数据库，需要添加引用： Microsoft ActiveX Data Objects 2.8 Library
/// </summary>
protected void Page_Load( object sender, EventArgs e )
{
//为了方便测试，数据库名字采用比较随机的名字，以防止添加不成功时还需要重新启动IIS来删除数据库。
string dbName = Server.MapPath("~") + "\NewMDB" + DateTime.Now.Millisecond.ToString() + ".mdb";
ADOX.CatalogClass cat = new ADOX.CatalogClass();
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + dbName + ";");
Response.Write("数据库：" + dbName + "已经创建成功！");
ADOX.TableClass tbl = new ADOX.TableClass();
tbl.ParentCatalog = cat;
tbl.Name = "MyTable";
//增加一个自动增长的字段
ADOX.ColumnClass col = new ADOX.ColumnClass();
col.ParentCatalog = cat;
col.Type = ADOX.DataTypeEnum.adInteger; // 必须先设置字段类型
col.Name = "id";
col.Properties["Jet OLEDB:Allow Zero Length"].Value = false;
col.Properties["AutoIncrement"].Value = true;
tbl.Columns.Append(col, ADOX.DataTypeEnum.adInteger, 0);
//增加一个文本字段
ADOX.ColumnClass col2 = new ADOX.ColumnClass();
col2.ParentCatalog = cat;
col2.Name = "Description";
col2.Properties["Jet OLEDB:Allow Zero Length"].Value = false;
tbl.Columns.Append(col2, ADOX.DataTypeEnum.adVarChar, 25);
//增加数字字段
ADOX.ColumnClass col3 = new ADOX.ColumnClass();
col3.ParentCatalog = cat;
col3.Name = "数字类型字段";
col3.Type = ADOX.DataTypeEnum.adDouble;
col3.Properties["Jet OLEDB:Allow Zero Length"].Value = false;
tbl.Columns.Append(col3, ADOX.DataTypeEnum.adDouble, 666);
//增加Ole字段
ADOX.ColumnClass col4 = new ADOX.ColumnClass();
col4.ParentCatalog = cat;
col4.Name = "Ole类型字段";
col4.Type = ADOX.DataTypeEnum.adLongVarBinary;
col4.Properties["Jet OLEDB:Allow Zero Length"].Value = false;
tbl.Columns.Append(col4, ADOX.DataTypeEnum.adLongVarBinary, 0);
Response.Write("<h4>得到各个列的名字：</h4>");
for (int i = 0 ; i < tbl.Columns.Count ; i++)
{
Response.Write("<li>" + i.ToString() + " = " + tbl.Columns[i].Name + " 类型：" + tbl.Columns[i].Type.ToString());
}
Response.Write("<h4>删除 Description 列：</h4>");
tbl.Columns.Delete("Description");
tbl.Columns.Refresh();
Response.Write("<h4>修改 “数字类型字段” 列名字：</h4>");
ADOX.ColumnClass col5 = (ADOX.ColumnClass)tbl.Columns["数字类型字段"];
col5.Name = "新名字类型字段";
tbl.Columns.Refresh();
//设置主键
tbl.Keys.Append("PrimaryKey", ADOX.KeyTypeEnum.adKeyPrimary, "id", "", "");
cat.Tables.Append(tbl);
Response.Write("<br>数据库表：" + tbl.Name + "已经创建成功！");
Response.Write("<h4>修改现有数据库：</h4>");
//打开已经存在的数据库，添加字段
string ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + dbName;
ADODB.Connection cn = new ADODB.Connection();
cn.Open(ConnectionString, null, null, 0);
cat = new ADOX.CatalogClass();
cat.ActiveConnection = cn;
Response.Write("数据库：" + dbName + "已经打开成功！");
ADOX.Table dbTable =&
分享到：
相关推荐
简单.Net2.0留言本源码（access数据库） 适合初学.NET的人看看
ASP.NET 2.0 C# Access数据库访问类
不错的例子，asp.net2.0+C#+Access 网站开发必备
新闻管理系统 asp.net 2.0 access数据库
ASP.NET 2.0动态网站设计教程课件、代码
ASP.NET2.0动态网站设计教程 课件
本书的后四章介绍了ASE.NET2.0 Person Starter Kits，ASE.NET 2.0 Club Starter Kit，ASE.NET Classifieds Starter Kit和ASE.NET Time Tracker Start kit的实现要点，进一步说明了ASENET2.0新技术的实际使用。...
NET框架下创建Access数据库和表.rar
ASP.NET2.0+SQLServer2005开发环境 ASP.NET2.0访问数据库
ASP.NET 2.0 + SQL Server 动态网站开发从基础到实践Chapter10..常用ASP.NET应用实例
ASP.NET 2.0 + SQL Server 动态网站开发从基础到实践Chapter13.。。在线宽带视频点播系统
asp.net2.0以Access为数据库的membership视频教材,教材有10讲，我把10讲的视频教材拆分6个包，把6个包下载后，解压就可以用了，除了视频教材外，还包括了Access数据库、一些例子和数据库引擎。(本人觉得非常好用)
asp.net2.0以Access为数据库的membership视频教材,教材有10讲，我把10讲的视频教材拆分6个包，把6个包下载后，解压就可以用了，除了视频教材外，还包括了Access数据库、一些例子和数据库引擎。(本人觉得非常好用)
asp.net2.0以Access为数据库的membership视频教材,教材有10讲，我把10讲的视频教材拆分6个包，把6个包下载后，解压就可以用了，除了视频教材外，还包括了Access数据库、一些例子和数据库引擎。(本人觉得非常好用)
这是一个自己做的用C#编写的用代码创建Access数据库和表的完整程序，放在在这里和大家一起分享，共同学习
但是在默认情况下，我使用了ACCESS作为默认配置，这样几乎在任何一台支持ASP.NET2.0的主机上都可以使用，如果您需要使用其他数据库的话，请将ACCESS数据库导过去，并设置好主键、索引、自增列（所有表的ID字段）基本...
互动媒体学习社区网站，用的是asp.net2.0，C#语言，access数据库，如果稍微改改，就可以用于真正运行的内部网bs学习网站
.Net2.0数据库操作类库 支持SQL200,SQL2005,Access,Excel 使用反射编写 一般操作不用写SQL语句
Teach Yourself ASP.NET 2.0 in 24 Hours，不错的书 ，可以访问他的教程http://www.asp.net/learn/data-access/ 很经典，有中文的，...