VBNet - Форум - Ошибка

Вопрос: Ошибка Добавлено: 22.07.03 21:02

Автор вопроса: ZoomerSD | ICQ: 148640473

подскажите, что может значить ошибка № 3001 invalid argument в строке dbNalogDB.TableDefs.Append tbmain ( создание базы данных с помощью DAO )

Ответить

Ответы Всего ответов: 3

Номер ответа: 1
Автор ответа:

USA

Вопросов: 1
Ответов: 184

Профиль | | #1

Добавлено: 23.07.03 00:40

Может таблица неинициализированна. До этой стироки должно быть примерно следующее:

Dim tbmain As TableDef

Set tbmain = New TableDef

Ответить

Номер ответа: 2
Автор ответа:

ZoomerSD

ICQ: 148640473

Вопросов: 135
Ответов: 270

Профиль | | #2

Добавлено: 23.07.03 00:55

самое обидное, что да, вот весь код

Dim dbNalogDB As Database, NewWs As Workspace 'Описание БД и рабочей области
Dim dbOpts As Long, dbName As String, tbmain, tbPrint As TableDef
Dim Klass, s_name, s_fname, s_isikukood, s_adress, m_name, m_fname, m_isikukood, m_adress, printed, printer As Field
dbName = App.path & "\NalogDB.Mdb"
Set NewWs = DBEngine.Workspaces(0) ' Создание рабочей области
dbOpts = dbVersion35 + dnEncrypt ' Параметры БД - версия Jet-машины 3,5 и кодирование.
Set dbNalogDB = NewWs.CreateDatabase(dbName, dbLangCyrillic, dbOpts) ' Создание рускоязычной БД
Set tbmain = dbNalogDB.CreateTableDef("Ученики")
Set Klass = tbmain.CreateField("Klass", dbText, 50)
Set s_name = tbmain.CreateField("s_name", dbText, 50) ' Создание поля в таблице с именем Код
Set s_fname = tbmain.CreateField("s_fname", dbText, 50)
Set s_isikukood = tbmain.CreateField("s_isikukood", dbDouble)
Set s_adress = tbmain.CreateField("s_adress", dbText, 100)
Set m_name = tbmain.CreateField("m_name", dbText, 50)
Set m_fname = tbmain.CreateField("m_fname", dbText, 50)
Set m_isikukood = tbmain.CreateField("m_isikukood", dbDouble)
Set m_adress = tbmain.CreateField("m_adress", dbText, 100)
Set printed = tbmain.CreateField("print", dbInteger)
s_isikukood.Attributes = dbAutoIncrField
tbmain.Fields.Append Klass
tbmain.Fields.Append s_name
tbmain.Fields.Append s_fname
tbmain.Fields.Append s_isikukood
tbmain.Fields.Append s_adress
tbmain.Fields.Append m_name
tbmain.Fields.Append m_isikukood
tbmain.Fields.Append m_adress
tbmain.Fields.Append printed
dbNalogDB.TableDefs.Append tbmain
dbNalogDB.Close
Unload Me

Ответить

Номер ответа: 3
Автор ответа:

USA

Вопросов: 1
Ответов: 184

Профиль | | #3

Добавлено: 23.07.03 01:13

Области в DAO добавлять можно, может это даже лучше выриант, где так:

Dim Fld As Field

Dim TD As TableDef

Set Fld = New Field

Fld.Name = "..."

....

TD.Fields.Add Fld

Ответить

Страница: 1 |