Member 12759179 Ответов: 1

Сохраните файл excel в базе данных VB.NET

Привет, у меня есть два вопроса в связи с базой данных
Как сохранить список в базе данных Access?
Как сохранить файл в базе данных Visual Basic Access. Вид сетки - это возможность редактирования и просмотра данных.

Давайте будем благодарны источнику

Что я уже пробовал:

How to save a list box in the Access database

[no name]

"Как сохранить список в базе данных Access?", вы этого не делаете. Вы сохраняете данные в списке в базе данных.

1 Ответов

Рейтинг:
1

Wendelius

Я не совсем понимаю вопрос о сохранении списка для доступа к базе данных, но что касается сохранения файла Excel в базе данных, это совсем другое дело.

Файл Excel-это, в конце концов, серия байтов, поэтому вы читаете байты, помещаете данные в параметр для инструкции INSERT или UPDATE, открываете соединение и сохраняете данные.

Короче говоря код может выглядеть примерно так

Dim fs As System.IO.FileStream
Dim sr As System.IO.StreamReader

fs = New System.IO.FileStream("c:\path\excelfile", System.IO.FileMode.Open, System.IO.FileAccess.Read, System.IO.FileShare.Read)
sr = New System.IO.StreamReader(fs)
Dim bytes(fs.Length - 1) As Byte
fs.Read(bytes, 0, fs.Length)

Try
   Using connection As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=accessfilename")
      Using command As System.Data.OleDb.OleDbCommand = New System.Data.OleDb.OleDbCommand("insert into tablename (columnname) values (?)", connection)
         command.Parameters.Add("@bytes", System.Data.OleDb.OleDbType.Binary, fs.Length).Value = bytes
         connection.Open()
         command.ExecuteNonQuery()
         connection.Close()
      End Using
   End Using
Catch exception As Exception
   ' error handling goes here
End Try