Dim fs As New FileStream("...doc", FileMode.Open)
Dim binaryFile As New IO.BinaryReader(fs)
Dim db As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=...mdb;")
db.Open()
Dim insertCommand As New OleDbCommand("insert into tablename (f1, f2) values (@p1, @p2)", db)
With insertCommand
.Parameters.Add("@p1", OleDbType.Binary).Value = binaryFile.ReadBytes(fs.Length)
.Parameters.Add("@p2", OleDbType.VarChar, 255).Value = "...doc"
.ExecuteNonQuery()
End With
Ramzes писал(а):Не то это все
У меня просто есть прога, и в ней есть необходимость сохранять именно файлы целиком в БД Access...т.е. пользователь выбирает файл (через OpenFileDialog) а затем этот файл помещается в базу, и конечно со временем его придется извлекать из базы для сохранения на диске...помогите плз...очень надо
Dmitriy Solomnikov писал(а):вопрос кстати интерессный, не раз об этом думал, но ни разу так и не делал.
1. Может реально есть в аксесе примочка для хранения файлов?
2. Как в аксесс запихнуть массив byte? Там же вроде ограничение на длянну строки 255 символов.
Dim fileName As String = "arc.rar"
FileOpen(1, fileName, OpenMode.Binary)
Dim res As New String("", 1500)
FileGet(1, res, 1500)
Console.WriteLine(res)
FileClose(1)
Sebas писал(а):2. Как в аксесс запихнуть массив byte? Там же вроде ограничение на длянну строки 255 символов.
Andrey Fedorov писал(а):Да все прекрасно засовывается - любого разумного размера.
Tatyanka писал(а):Andrey Fedorov писал(а):Да все прекрасно засовывается - любого разумного размера.
Что имеется в виду под "разумным" размером? И какой может быть общий объем присоединенных файлов?
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 13