注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

Mr.Right

不顾一切的去想,于是我们有了梦想。脚踏实地的去做,于是梦想成了现实。

 
 
 

日志

 
 
关于我

人生一年又一年,只要每年都有所积累,有所成长,都有那么一次自己认为满意的花开时刻就好。即使一时不顺,也要敞开胸怀。生命的荣枯并不是简单的重复,一时的得失不是成败的尺度。花开不是荣耀,而是一个美丽的结束,花谢也不是耻辱,而是一个低调的开始。

网易考拉推荐

VBA将多个相同的Excel插入到Access  

2016-03-04 23:12:06|  分类: 默认分类 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
' VBA editor ——–>Tools——->References
' Microsoft ADO Ext 2.8 for DDL and Security
' Microsoft ActiveX Data Objects 2.x Library
Sub mergeIn1()
    Dim cnn As New ADODB.Connection
    Dim Cat  As New ADOX.Catalog
    Dim MyData$, MyFile, n%
    MyData = ThisWorkbook.Path & "\数据库.accdb"
    On Error Resume Next
    If Dir(MyData) = "" Then
        Cat.Create "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & MyData
    Else
        Cat.ActiveConnection = "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & MyData
        Cat.Tables.Delete "数据表1"
    End If
    Set Cat = Nothing
    On Error GoTo 0
    cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & MyData
    Mypath = ThisWorkbook.Path & "\"
    MyFile = Dir(Mypath & "*.xlsx")
    Do While MyFile <> ""
        n = n + 1
        If n = 1 Then
            cnn.Execute "select * into 数据表1 from [Excel 12.0;Database=" & Mypath & MyFile & "].[Sheet1$]"
        Else
            cnn.Execute "insert into 数据表1 select * from [Excel 12.0;Database=" & Mypath & MyFile & "].[Sheet1$]"
        End If
        MyFile = Dir()
    Loop
    cnn.Close
    Set cnn = Nothing
    MsgBox "ok"
End Sub


----------------------------------------------------------------
ACCESS中SQL语句汇总
create table 雇员 (雇员号 smallint primary key, 姓名 char(4) not null, 性别 char(1), 出生日期 date, 部门 char(20), 备注 memo )

创建一张空表: Sql="Create TABLE [表名]"

创建一张有字段的表: Sql="Create TABLE [表名]([字段名1] MEMO NOT NULL, [字段名2] MEMO, [字段名3] COUNTER NOT NULL, [字段名4] DATETIME, [字段名5] TEXT(200), [字段名6] TEXT(200))

字段类型:   

2 : "SmallInt",                 // 整型    
3 : "Int",                 // 长整型    
4 : "Real",                 // 单精度型    
5 : "Float",                 // 双精度型    
6 : "Money",                 // 货币    
7 : "DateTime",                 // 日期时间 
11 : "Bit",                 // 是否 
13 : "TimeStamp", 
17 : "TinyInt",                 // 字节 
72 : "UniqueIdentifier",         // 同步复制 ID 
128 : "Binary", 
129 : "Char", 
130 : "NChar", 
131 : "Decimal",                 // 小数 
133 : "DateTime", 
135 : "SmallDateTime", 
200 : "VarChar", 
201 : "Text", 
202 : "VarChar",                 // 文本 
203 : "Text",                 // 备注 
204 : "Binary",                 // 二进制 
205 : "Image"                 // OLE 对象

以下字段为无编码字段(NChar、NVarchar、NText型) 8,128,130,202,203,204,205 以下字段为按当前系统内码编码的字段(Asp中可用CodePage=936纠正为gb2312内码) 129,200,201

在现有的表中增加字段: 
Sql="alter table [表名] add column [字段名] varchar(200)"

修改字段类型: 
Sql="alter table [表名] Alter COLUMN 字段名]   varchar(50)"

删除表: 
Sql="Drop table [表名]"

删除字段: 
sql="alter table [表名] drop [字段名]"

修改字段:
Alter TABLE [表名] Alter COLUMN [字段名] 类型(大小) NULL

新建约束:
Alter TABLE [表名] ADD CONSTRAINT 约束名 CHECK ([约束字段] <= '2007-1-1')

删除约束:
Alter TABLE [表名] Drop CONSTRAINT 约束名

新建默认值:
Alter TABLE [表名] ADD CONSTRAINT 默认值名 DEFAULT 'Gziu.CoM' FOR [字段名]

删除默认值:
Alter TABLE [表名] Drop CONSTRAINT 默认值名

=======================================

conn.open connstr sql="alter table [tablename] add hehe char(20)" conn.execute(sql) response.write("添加成功")

  评论这张
 
阅读(135)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2016