Question

能在ACCESS中通过SQL语言的编写创建表吗?

我的意思是说在ACCESS中有没有编写SQL的工具?如果没有,那么其他什么SQL编写工具比较好用,好上手呢?
就是用"creat XX"这样的形式编的。

Answer 1

<%
'变量定义赋值
Dim objADOXDatabase    '更改表名对象
Dim ConnStr        '数据库连接
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("/data/k88_data.mdb")

'建表
Sub AddTable(TableName)
    On Error Resume Next
    objConn.Execute("CREATE Table "& TableName &"")
    If Err Then
        Response.Write "添加 <font color=#4455aa>"&TableName&"</font> 表<font color=blue>错误</font>，请手动添加 <font color=red><B>"&TableName&"</B></font> 表，原因" & Err.Description & "<BR>"
        Err.Clear
        Response.Flush
    Else
        Response.Write "添加 <font color=#4455aa>"&TableName&"</font> 表成功 <BR>"
        Response.Flush
    End If
End Sub

'添加字段通用函数
Sub AddColumn(TableName,ColumnName,ColumnType)
    On Error Resume Next
    objConn.Execute("Alter Table "&TableName&" Add "&ColumnName&" "&ColumnType&"")
    If Err Then
        Response.Write "新建 <font color=red>"&TableName&"</font> 表中字段<font color=blue>错误</font>，请手动在 <font color=blue>"& TableName &"</font> 数据表中建立 <font color=red><B>"&ColumnName&"</B></font> 字段，属性为 <B>"&ColumnType&"</B>，原因" & Err.Description & "<BR>"
        Err.Clear
        Response.Flush
    Else
        Response.Write "新建 <font color=#4455aa>"&TableName&"</font> 表中字段 <font color=red>"&ColumnName&"</font> 成功 <BR>"
        Response.Flush
    End If
End Sub
%>