我如何在Mysql_Database中存储Pdf文件并使用Vb.Net进行Retrive [英] How I Store Pdf File In Mysql_Database And Retrive Using Vb.Net

问题描述

plz告诉我一些开发某种应用程序的方法看起来像上面的问题，我想获得免费的源代码

有人PLZ帮助我

解决方案

 ' 添加数据类型为varbinary的SQL列 
  Dim  fd  As  OpenFileDialog =  New  OpenFileDialog（）
 '  fd.Filter =pdf file | * .pdf 
 如果 fd.ShowDialog = Windows.Forms.DialogResult.OK 那么 
 '  Interaction.MsgBox（文件保存到数据库，MsgBoxStyle.Information） 
 结束 如果 
 sqlStr =  < SP class =code-string> 
 sqlStr =   
 
 
  Dim  fs  As   New  FileStream（fd.FileName，FileMode.Open，FileAccess.Read）
 
  Dim  br  As  新 BinaryReader（fs）
 
  Dim  bytes 作为 字节（）
 
 bytes = System.IO。 File.ReadAllBytes（fd.FileName）
 
 ' 将文件插入数据库 
 
 strConn = 新 SqlConnection（oCommon.DSN（））
 strConn.Open（）
 
 sqlStr =   
 sqlStr = < /跨度> <温泉n class =code-string>更新YourTable set Columns = @Columns WHERE Column ='& detgrd（detgrd.Row， 0 ）。ToString（）。ToUpper（）。Trim（）&  ' 
 SqlCmd = 新 SqlCommand 
 SqlCmd.CommandText = sqlStr 
 SqlCmd.Parameters.Add（  @ Columns ，SqlDbType.Binary）.Value = bytes 
 SqlCmd.Connection = strConn 
 SqlCmd.ExecuteNonQuery（）
 MessageBox.Show（   SuccessFull， 消息，MessageBoxButtons.OK，MessageBoxIcon.Information）
 

要回复PDF

  Dim  filePdf 正如 字符串 
 filePdf = Application.StartupPath&   \& fileNmaeYouWant&  。pdf 
  If  System.IO.File.Exists（filePdf）然后 
 File.Delete（filePdf）
 结束 如果 
  Dim  bytesLoad 正如  Byte （）
 bytesLoad =  Nothing  
 sqlStr = < span class =code-string>  
 sqlStr =  从yourtable中选择pdfColumn，其中 '  
 mydatatable = 新 DataTable 
 mydatatable = modFunctions.ReturnData（sqlStr）
 如果 mydatatable.Rows.Count>  0  然后 
 如果 IsDBNull （mydatatable.Rows（ 0 ）。Item（  pdfColumn ））=  True  然后 
 退出  Sub  
  Else  
 bytesLoad = mydatatable.Rows （ 0 ）。项目（  pdfColumn）
 结束 如果 
 否则 
 退出  Sub  
 结束 如果 
 My.Computer.FileSystem.WriteAllBytes（filePdf，bytesLoad， False ）
系统。 Diagnostics.Process.Start（filePdf）

plz show me some way to develop some kind of application look like the above questions and i like to get free source code
someone plz help me

解决方案

'Add A Sql Column With Data Type varbinary
Dim fd As OpenFileDialog = New OpenFileDialog()
'fd.Filter = "pdf file|*.pdf"
If fd.ShowDialog = Windows.Forms.DialogResult.OK Then
    'Interaction.MsgBox("File saved into database", MsgBoxStyle.Information)
End If
sqlStr = ""
sqlStr = ""


Dim fs As New FileStream(fd.FileName, FileMode.Open, FileAccess.Read)

Dim br As New BinaryReader(fs)

Dim bytes As Byte()

bytes = System.IO.File.ReadAllBytes(fd.FileName)

'insert the file into database

strConn = New SqlConnection(oCommon.DSN())
strConn.Open()

sqlStr = ""
sqlStr = "update YourTable set Columns = @Columns WHERE Column =      '" & detgrd(detgrd.Row, 0).ToString().ToUpper().Trim() & "' "
SqlCmd = New SqlCommand
SqlCmd.CommandText = sqlStr
SqlCmd.Parameters.Add("@Columns ", SqlDbType.Binary).Value = bytes
SqlCmd.Connection = strConn
SqlCmd.ExecuteNonQuery()
MessageBox.Show("SuccessFull", "Message", MessageBoxButtons.OK, MessageBoxIcon.Information)

To Retrive A PDF

Dim filePdf As String
           filePdf = Application.StartupPath & "\" & fileNmaeYouWant & ".pdf"
           If System.IO.File.Exists(filePdf) Then
               File.Delete(filePdf)
           End If
           Dim bytesLoad As Byte()
           bytesLoad = Nothing
           sqlStr = ""
           sqlStr = "select pdfColumn from yourtable where  "' "
           mydatatable = New DataTable
           mydatatable = modFunctions.ReturnData(sqlStr)
           If mydatatable.Rows.Count > 0 Then
               If IsDBNull(mydatatable.Rows(0).Item("pdfColumn")) = True Then
                   Exit Sub
               Else
                   bytesLoad = mydatatable.Rows(0).Item("pdfColumn")
               End If
           Else
               Exit Sub
           End If
           My.Computer.FileSystem.WriteAllBytes(filePdf, bytesLoad, False)
           System.Diagnostics.Process.Start(filePdf)

这篇关于我如何在Mysql_Database中存储Pdf文件并使用Vb.Net进行Retrive的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！