Как в Visual Basic 6 добавить запись в существующую таблицу MS Access ? - VB
Формулировка задачи:
Здравствуйте ! Мне необходимо решить следующую задачу: допустим существует таблица MS Access 2003 c двумя напр. полями Field1 и Field2. Подскажите пожалуйста, как с помощью Visual Basic 6 добавить туда запись ?
Решение задачи: «Как в Visual Basic 6 добавить запись в существующую таблицу MS Access ?»
textual
Листинг программы
Function per() Dim tabl1 As Recordset 'выбранная таблица Dim a As Date Dim b As Date Dim c As Long Dim tekzap As Date Set tabl1 = CurrentDb.OpenRecordset("Календарь") a = "01.01.2007" b = "31.12.2007" c = b - a + 1 Do Until c = 0 tabl1.AddNew tabl1![Дата] = a tabl1.Update a = a + 1 c = c - 1 Loop Close Set tabl1 = CurrentDb.OpenRecordset("Календарь") a = "01.01.2007" b = "31.12.2007" c = (b - a + 1) / 7 Do Until c = 0 d = 0 Do Until d = 7 d = d + 1 If d = 1 Then e = "пн" If d = 2 Then e = "вт" If d = 3 Then e = "ср" If d = 4 Then e = "чт" If d = 5 Then e = "пт" If d = 6 Then e = "сб" If d = 7 Then e = "вс" tabl1.Edit tabl1![День] = e tabl1.Update tabl1.MoveNext Loop a = a + 1 c = c - 1 Loop Close End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д