在EXCEL中使用SQL语句查询集锦-持续更新中，敬请关注

felix301

工作簿中的N多个工作表自动生成一个具有相同表名和字段的MDB怎么写代码！可以给我个模板吗  

haofeng111

给力！~~谢谢老大~~

XXC

道个谢，做个记号，慢慢学习

vicencl

MARK-------------------------------------------

740688321

好帖，感谢楼主   

qinyu0745

SQL学习知识，收藏标记！谢谢

用心修炼

太厉害了，占位，后续学习

opiona

felix301 发表于 2019-5-16 22:45
工作簿中的N多个工作表自动生成一个具有相同表名和字段的MDB怎么写代码！可以给我个模板吗

1. **************************************************************************************************************************************************ACCESS创建数据表
   
2. '=================================================================================================================================================VBA  
   
3.         StrSQL = "CREATE TABLE ACCESS测试表 ("    '//数据表名 后面跟[(] 和最后[)]成对
   
4.         StrSQL = StrSQL & "[自动编号] COUNTER(1, 1) CONSTRAINT PK_TVIPLevel26 PRIMARY KEY"  '//自动编号，从1开始，步长为1
   
5.         StrSQL = StrSQL & ",[文本255] VARCHAR NOT NULL"      '//前后无空格，中间以空格分开，结尾是[,]
   
6.         StrSQL = StrSQL & ",[文本20] VARCHAR(20) NOT NULL"
   
7.         StrSQL = StrSQL & ",[日期时间] DATETIME"
   
8.         StrSQL = StrSQL & ",[数字1] BYTE"
   
9.         StrSQL = StrSQL & ",[数字2] SMALLINT DEFAULT 0 "
   
10.         StrSQL = StrSQL & ",[数字4] INTEGER DEFAULT 0 "
    
11.         StrSQL = StrSQL & ",[货币] CURRENCY"
    
12.         StrSQL = StrSQL & ",[小数] NUMERIC DEFAULT 0 "
    
13.         StrSQL = StrSQL & ",[单精度] REAL"
    
14.         StrSQL = StrSQL & ",[双精度] FLOAT DEFAULT 0 NOT NULL"
    
15.         StrSQL = StrSQL & ",[备注] MEMO"
    
16.         StrSQL = StrSQL & ",[布尔] BIT"
    
17.         StrSQL = StrSQL & ",[OLE对象] IMAGE)"     '//最后一个，没有逗号 [,]，结尾是[)]       

复制代码

glinmars

谢谢前辈分享，这个对于刚入门的人来说，帮助极大。谢谢

小心学习

学习学习在学习，谢谢了 mark一下