打开APP
userphoto
未登录

开通VIP,畅享免费电子书等14项超值服

开通VIP
如何使用C#或者VB.NET读写Access数据库的标题(Caption)、描述(Desc...
如何使用C#或者VB.NET读写Access数据库的标题(Caption)、描述(Description)等字段信息?
如何被推荐?
前几天有人问:如何在使用 C# 或者 VB.NET 读写 Access 数据库的标题信息?Access 数据库的有些信息不能通过 ADO.NET 来读取的,需要使用 DAO 来进行读写,这些属性包括:
•Caption
•ColumnHidden
•ColumnOrder
•ColumnWidth
•DecimalPlaces
•Description
•Format
•InputMask
等等,使用 DAO 可以采用下面的方法进行读写,附上完整源代码:
C# 代码
/// 需要添加引用 Microsoft DAO 3.6 Object Library
/// 在VS 2008和Access 2003下测试通过
const int dbUseJet = 2 ;
const int dbPropNotFound = 3270 ;
const dao.DataTypeEnum dbText = dao.DataTypeEnum.dbText;
String dbName = @" E:\WebSite1\MengXianhui\db3.mdb " ;
dao.Workspace DAOWorkspace;
dao.Database DAODatabase;
dao.DBEngine DAODBEngine = new dao.DBEngine();
// 创建一个工作区
DAOWorkspace = DAODBEngine.CreateWorkspace( " WorkSpace " , " Admin " , "" , dbUseJet);
// 打开数据库
DAODatabase = DAOWorkspace.OpenDatabase(dbName, false , false , null );
dao.TableDef DAOTable;
dao.Field DAOField;
// 表对象
DAOTable = DAODatabase.TableDefs[ " Table1 " ];
DAOField = DAOTable.Fields[ " BirthDay " ];
// 读取 UserName 字段的 “标题”属性,如果标题没有设置,则会抛出异常。
// 如果标题不存在,我们就添加一个标题
String CaptionText;
try
{
  CaptionText = DAOField.Properties[ " Caption " ].Value.ToString();
}
catch
{
   if (dbPropNotFound == DAODBEngine.Errors[ 0 ].Number)
  {
     // 此时属性不存在,添加一个属性
    dao.Property dbProperty = DAOField.CreateProperty( " Caption " , dbText, " 出生日期字段标题 " , false );
    DAOField.Properties.Append(dbProperty);
    DAOField.Properties.Refresh();
    CaptionText = DAOField.Properties[ " Caption " ].Value.ToString();
  }
   else
  {
    CaptionText = " 无此标题,并且未能创建标题。 " ;
  }
}
finally
{
  DAODatabase.Close();
  System.Runtime.InteropServices.Marshal.ReleaseComObject(DAOField);
  System.Runtime.InteropServices.Marshal.ReleaseComObject(DAOTable);
  System.Runtime.InteropServices.Marshal.ReleaseComObject(DAOWorkspace);
  System.Runtime.InteropServices.Marshal.ReleaseComObject(DAODBEngine);
  System.Runtime.InteropServices.Marshal.ReleaseComObject(DAODatabase);
  DAOField = null ;
  DAOTable = null ;
  DAOWorkspace = null ;
  DAOWorkspace = null ;
  DAODatabase = null ;
  GC.WaitForPendingFinalizers();
  GC.Collect();
}
MessageBox.Show( " BirthDay 字段的标题是: " + CaptionText);
VB.NET写法类似,网上也有C#转换成VB.NET的工具,如果实在转换不成,可以继续找我。

本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/net_lover/archive/2009/10/14/4672620.aspx
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请点击举报
打开APP,阅读全文并永久保存 查看更多类似文章
猜你喜欢
类似文章
VB中操作EXECL表格(不使用AOD、DAO等)
VB通过DAO访问Access数据库2
VB实用代码,收藏!!
136 ⅤB窗体和控件设置
vb中label自动换行的方法
GetWindowText
更多类似文章 >>
生活服务
热点新闻
分享 收藏 导长图 关注 下载文章
绑定账号成功
后续可登录账号畅享VIP特权!
如果VIP功能使用有故障,
可点击这里联系客服!

联系客服