2016-10-22 2 views
0

Хороший день переполнения стека,фотографий Сохранение в моей базе данных Mysql в VB.NET

Я пытаюсь сохранить изображения в моей базе данных MySQL, я думаю, что я буду использовать BLOB правильно?

Я планирую обновить свою базу данных MySQL, уже размещенные в Интернете, чтобы поддерживать загрузку и отображение фотографий в моем проекте в vb.net,

Я знаю, что самый простой способ сделать спасительное изображение в базе данных MySQL этого сохранения изображение в каталоге и помещая путь только в базу данных, но как насчет онлайн-базы данных, размещенной в Интернете и не имеющей рабочего каталога? Я имею в виду только саму базу данных?

Как я могу оптимизировать время для загрузки изображения?

+0

Возможный дубликат [как вставить изображение в базу данных mysql с помощью соединения vb.net и adodb) (http://stackoverflow.com/questions/24924982/how-to-insert-image-in-mysql-database-using -vb-нетто-и-ADODB-соединение) –

ответ

0
Protected Sub UpLoadThisFile(ByVal upload As FileUpload) 
    If UpL1.HasFile Then 
     Dim fileName As String = Path.GetFileName(UpL1.PostedFile.FileName) 
     UpL1.PostedFile.SaveAs(Server.MapPath("~/AltImg2/") + fileName) 
     UpImag.ImageUrl = ("~/AltImg2/") + fileName 
     T8.Text = ("~/AltImg2/") + fileName 
    Else 
     T8.Text = "~/NOPic/noimage.jpg" 
    End If 
End Sub 

Protected Sub CheckImag() 
    If UpL1.HasFile Then 
     Dim ValidatFileTy As String() = {"bmb", "gif", "png", "jpg", "jpeg"} 
     Dim Ext As String = System.IO.Path.GetExtension(UpL1.PostedFile.FileName) 
     Dim isValidFile As Boolean = False 
     For i As Integer = 0 To ValidatFileTy.Length - 1 
      If Ext = "." & ValidatFileTy(i) Then 
       isValidFile = True 
      End If 
     Next 
     If Not isValidFile Then 
      MsgLbl.Visible = True 
      MsgLbl.ForeColor = Drawing.Color.Red 
      MsgLbl.Text = String.Join(",", ValidatFileTy) 
      Exit Sub 
     Else 
      UpLoadThisFile(UpL1) 
     End If 
    Else 
     UpLoadThisFile(UpL1) 
    End If 
End Sub 

и кнопки

Protected Sub BTAddNew_Click(sender As Object, e As EventArgs) Handles BTAddNew.Click 
    Try 
     CheckImag() 
     Insert() 
     Catch ex As Exception 
     MsgBox(ex.Message) 
    End Try 
End Sub 

в России, но как насчет для онлайновой базы данных, размещенные в Интернете, и не имеет рабочий каталог? да, вы должны использовать ~ ("~/AltImg2 /").

Смежные вопросы