Добавить в базу данных

[Emzari]

имеется база данных и данные которие ноходятся в массиве как ети данные занести в базу даннх. база содержит толко одну таблицу.

[kazah_]

создаешь переменную типа БД.
Далее запихиваешь значение с помощью БД.ADD
а потом БД.Update и все это в цикле!!!

[kazah_]

Там много заморочек с этим, подробнее хочешь пиши dennis-kz@km.ru

[Emzari]

поискал немного в MSDN и разобрался

всё вышло примерно так:
Сначала через Project -> References подклучаем библиотеку Microsoft DAO 3.51 Object Library

дапустим в переменной strPath хранится путь к нашей базе данных

Table1 - Таблица в нашеи базе данных в котором надо знести нужные данные
FName и LName - поля в этои таблице

потом в форме пишем

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

    'обявление нужных переменных
    Dim wrkJet As Workspace
    Dim bdBase As Database
    Dim rstRecordset As Recordset
   
    'откриваем Workspace
    Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)
    'откриваем базу данных
    Set bdBaza = wrkJet.OpenDatabase(strPath)
    'откриваем Recordset
    Set rstRecordset = bdBaza.OpenRecordset("Table1")
   
    'начинаем транзакцию
    wrkJet.BeginTrans
    With rstRecordset
   'дабавление новои строки
        .AddNew
   'записиваем в нужные поля
        !FName = "имя"
        !LName = "фамилия"
   'обновление
        .Update
    End With
    'заканчиваем транзакцию
    wrkJet.CommitTrans   
   
    'закриваем всех обыектных переменных
    rstRecordset.Close
    bdBase.Close
    wrkJet.Close


остаолсь только организовать всё в цикле и всё.

[jan]

не работает такой код.
в месте 'дабавление новои строки
.AddNew
говорит ошибка 3027. Database is ead only