Доступ: создать таблицу, если она не существует

Question

Можете ли вы дать MS Access эквивалент MySQL 'CREATE TABLE ЕСЛИ НЕ СУЩЕСТВУЕТ ...'?

Обновление

Как то так

IF <no such table>
CREATE TABLE history(<fields>)

тоже подойдет

Answer 1

Вот как это сделать через VBA:

Sub ViaVBA()
    Const strSQLCreateFoo_c As String = _
          "CREATE TABLE Foo" & _
          "(" & _
          "MyField1 INTEGER," & _
          "MyField2 Text(10)" & _
          ");"
    Const strSQLAppendBs_c As String = _
          "INSERT INTO Foo (MyField1, MyField2) " & _
          "SELECT Bar.MyField1, Bar.MyField2 " & _
          "FROM Bar " & _
          "WHERE Bar.MyField2 Like 'B*';"

    If Not TableExists("foo") Then
        CurrentDb.Execute strSQLCreateFoo_c
    End If
    CurrentDb.Execute strSQLAppendBs_c
End Sub

Private Function TableExists(ByVal name As String) As Boolean
    On Error Resume Next
    TableExists = LenB(CurrentDb.TableDefs(name).name)
End Function

Answer 2

Для кода DDL SQL ответ - нет. ACE / Jet SQL не имеет никакого синтаксиса управления потоком, и ACE / Jet PROCEDURE может выполнять только один оператор SQL. Да, все верно: ACE / Jet PROCEDURE не поддерживает процедурный код: (

Answer 3

Зачем вам создавать таблицу? Если это для временного хранения данных, то это нормально, обычно это не требуется.

См. Страницу TempTables.MDB на моем веб-сайте, на которой показано, как использовать временный MDB в вашем приложении. http://www.granite.ab.ca/access/temptables.htm