![]() |
Здравствуйте, гость ( Вход | Регистрация )
![]() |
Гость_Mamont_* |
![]()
Сообщение
#1
|
Guests ![]() |
Необходимо написать программу. Все могу сам, но уперся в один вопрос, решение которого ни где не могу найти.
Требуется, чтобы программа не создавая никаких дополнительных файлов могла хранить некоторый объем текстовой информации. Т.е. запускаешь прогу, записываешь пару строк, закрываешь прогу. Опять запускаешь прогу, и информация введенная ранее доступна для чтения и редактирования. |
|
|
![]() |
Гость_belka_* |
![]()
Сообщение
#2
|
Guests ![]() |
а БД у всех уже есть
так раз не сложно, как ты себе это представляешь? |
|
|
Гость_Mamont_* |
![]()
Сообщение
#3
|
Guests ![]() |
а БД у всех уже есть так раз не сложно, как ты себе это представляешь? Самый примитивный пример программы, работающей с БД: Код Private Sub cmdAdd_Click() prompt$ = "Для добавления новой записи нажмите кнопку ОК" reply = MsgBox(prompt$, vbOKCancel, "Добавление записи") If reply = vbOK Then txtTitle.SetFocus datStudent.Recordset.AddNew End If End Sub Private Sub cmdDelete_Click() prompt$ = "Вы действительно хотите удалить этот курс ?" reply = MsgBox(prompt$, vbOKCancel, "Удаление записи") If reply = vbOK Then datStudent.Recordset.Delete datStudent.Recordset.MoveNext End If End Sub Private Sub cmdFind_Click() prompt$ = "Введите полное наименование курса." SearchStr$ = InputBox(prompt$, "Поиск курса") datStudent.Recordset.Index = "ClassName" datStudent.Recordset.Seek "=", SearchStr$ If datStudent.Recordset.NoMatch Then datStudent.Recordset.MoveFirst End If End Sub Private Sub cmdQuit_Click() End End Sub Private Sub Form_Load() prompt$ = _ "Вы хотите создать резервную копию ваших данных?" reply = MsgBox(prompt$, vbOKCancel, datStudent.DatabaseName) If reply = vbOK Then FileNm$ = InputBox$ _ ("Введите путь где будет создана резервная копия.") If FileNm$ <> "" Then _ FileCopy datStudent.DatabaseName, FileNm$ End If End Sub Само собой это кусок программы Сообщение отредактировал Mamont - Feb 1 2007, 12:30 |
|
|
Гость_belka_* |
![]()
Сообщение
#4
|
Guests ![]() |
|
|
|
Гость_Mamont_* |
![]()
Сообщение
#5
|
Guests ![]() |
|
|
|
![]() ![]() |
![]() |
Текстовая версия | Сейчас: 22nd June 2025 - 02:05 |