// 3. загружаем DAO:try
access := GetActiveOleObject('DAO.DBEngine.35');
except
access := CreateOleObject('DAO.DBEngine.35');
end;
// 4. открываем базу данныхtry
db := access.OpenDatabase(yourDatabaseName);
except
exit
end;
// 5. созда¸м новую таблицу в открытой базе данных
td := db.CreateTableDef(yourTableName, 0, '', '');
// 6. добавляем в таблицу поле с описаниями
td.Fields.Append(td.CreateField(strFieldName,
arrMDBTypes[intDataType], Size));
// например,
td.Fields.Append(td.CreateField('ID', arrMDBTypes[intDataType], Size));
td.Fields.Append(td.CreateField('NAME', arrMDBTypes[intDataType], Size));
// 7. добавляем таблицу в список таблиц
db.TableDefs.Append(td);
// 8. открываем созданную таблицу
recordset := db.OpenTable(yourTableName, 0);
// 9. добавляем новую запись в открытую таблицу
recordset.AddNew;
// 10. изменяем значения поля
curField := recordset.Fields[0].Value := 1;
curField := recordset.Fields[1].Value := 'First record';
// 11. помещаем новую запись в базу
recordset.Update(dbUpdateRegular, False);
// гдеconst
dbUpdateRegular = 1;
// 12. закрываем recordset
recordset.Close;
// 13. закрываем базу данных
db.Close;
// 14. освобождаем экземпляр DAO
access := UnAssigned;
Создание таблицы в MS Access с помощью DAO: обявляем переменные, загружаем DAO, открываем базу данных, создаем новую таблицу, добавляем поля, добавляем таблицу в список таблиц, открываем созданную таблицу, добавляем новую запись, изменяем значения поля и
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.