动态建表

Question

我需要在程序运行时动态的建表
我想问一下，我的程序是怎么错了，提示字句定义语法错误Const adoPath = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
Const DBName = "\CIP.mdb"
Dim Conn As New ADODB.Connection
Conn.Open adoPath & APP.PATH & DBName
Const txtCreate="Create Table " & Trim(txtUser.Text) & "(ID counter not null,Year_
    char(4) not null,Mouth char(4) not null,Day char(4) not null,Oper char(4)_
    not null,Re memo,PRIMARY KEY(ID))"
Conn.Execute txtCreate
Conn.Close

Answer 1

http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=195890

Answer 2

    不要把SQL Server的语句直接用于Access。它们之间有许多不通用的地方。还有，象year,month,day 这样的字段名，最好用中括号括起来。

Answer 3

举个例子来看看啊！！！
用rs怎么做？
用command又怎么做？

Answer 4

直接建表比较麻烦
我事先做一个表
在后面添加表时用复制它就行了
txtCreate = "select * into " & Trim(txtUser.Text) & " from model where year=''"
        Set Comm.ActiveConnection = Conn
        Comm.CommandText = txtCreate
        Comm.Execute