如何在Access数据库中新建表???

我现在想通过VB程序在Access数据库中新建表.  
  程序代码如下:  
  '---设置数据库的连接-----  
  ......  
  Set   cn   =   New   ADODB.Connection  
  With   cn  
  '             .ConnectionString   =   "Provider=sqloledb;Data   Source=B-136C0E5F02614;initial   catalog=pressure_data;Integrated   Security=SSPI;   "  
              .ConnectionString   =   "Provider=Microsoft.Jet.OLEDB.4.0;Data   Source="   &   App.Path   &   "\db2.mdb;"  
              .Open  
  End   With  
  '-----------------------  
  cn.Execute   "create   table"   &   Str(Blank_Address)   &   "_当天(Date1   日期/时间,Time1   日期/时间,Data   文本)"  
   
  我想创建的表格其实就是三个字段:Date1,类型是日期/时间,Time1,类型也是时间/日期.Data,类型是文本.表的名称是Blank_Address变量加上当天,比如,Blank_Address=1的时候,表的名称就是1_当天.  
   
  但是运行的时候会报类型不匹配,并且指向cn.Execute   "create   table"   &   Str(Blank_Address)   &   "_当天(Date1   日期/时间,Time1   日期/时间,Data   文本)"  
  那么错在哪儿呢?  
  第一次用数据库,很多不知道.  
  谢谢谢谢!!  
   
   
  问题点数：40、回复次数：9Top

1 楼faysky2（出来混，迟早是要还嘀）回复于 2006-03-08 14:34:35 得分 20

creat   table   ....  
  table后面要有个空格  
   
  另外，字段类型也没写对  
   
  请参考下面代码（已测试）：  
   
  cn.Execute   "Create   Table   ["   &   Trim(CStr(Blank_Address))   &   "_当天]([Date1]DATETIME,[Time1]DATETIME,[Data]Text(50))"Top

2 楼tztz520（午夜逛街）回复于 2006-03-08 14:40:59 得分 5

dim   tablename  
  tablename="表名"  
  cn.Execute   "CREATE   TABLE   "   &   tablename&   "(Date1   date,   Date2   date,Date3   text(50))"  
  Top

3 楼Modest（塞北雪貂)·(偶最欣赏楼主的分）回复于 2006-03-08 15:30:14 得分 0

http://www.chenoe.com/blog/blogview.asp?logID=1912Top

4 楼njstalk（风和日丽）回复于 2006-03-08 15:42:18 得分 5

cn.Execute   "create   table"   &   Str(Blank_Address)   &   "_当天(Date1   日期/时间,Time1   日期/时间,Data   文本)"  
  这句没看懂样。给你找个出现过多次的建立数据的一个样本语句：  
  conn.Execute("create       table       ttt(id       COUNTER       CONSTRAINT       PrimaryKey       PRIMARY       KEY,name       varchar(255))")  
  Top

5 楼littleke（小可）回复于 2006-03-08 16:08:41 得分 0

学习中。。。。  
  Top

6 楼guo1205（明明）回复于 2006-03-08 16:37:57 得分 0

学习中、、、、Top

7 楼faysky2（出来混，迟早是要还嘀）回复于 2006-03-08 17:32:04 得分 10

cn.Execute   "Create   Table   ["   &   CStr(Blank_Address)   &   "_当天]([Date1]DATETIME,[Time1]DATETIME,[Data]Text(50))"  
  或  
  cn.Execute   "Create   Table   ["   &   CStr(Blank_Address)   &   "_当天]([Date1]Date,[Time1]Date,[Data]Text(50))"  
   
  都可以  
  Top

8 楼Free_Windy（自由风）回复于 2006-03-08 21:36:42 得分 0

和在MSSQL里的新增是一样的,  
  记住格式不要写错.Top

9 楼shanquan20061981（）回复于 2006-03-10 15:21:43 得分 0

谢谢谢谢Top

相关问题

• 数据库
• 文本
• date
• 谢谢
• 日期
• 类型
• cn
• 时间
• execute
• create table

• 帖主：shanquan20061981
• faysky2
• tztz520
• njstalk
• faysky2

• Visual Basic类图书
• Visual Basic类源码下载