求创建新表实例？在线等
帮忙看看正确写法：
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
问题点数：20、回复次数：4Top
1 楼shengqile（理由）回复于 2005-04-01 13:32:29 得分 0
ALTER TABLE tb ADD FieldName VARCHAR(16) NOT NULL
可以添加字段却提示出错，帮忙看看正确写法Top
2 楼shengqile（理由）回复于 2005-04-01 13:36:07 得分 0
还想问问如何显示数据库中所有表名？access的Top
3 楼shengqile（理由）回复于 2005-04-01 13:48:16 得分 0
上面提到的问题就是创建含有新字段的新表。有没有人能给个例子啊Top
4 楼vbnewplay（两只蝴蝶）回复于 2005-04-02 17:16:47 得分 20
先建表再添加字段可以解决问题
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.Close
End Sub
Call SelectIntoX
Dim dbs As Database
Set dbs = OpenDatabase(App.Path & "\admin.mdb")
dbs.Execute "ALTER TABLE " & Trim((Text1.Text)) & "tb " _
& "ADD COLUMN 客户 text;"
dbs.Close
Set rs = New ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Open strCnn
rs.Open "select * from " & (Text1.Text) & "tb", cnn, adOpenKeyset, adLockOptimistic
rs.MoveFirst
While Not rs.EOF
rs.Fields!客户 = Text1.Text
rs.MoveNext
Wend
Top
