Приватное Sub StoreFileInDb (strFileName ByVal как strFilePath шнура, ByVal как шнур)
Тусклое FileSize как UInt32
Тусклое rawData () как байт
Тусклый fs как FileStream
Тусклое соединение как новое MySqlConnection
Тусклое strSql как шнур = «ВЫБИРАЕТ * ОТ архива»
Тусклый ds как новый DataSet («FileStore»)
Тусклое tempAP как новое MySqlDataAdapter (strSql, соединение)
Тусклое objCommand как новое MySqlCommandBuilder (tempAP)
connection.ConnectionString = sConnString
fs = новое FileStream (strFilePath, FileMode.Open, FileAccess.Read)
FileSize = fs. Длина - 1
rawData = новый байт (FileSize) {}
fs. Прочитано (rawData, 0, FileSize)
fs. Закройте ()
tempAP.Fill (ds, «архив»)
Попытка
соединение. Раскройте ()
Затемните objNewRow как DataRow = ds. Ставит («архив») .NewRow на обсуждение ()
objNewRow («file_name») = strFileName
objNewRow («file_size») = rawData.Length
objNewRow («архив») = Convert.ToBase64String (rawData)
ds. Таблицы («архив»). Rows.Add (objNewRow)
tempAP.Update (ds, «архив»)
Задвижка ex как исключение
Затемните след как новое System.Diagnostics.StackTrace (ex, поистине): WriteLogFile (System.Reflection.MethodBase.GetCurrentMethod.Name & «- Undermetod: » & trace.GetFrame (1).GetMethod (). Имя, «ошибка, rad: » & trace.GetFrame (1).GetFileLineNumber () & «Kolumn: » & trace.GetFrame (1).GetFileColumnNumber (), ex. Сообщение)
Окончательно
соединение. Закройте ()
Закончите попытку
Закончите подводную лодку
|