Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Центр помощи > [MS Access] СУБД с помощью программного модуля VB


Автор: neprogrammist 8.1.2010, 21:23
вот тут задание я никак нипойму как сделать, может вы знаете? 

- Для данного программного модуля создать базу данных в СУБД Microsoft Access и через макрос запустить его на выполнение. Результат вывести в виде таблицы.

модуль написан на визуал бэсике, я совершенно в неё не разбираюсь, помогите пожалуйста, как мне это выполнить правильно?

вот модуль:

Код

Public Function прогр(program)
Dim d As Database
Dim s As Recordset
Dim b As Recordset
Dim f As Recordset
Set d = DBEngine.Workspaces(0).Databases(0)
Set f = d.OpenRecordset("Успеваемость")
Set b = d.OpenRecorset("Студенты")
f.Index = "инс"
Do Until b.EOF
f.Seek "=", b!инс
If f.NMatch = True Then
Set s = d.OpenRecordset("УчПланы")
Do Until s.EOF
If b!группа = s!группа Then
f.AddNew
f!инс = b!инс
а!часы = s!часы
f!дисциплина = s!дисциплина
f.Update
End If
s.MoveNext
Loop
End If
b.MoveNext
Loop
MsgBox ("Программа завершена успешно")
End Function

Автор: Данкинг 8.1.2010, 21:30
Цитата(neprogrammist @  8.1.2010,  21:23 Найти цитируемый пост)
может вы знаете? 

Нет, раз уж ты не знаешь, то нам-то куда?! smile 

Цитата(neprogrammist @  8.1.2010,  21:23 Найти цитируемый пост)
как мне это выполнить правильно?

Трудно ответить без конкретного вопроса. Ну, для начала надо создать базу с таблицами "Успеваемость", "Студенты",  и "УчПланы". smile 
В таблице "Успеваемость" создаём поле "инс" и делаем индекс по этому полю "инс" (при этом помним, что всё же кириллицей поля лучше не называть, ну да кому как).

Это уже сделано? smile 

Автор: Akina 8.1.2010, 22:53
Для домашних заданий, курсовых и вопросов типа "Сделайте за меня" существует раздел "Центр Помощи".

Тема перенесена.

Автор: neprogrammist 9.1.2010, 14:52
Цитата(Данкинг @ 8.1.2010,  21:30)
Цитата(neprogrammist @  8.1.2010,  21:23 Найти цитируемый пост)
может вы знаете? 

Нет, раз уж ты не знаешь, то нам-то куда?! smile 

Цитата(neprogrammist @  8.1.2010,  21:23 Найти цитируемый пост)
как мне это выполнить правильно?

Трудно ответить без конкретного вопроса. Ну, для начала надо создать базу с таблицами "Успеваемость", "Студенты",  и "УчПланы". smile 
В таблице "Успеваемость" создаём поле "инс" и делаем индекс по этому полю "инс" (при этом помним, что всё же кириллицей поля лучше не называть, ну да кому как).

Это уже сделано? smile

создать отдельные таблицы для "успеваемость", "учпланы" и т.д ? как их заполнить? сколько нужно столбцов и строк? smile 

Автор: neprogrammist 10.1.2010, 21:00
как базу связать с макросами? в каком порядке их выполнять? и как????

Автор: Данкинг 10.1.2010, 21:05
Цитата(neprogrammist @  10.1.2010,  21:00 Найти цитируемый пост)
как базу связать с макросами?

<ALT>+<F11> - редактор VBA. Там пишутся макросы.

Цитата(neprogrammist @  10.1.2010,  21:00 Найти цитируемый пост)
в каком порядке их выполнять?

В нужном программисту. smile 

Автор: neprogrammist 11.1.2010, 19:35
мне нужно чтобы этот програмный код выполнился и результат вывелся на экран, как это сделать?

Автор: neprogrammist 11.5.2010, 09:29
какие макросы нужно применять в этом случае?

Автор: neprogrammist 10.6.2010, 18:07
вобщем вот че сделал, таблицы с полями и макрос который запускает итоговую, одна проблема как связать таблицы чтобы выполнялся программный код??

Добавлено через 1 минуту и 45 секунд
создал базу, таблицы с полями и макрос который итоговую табу забускает, одна проблема как связать таблицы чтобы выполнялся данный код ??

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)