БД Access и файл

[Prickly]

Hi!

Не могу записать массив байт в поле Memo.

Код создания поля:

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


...
    'создаем поле FileArea
    Set F1 = NewTbl.CreateField("FileArea", dbMemo)
    F1.Attributes = dbUpdatableField
    F1.AllowZeroLength = False
    NewTbl.Fields.Append F1
...


Считываю в массив файл и пытаюсь записать в БД так:

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


    Dim BinaryData() as Byte
...
    File1 = FreeFile()
    Open strFile For Binary As #File1
      ReDim BinaryData(0 To LOF(File1) - 1)
      Get #File1, , BinaryData()
    Close #File1
    r(3).AppendChunk BinaryData()
...


Но на последней строчке из фрагмента листинга возникает ошибка

/Data type conversion error./

Может кто ткнет меня носом в ошибку?

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

[Al Khamid]

////

[Prickly]

Нужно просто разместить файл в БД

[MeMBus]

М.б. лучше OLE поле?

[Prickly]

Нет OLE здесь не подходит.

Надо именно Memo

[Ennor]

Memo? Хммм... Я, конечно, не спец в аксессе, но что-то мне подсказывает, что тип поля с таким названием может банально не позволять вставлять в себя нетекстовые символы - ну там, Chr(0) или Chr(20) какой-нить...

[alibek]

Не, в Access в Memo можно запихнуть все.
Но я все-же советовал бы использовать OLE.

[Prickly]

В ADO япрекрасно записал массив, а вот в DAO не выходит!!!

Странно...

[Twister]

В DAO я записывал двоичный файл в базу (поле MEMO) так:

читал файл блоками по 10 Кб в строку, а потом так

rS!MemoField = Moya_Stroka

при этом целостность файла сохранялась полностью

[alibek]

Для бинарных (и MEMO) полей рекомендуется не прямая работа с содержимым, а использование методов Append/GetChunk.

[Twister]

Я знаю, но у меня все работало прекрасно...

[Prickly]

To Павлов Максим файл наверно был текстовы, поэтому и целостность не нарушалась. Я прав?

[Prickly]

Не подскажет кто, какой размер OLE поля (LongBinary)?

[Twister]

2 Prickly Нет, я вшивал в БД и Zip и Exe!

А размер у OLE ОЧЕНЬ БОЛЬШОЙ !!! :wink:

[MeMBus]

Не подскажет кто, какой размер OLE поля (LongBinary)?

Вроде как до 2Gb

[Prickly]

Дык вроде как сама БД до 2GB! Ну может малость по больше

[Prickly]

2 Павлов Максим Как ты по 10кб в строку из exe загонял?

[MeMBus]

Дык вроде как сама БД до 2GB! Ну может малость по больше

Обшибся я...
OLE Object - Up to 1 gigabyte (limited by available disk space)
Memo - Up to 65,535 characters. (If the Memo field is manipulated through DAO and only text and numbers [not binary data] will be stored in it, then the size of the Memo field is limited by the size of the database.)

[Twister]

Вот, ток тут по 30 Кб, эт прям вырезка из моей проги:

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

.gGe.Value = 0
.gGe.Max = FileLen(CurFilePath)
ff = FreeFile
Open CurFilePath For Binary Access Read Lock Read As #ff
    Do While Loc(ff) < LOF(ff)
        DoEvents
        If prStop Then SaveFileToBase = False: Exit Function
        If prPause Then
            Do
                DoEvents
                If prStop Then SaveFileToBase = False: Exit Function
                If Not prPause Then Exit Do
            Loop
        End If
        s1 = Input(1024 * 31, #ff)
        .gGe.Value = .gGe.Value + Len(s1)
        s = s & s1
    Loop
    .cmdStop_Click
Close
Set rS = dB.OpenRecordset("select SourceFile, FileName from tblProjects where NameID=" & Prj)
rS.Edit
rS!SourceFile = s
rS!FileName = TrimString(CurFileName)
rS.Update
Set rS = Nothing

[Prickly]

Ворос закрыт. Спасибо всем