12
Январь
2010
Как добавить новые данные в базу данных
Как добавить новые данные в базу данных
Меню Проект => Ссылки => 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 Then Exit Sub
'добавление данных в БД
RS.AddNew
RS("data") = strData
RS.Update