Выбор Базы Данных

[1Steps]

Здравствуйте!
В программе должна присутствовать цифровая БД As Short.
(Она должна дополняться.)
Считывается в массив и потом обрабатывается.
Массив выглядит так: arrBaza(1000, 10) где 1000-строки, 10-столбцы.
Вопрос 1:
(SQL 2005), создаю БД шаг за шагом, как указано в Tutorial
http://msdn.microsoft.com/vstudio/express/beginner/windows/tier3/begin8/vb/
но БД почемуто не апдейтается. Почему, я не прав, он не прав или что-то у меня неправильно настроено?

Вопрос 2:
Создаю БД в Аксесс, но ВБ 2005 Express, нопрочь отказывается её видеть. Почему?

Вопрос 3:
Думаю создать БД как тхт File, но тут же возникает вопрос, а как можно будет считать БД по столбцам, Это возможно?
И если это возможно и не сложно(как для начинающего), то где мне его хранить, в Resourse?

Буду рад любым ответам кроме MSDN и Google. Я там уже был.

Может существуют ещё варианты создания БД?

[Nord777]

В твоем варианте не так много данных, может проще использовать обычный файл?

[1Steps]

Я так и думаю, но тогда 3 вопрос остаётся открытый.

[Nord777]

а какого типа у тебя данные? И зачем читать по столбцам? поподробнее

[1Steps]

Данные as Short
Массив многомерный.
Мне нужно чтоб получилось так:
arr(1000,10)
20 | 35 | 40 | ... | 28
...
11 |39 | 56 | ... | 99
уже в массиве

[1Steps]

В файле выглядит примерно так:

0001. 1, 2 ,3 , 4, 5, 6, 7, 8, 9, 10 1/1/2001
...

1000. 1, 2 ,3 , 4, 5, 6, 7, 8, 9, 10 1/1/2001

Значение и порядок цифр от фонаря.

[Amed]

Читай из файла сразу весь массив.

UPD. Какой-какой формат файла? Пишешь все значения в строку? Бред.

UPD2

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

        Dim M(10, 2) As Short

        M(1, 1) = 10
        M(1, 2) = 5

        ' Пишем
        FileOpen(1, "C:\123.txt", OpenMode.Binary)
            FilePut(1, M)
        FileClose(1)

        M(1, 1) = 0
        M(1, 2) = 0

        'Читаем
        FileOpen(1, "C:\123.txt", OpenMode.Binary)
            FileGet(1, M)
        FileClose(1)

        MsgBox(M(1, 1) & " " & M(1, 2))

[Nord777]

ещё один вариант

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

        '--------Serialize----------------------------------------
        Dim FS As New FileStream("C:\temp\1.bin", FileMode.OpenOrCreate)
        Dim Arr(1000, 10) As Short
        FillArray(Arr) 'заполнить массив данными
        Dim BF As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
        BF.Serialize(FS, Arr)
        FS.Flush()
        FS.Close()

        '--------Deserialize--------------------------------------
        FS = New FileStream("C:\temp\1.bin", FileMode.OpenOrCreate)
        Arr = Nothing
        Arr = BF.Deserialize(FS)
        MsgBox(Arr.GetUpperBound(0))
        FS.Close()

[1Steps]

Amed, Спасибо, работает.

Nord777, Спасибо, попробую.

[1Steps]

Nord777

Ругается на FileStream. Меняю на I.O.FileStream, тогда ругается на FileMode.
Наверно, мне нужно что-то импортировать?
Или как с этим бороться?

[Nord777]

imports System.IO

[1Steps]

Спасибо, я всегда писал import без последней буквы s.
И не мог понять, почему не работает. (Невнимательность)
Массив заполнил ручками (ругается на FillArray(arr)
Заработало.

Вторая часть кода,
'--------Deserialize--------------------------------------
если я правильно понимаю, считывает файл?

[Nord777]

1)FillArray тебе не нужна. Это процедура заполнения массива (самописная)
2)ага

[1Steps]

Ещё раз спасибо, уже разобрался со всем. И на счет FillArray тоже.