RE: Как в Visual Basic 6 добавить запись в существующую таблицу MS Access ?

arskos — Wed, 15 Aug 2007 17:59:30 GMT

Добавь модуль в свою базу данных, предварительно создав таблицу "Календарь" с полями "Дата" (тип - дата/время) и "День" (тип - текстовый). Текст модуля:

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

И посмотри, что будет. Опробована на 2007 офисе.

Как в Visual Basic 6 добавить запись в существующую таблицу MS Access ?

Rump — Tue, 07 Aug 2007 16:39:39 GMT

Здравствуйте ! Мне необходимо решить следующую задачу: допустим существует таблица MS Access 2003 c двумя напр. полями Field1 и Field2. Подскажите пожалуйста, как с помощью Visual Basic 6 добавить туда запись ?

Релиб / Программирование / Visual Basic / Как в Visual Basic 6 добавить запись в существующую таблицу MS Access ? / Latest Posts

RE: Как в Visual Basic 6 добавить запись в существующую таблицу MS Access ?

Как в Visual Basic 6 добавить запись в существующую таблицу MS Access ?