Как добавить новые данные в базу данных
2010-01-12 07:00 Александр
Как добавить новые данные в базу данных
Меню Проект => Ссылки => Microsoft DAO 3.6 Object Library
Dim RS As DAO.Recordset
Dim db As DAO.Database
Dim strSQL As String
'подключение к базе данных Access
Set db = DAO.OpenDatabase(App.Path & "\db.mdb")
Dim strData As String
'диалоговое окно ввода данных
strData = InputBox("Введите данные:", "Добавление данных")
'если данные не указаны, выход из процедуры
If Len(strData) < = 0 [...]