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
相关文档：
MS Access语法错误信息
This short article deals with the following common MS Access-related error messages:
Syntax error (missing operator) in query expression 'field='some_partial_string'
Syntax error in INSERT INTO statement
Syntax error in UPDATE statement
Syntax error in from clause
Sy ......
部分论坛新手们没警惕自己论坛数据库存在的危险，所以还是 决定以Dvbbs7.0为例，介绍一下如何保护好你的Access数据库 。闲话休说，请往下看：
1、给你的Access数据库加上密码保护（其实Access数据库 的密码保护非常脆弱，这里，只是给他多加上一把锁而已）。
a.打开MicroSoft Access软件，是用独占方式打开你的DV论 坛数� ......
Microsoft Jet OLE DB 4.0
Standard security:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;User Id=admin;Password=;
With database password:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;Jet OLEDB:Database Password=MyDbPassword;
Workgroup (system database):
Prov ......
pos25 = find (coll.begin(), coll.end(), //range
25); //value
pos35 = find (coll.begin(), pos25, //range
35); //value
if (pos35 != pos25) {
/*pos35 is in front of pos25
*so, only [pos35,pos25) is valid
*/
...
}
else {
pos35 = find (pos25, coll.end ......
