MS Access Максимальное кол-во полей?

[JohnK]

С базами работал мало, и тут такая вот беда. Создаю таблицу с полями, создает до 12 полей максимум а больше не хочет в чем может быть проблема?

Код: Выделить всё

lngDBOpts = dbVersion40 + dbEncrypt
Set NewWs = DBEngine.Workspaces(0)
Set NewDB = NewWs.CreateDatabase(DBFilePath, dbLangCyrillic, lngDBOpts)
strTblName = "ATable"
Set NewTbl = NewDB.CreateTableDef(strTblName)

ret = AddTableField(NewTbl, 1, "z", dbLong, 0)
ret = AddTableField(NewTbl, 2, "zz", dbText, 127)
ret = AddTableField(NewTbl, 3, "zzz", dbText, 63)
ret = AddTableField(NewTbl, 4, "zztzz", dbText, 63)
ret = AddTableField(NewTbl, 5, "zzzrzz", dbText, 63)
ret = AddTableField(NewTbl, 6, "zzzezzz", dbText, 63)
ret = AddTableField(NewTbl, 7, "zzzrzzz", dbDate, 0)
ret = AddTableField(NewTbl, 8, "zztzz", dbText, 255)
ret = AddTableField(NewTbl, 9, "zzhhzzzz", dbMemo, 0)
ret = AddTableField(NewTbl, 10, "gg", dbBoolean, 0)
ret = AddTableField(NewTbl, 11, "dd", dbLong, 0)
ret = AddTableField(NewTbl, 12, "ff", dbLong, 0)
ret = AddTableField(NewTbl, 13, "sss", dbDate, 0)
ret = AddTableField(NewTbl, 14, "ssss", dbLong, 0)

NewDB.TableDefs.Append NewTbl
....


Создает только до "ff" ((

[Денис]

Попробуйте создавать SQL-запросом.

[JohnK]

Спасибо, помогло.
А можно ли с помощью SQL запроса сделать выборку, вернее как "забрать" сформированную базой таблицу?
Я делаю так:

Код: Выделить всё

Public Function User_Login(sUser As String, sPass As String) As Boolean
User_Login = False
Set Users = NewDB.OpenRecordset("SELECT * FROM Users WHERE [Name] = '" & sUser & "' AND [Pass]= '" & sPass & "'")
If Users.EOF Then
    Exit Function
       Else
    User_Login = True
    PR.UserAccessRights = Users.Fields("Rights").Value
End If
Users.Close: Set Users = Nothing
End Function


Это можно сделать так:

Код: Выделить всё

strSQL ="SELECT * FROM Users WHERE [Name] = '" & sUser & "' AND [Pass]= '" & sPass & "'"
NewDB.Execute strSQL

If Err.Number <> 0 Then Exit Function
А дальше?


[iGrok]

А никак. ЕМНИП, Execute предназначен только для запросов, не возвращающих результат.

[alibek]

А никак. ЕМНИП, Execute предназначен только для запросов, не возвращающих результат.

В DAO.

[Andrey Fedorov]

Создает только до "ff" ((

У вас, вообще-то имена подей повторяются...

А так все прекрасно создается...

Код: Выделить всё

    Dim lngDBOpts As Long, NewDB As DAO.Database, NewTbl As TableDef, i As Field

    On Error Resume Next
    Kill "D:\Temp\dd.mdb"
    On Error GoTo 0

    lngDBOpts = dbVersion40 + dbEncrypt
    Set NewDB = DBEngine.Workspaces(0).CreateDatabase("D:\Temp\dd.mdb", dbLangCyrillic, lngDBOpts)
    Set NewTbl = NewDB.CreateTableDef("ATable")

    NewTbl.Fields.Append NewTbl.CreateField("z", dbLong, 0)
    NewTbl.Fields.Append NewTbl.CreateField("zz", dbText, 127)
    NewTbl.Fields.Append NewTbl.CreateField("zzz", dbText, 63)
    NewTbl.Fields.Append NewTbl.CreateField("zztzz", dbText, 63)
    NewTbl.Fields.Append NewTbl.CreateField("zzzrzz", dbText, 63)
    NewTbl.Fields.Append NewTbl.CreateField("zzzezzz", dbText, 63)
    NewTbl.Fields.Append NewTbl.CreateField("zzzrzzz", dbDate, 0)
    NewTbl.Fields.Append NewTbl.CreateField("zztzz_", dbText, 255)
    NewTbl.Fields.Append NewTbl.CreateField("zzhhzzzz", dbMemo, 0)
    NewTbl.Fields.Append NewTbl.CreateField("gg", dbBoolean, 0)
    NewTbl.Fields.Append NewTbl.CreateField("dd", dbLong, 0)
    NewTbl.Fields.Append NewTbl.CreateField("ff", dbLong, 0)
    NewTbl.Fields.Append NewTbl.CreateField("sss", dbDate, 0)
    NewTbl.Fields.Append NewTbl.CreateField("ssss", dbLong, 0)

    NewDB.TableDefs.Append NewTbl