1、添加ADODC1到窗体
2、准备好一个ACCESS新建的空数据库66.mdb
Private Sub Form_Load()
With Adodc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
"C:\Documents and Settings\Administrator\" & _
"My Documents\66.mdb;Persist Security Info=False"
.RecordSource = "select top 1 id from MSysAccessObjects"
.Refresh
With .Recordset.ActiveConnection
.Execute = "CREATE TABLE [iTB1]([Id] counter CONSTRAINT id PRIMARY KEY," & _
"[ChID] long NOT NULL ,title text(100) NOT NULL ," & _
"[ClassID] long NOT NULL ,[SpecialID] text (200) NULL ," & _
"[TitleColor] text (10) NULL ,[TitleITF] byte NULL ," & _
"[TitleBTF] byte NULL ,[PicURL] text (200) NULL)"
End With
End With
End Sub
1.创建 Access 数据库，并关闭其连接
Access 操作的两个引用:
1) Microsoft ActiveX Data Objects 2.8 Library
2) Microsoft ADO Ext. 2.8 for DDL and Security
/// <summary>
/// 创建数据库并返回连接字符串
/// </summary>
/// <param name="dbName">路径+文件 ......
