求创建新表实例？在线等

Question

帮忙看看正确写法：
text1内容为客户名。text2内容为利润率。KC为库存表。包含字段 商品名称，进价，数量等等
希望创建的新表是
客户        商品名称 售价
text1.text    BB      30.2
text1.text    CC      10.8现在如果只想得到 商品名称，进价可以作到 select 商品名称,进价into [&"text2.text)&"] from kc
就行了。好象是添加一个字段就出错。帮忙看看怎么整泥。
select "&(text1.text) &",商品名称，(进价*(text2.text)) as 售价 into "&(text1.text)&"&tb from kc*************************再问一下如何给表TB添加字段name

Answer 1

ALTER TABLE tb ADD FieldName VARCHAR(16) NOT NULL
可以添加字段却提示出错，帮忙看看正确写法

Answer 2

还想问问如何显示数据库中所有表名？access的

Answer 3

先建表再添加字段可以解决问题
Sub SelectIntoX()    Dim dbs As Database    Dim qdf As QueryDef
       Set dbs = OpenDatabase(App.Path & "\admin.mdb")    dbs.Execute "SELECT 商品名称,进价 INTO " & "[" & Trim((Text1.Text)) & "tb] FROM kc;"    dbs.CloseEnd SubCall SelectIntoX
Dim dbs As Database
 
    Set dbs = OpenDatabase(App.Path & "\admin.mdb")    dbs.Execute "ALTER TABLE " & Trim((Text1.Text)) & "tb " _
        & "ADD COLUMN 客户 text;"    dbs.CloseSet rs = New ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Open strCnnrs.Open "select * from " & (Text1.Text) & "tb", cnn, adOpenKeyset, adLockOptimistic
rs.MoveFirst
While Not rs.EOF
rs.Fields!客户 = Text1.Text
rs.MoveNext
Wend