Как реализовать сохранение информации?

[mavrados]

Добрый день.
Помогите начинающему!

Есть форма в которой пользователь заполняет ряд полей (всего их около 200)

необходимо после ввода сохранить данные, что бы в дальнейшем можно было просмотреть/изменить.


Как это лучше реализовать?
Подскажите плз направление/идею. Раньше с такой задачей не сталкивался.

Заранее благодарен.

[Viper]

Ндя... Можно конечно ответить, что для сохранения данных существуют такие вещи как запись в файл, запись в базу данных (что строго говоря тоже есть запись в файл) и даже запись в ini-файл или реестр (что правда в данном случае явно неприемлимо), но что сам то автор думает по этому поводу? Неужто никаких мыслей?

[RayShade]

Направление - поиск по форуму. Это обсуждалось раз 100 уже.

Что самое интересное, вопрос не имеет отношения к специфике программирования на VB.

Это просто вопрос здравого смысла И включения головы.

[lister]

Автор скорее всего не умеет делать ни первое ни второе ни третье, отсюда и такой вопрос... А в этом случае нужно просто купить книжку или поковыряться в интернете и научиться.

[ANDLL]

Вообще если поля текстовые\числовые то в VB6 проще делать так:

Код: Выделить всё

'Объявить структуру данных
private type TheData
String1 as string
String2 as string
end type

dim mData as TheData

'для чтения
open file_name for binary as #1
get#1,,mData
close #1

'для записи
open file_name for binary as #1
put #1,,mData
close #1


[AntonGV]

А как дописать данные в конец файла? Я делаю так

Код: Выделить всё

Private Type mType
str1 As String
str2 As String
End Type

Dim m As mtype

Private Sub cmdRead_Click()
Open "C:\1.exe" For Random As #1
Get #1, FileLen("C:\1.exe"), m
Close #1
Text1 = m.str1
Text2 = m.str2
End Sub

Private Sub cmdSave_Click()
m.str1 = Text1
m.str2 = Text2
Open "C:\1.exe" For Random As #1
Put #1, FileLen("C:\1.exe"), m
Close #1
End Sub

но при этом файл, в который дописываю данные, увеличивается во много раз. Что делать?

[tyomitch]

Замени Random на Binary. И обрати внимание, что в примере ANDLL именно Binary.

[AntonGV]

Так у меня не получается считать информацию из файла

Код: Выделить всё

Private Sub cmdRead_Click()
Open "C:\1.exe" For Binary As #1
Get #1, FileLen("C:\1.exe"), m
Close #1
Text1 = m.str1
Text2 = m.str2
End Sub

[alibek]

Наверное не надо ставить указатель в конец файла...

[mavrados]

Добрый день.

Спасибо всем за советы.
Сделал все сам. Получилось неплохо...
использовал способ похожий на приведенные выше.

Вопрос был немного не про это....

Что все это можно прочитать в книгах я и сам знаю. Читать умею, во всяком случае мне так кажется
Меня больше интересовало есть ли смысл использовать такие средства как Access, SQL, Excel (еще что-то) или для столь незначительного объема информации (слышал что VB 6.0 не дружит с Access 2003 - нужна более ранняя версия. Это правда?) лучше использовать двоичные файлы (*.bin), или текстовые?

Хотел услышать мнение людей более опытных в этом вопросе.

[Viper]

Просто для 200 значений использовать БД действительно не стоит. Однако, если эти 200 полей являются всего лишь одной записью, то БД самый раз. В противном случае лучше использовать файл собственного формата. А уж в каком виде представлять информацию в файле это зависит от того что ты хочешь. Если тебе надо чтобы пользователь мог редактировать эту информацию например в "Блокноте", то лучше использовать "текстовый" файл. Если же такой необходимости нет, то проще записывать информацию в "бинарный" файл.

З.Ы. Надеюсь упоминание мною "текстового" и "бинарного" файлов не перейдет в дискуссию о существовании особого вида файлов, под названием "текстовые"?