Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Как добавить новые данные в базу данных


Как добавить новые данные в базу данных
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 [...]


В избранное