ADODC控件为ACCESS数据库建立新表的一种方法
1、添加ADODC到窗体
2、ACESS数据库中至少有一张表存在。
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
"C:\Documents and Settings\Administrator\" & _
"My Documents\11.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdUnknown
Adodc1.RecordSource = "select top 1 * from tb11"
Adodc1.Refresh
With Adodc1.Recordset.ActiveConnection
.Execute = "CREATE TABLE [NT_channel_product3]([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 ," & _
"[Content] memo NULL ,[NaviContent] text (200) NULL ," & _
"[ContentProperty] text (9) NULL ,[Author] text (100) NULL ," & _
"[EdITor] text (50) NULL ,[Souce] text (100) NULL ,[OrderID] byte NOT NULL ," & _
"[Tags] text (100) NULL ,[Templet] text (200) NULL ," & _
"[SavePath] text (200) NULL ,[FileName] text (100) NULL ," & _
"[isDelPoint] byte NOT NULL ,[Gpoint] long NULL ,[iPoint] long NULL ," & _
"[GroupNumber] memo NULL ,[Metakeywords] text (200) NULL ," & _
"[Metadesc] text (200) NULL ,[Click] long NULL ," & _
"[CreatTime] datetime NULL ,[isHTML] byte NOT NULL ," & _
"[isConstr] byte NOT NULL ,[ConstrTF] byte NOT NULL)"
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">路径+文件 ......
ACCESS数据库界面：
EXCEL的窗体界面：
窗体中的代码：
Private Sub ComboBox1_Change()
Dim cn As Object, sql$, arr, i&
Set cn = CreateObject("adodb.connection")
cn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & ThisWorkbook.Path & "\后台.mdb"
Me.ListBox1.Clear
......
部分论坛新手们没警惕自己论坛数据库存在的危险，所以还是 决定以Dvbbs7.0为例，介绍一下如何保护好你的Access数据库 。闲话休说，请往下看：
1、给你的Access数据库加上密码保护（其实Access数据库 的密码保护非常脆弱，这里，只是给他多加上一把锁而已）。
a.打开MicroSoft Access软件，是用独占方式打开你的DV论 坛数� ......
[php]
<?php
--------------------------------------------------------------------
//FileName:class.php
//Summary: Access数据库操作类
//Author: forest
//CreateTime: 2006-8-10
//LastModifed:
//copyright (c)2006
//http://freeweb.nyist.net/~chairy
//cha ......
