【分享】VB.NET2008创建动态ACCESS数据库并创建表示例
声明：本示例依据http://support.microsoft.com/kb/252908/EN-US/（原代码在VS2008中不可用）加工而成
首先需添加引用
Microsoft ActiveX Data Objects 2.x Library
Microsoft ADO Ext. 2.x for DDL and Security
VB.NET code:
Imports ADOX
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'创建新的空access数据库表
Dim cat As Catalog = New Catalog()
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source= NewMDB.mdb")
'Console.WriteLine("Database Created Successfully")
' 以下代码创建一个名为Test_Table单主键新表
Dim Cn As ADODB.Connection = New ADODB.Connection '定义连接
Dim objTable As ADOX.Table = New ADOX.Table '定义新表
'Cn = New ADODB.Connection
'objTable = New ADOX.Table
'Open the connection
Cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=NewMDB.mdb") '链接到数据库
objTable.Name = "测试项目表" '表命名
'给表“测试项目表” 创建一个新的字段，字段名“主键”
objTable.Columns.Append("主键", , ADOX.DataTypeEnum.adInteger)
'创建并追加一个新的关键。注意：我们只是通过“PimaryKey_Field”作为主键源列。新键被追加到“测试项目表”的键集
相关问答：
VB怎样获得鼠标处的超级连接呢？
在WebBrowser控件中有这样一个事件:StatusTextChange(index As Integer, ByVal Text As String)
它的Text参数正是鼠标处的超级连接,但问题是如果我的浏览器正� ......
我在类中有一个函数
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
rt，我试了网上直连Acces数据库的方法,windows下没有问题,但是在linux下不行，谁能给点提示？谢谢
你怎么连的？
Acces数据库..
你怎么练的呢？
Java code:
static String DBDRIVER = "sun.jd ......
现在我想根据treeview上每个节点的权限，没有权限的节点不能被选中，而且成灰色，怎么实现，在线等。。。
这个？。。。
貌似没法。
试试能不能改某些node的颜色，记录下上次的nodeclick里的node。
下次点击的如� ......
现在有个xml文件是<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
