JBTALKS.CC

标题: [求助] VB.NET打开MYSQL 文件问题。 [打印本页]

---

作者: shinn1080    时间: 2012-6-21 02:25 PM
标题: [求助] VB.NET打开MYSQL 文件问题。
各位请帮忙看看，这是我修改一下网上找到的方法。
可是有一些问题...


upload的code

1. Private Sub cmdUpload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdUpload.Click
   
2.         lblUploadStatus.Text = ""
   
3. 
   
4.         If LTrim(RTrim(txtFilePath.Text)) = "" Then
   
5.             lblUploadStatus.Text = "Please select Files!"
   
6.             lblUploadStatus.ForeColor = Color.Red
   
7.             txtFilePath.Focus()
   
8.             Exit Sub
   
9.         End If
   
10. 
    
11.         Dim sFileToUpload As String = ""
    
12.         sFileToUpload = LTrim(RTrim(txtFilePath.Text))
    
13.         Dim Extension As String = System.IO.Path.GetExtension(sFileToUpload)
    
14.         upLoadImageOrFile(sFileToUpload, Extension)
    
15. 
    
16.         isFirst = False
    
17.         GetFilesFromDatabase()
    
18.     End Sub
    
19.     Private Sub upLoadImageOrFile(ByVal sFilePath As String, ByVal sFileType As String)
    
20. 
    
21.         Dim builder As New MySqlConnectionStringBuilder
    
22.         builder.Server = "localhost"
    
23.         builder.UserID = "root"
    
24.         builder.Password = "12345"
    
25.         builder.Database = "misdatabase"
    
26.         Dim str As String = builder.ConnectionString
    
27.         Dim conn As New MySqlConnection(str)
    
28.         conn.Open()
    
29. 
    
30.         Dim SqlCom As MySqlCommand
    
31.         Dim imageData As Byte()
    
32.         Dim sFileName As String
    
33.         Dim qry As String
    
34. 
    
35.         Try
    
36.             If conn.State = ConnectionState.Closed Then
    
37.                 conn.Open()
    
38.             End If
    
39. 
    
40.             imageData = ReadFile(sFilePath)
    
41.             sFileName = System.IO.Path.GetFileName(sFilePath)
    
42.             qry = "insert into eFilling (upddate,updUser,fileName,ImageData,fileType,dateUpload,uploadBy) values(@UpdDate,@updUser,@FileName, @ImageData,@FileType,@DateUpload,@UploadBy)"
    
43.             SqlCom = New MySqlCommand(qry, conn)
    
44.             SqlCom.Parameters.Add(New MySqlParameter("@UpdDate", Now()))
    
45.             SqlCom.Parameters.Add(New MySqlParameter("@updUser", frmMain.sEmpID))
    
46.             SqlCom.Parameters.Add(New MySqlParameter("@FileName", sFileName))
    
47.             SqlCom.Parameters.Add(New MySqlParameter("@ImageData", DirectCast(imageData, Object)))
    
48.             SqlCom.Parameters.Add(New MySqlParameter("@FileType", sFileType))
    
49.             SqlCom.Parameters.Add(New MySqlParameter("@DateUpload", Now()))
    
50.             SqlCom.Parameters.Add(New MySqlParameter("@UploadBy", frmMain.sEmpID))
    
51.             SqlCom.ExecuteNonQuery()
    
52. 
    
53.             lblUploadStatus.ForeColor = Color.Green
    
54.             lblUploadStatus.Text = "File uploaded successfully"
    
55.             txtFilePath.Text = ""
    
56. 
    
57.         Catch ex As Exception
    
58.             MessageBox.Show(ex.ToString())
    
59.             lblUploadStatus.Text = "File could not uploaded"
    
60.         End Try
    
61. 
    
62. 
    
63.     End Sub
    

复制代码

Database 显示



抓出来的


click了View File Button 的error


打开文件的code

1. 
   
2.     Private Function ReadFile(ByVal sPath As String) As Byte()
   
3.         Dim data As Byte() = Nothing
   
4.         Dim fInfo As New FileInfo(sPath)
   
5.         Dim numBytes As Long = fInfo.Length
   
6.         Dim fStream As New FileStream(sPath, FileMode.Open, FileAccess.Read)
   
7.         Dim br As New BinaryReader(fStream)
   
8.         data = br.ReadBytes(CInt(numBytes))
   
9.         Return data
   
10.     End Function
    
11. 
    
12.     Private Sub GetFilesFromDatabase()
    
13.         Dim builder As New MySqlConnectionStringBuilder
    
14.         builder.Server = "localhost"
    
15.         builder.UserID = "root"
    
16.         builder.Password = "12345"
    
17.         builder.Database = "misdatabase"
    
18.         Dim str As String = builder.ConnectionString
    
19. 
    
20.         Dim conn As New MySqlConnection(str)
    
21.         Try
    
22.             If conn.State = ConnectionState.Closed Then
    
23.                 conn.Open()
    
24.             End If
    
25. 
    
26.             Dim strSql As String = "Select id,fileName,fileType,dateUpload from eFilling  where uploadby =  '" & frmMain.sEmpID & "'"
    
27.             Dim ADAP As New MySqlDataAdapter(strSql, conn)
    
28.             Dim DS As New DataSet()
    
29. 
    
30.             ADAP.Fill(DS, "eFilling")
    
31.             dgdFiles.DataSource = DS.Tables("eFilling")
    
32.             Dim dgButtonColumn As New DataGridViewButtonColumn
    
33.             dgButtonColumn.HeaderText = "View File"
    
34.             dgButtonColumn.UseColumnTextForButtonValue = True
    
35.             dgButtonColumn.Text = "View File"
    
36.             dgButtonColumn.Name = "ViewFile"
    
37.             dgButtonColumn.ToolTipText = "View File"
    
38.             dgButtonColumn.AutoSizeMode = DataGridViewAutoSizeColumnMode.DisplayedCellsExceptHeader
    
39.             dgButtonColumn.FlatStyle = FlatStyle.System
    
40.             dgButtonColumn.DefaultCellStyle.BackColor = Color.Gray
    
41.             dgButtonColumn.DefaultCellStyle.ForeColor = Color.White
    
42.             If isFirst = True Then
    
43.                 dgdFiles.Columns.Add(dgButtonColumn)
    
44.             End If
    
45.         Catch ex As Exception
    
46.             MessageBox.Show(ex.ToString())
    
47.             MessageBox.Show("Could not load the File")
    
48.         End Try
    
49.     End Sub
    
50. 
    
51.     Private Sub dbGridView_CellContentClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgdFiles.CellContentClick
    
52. 
    
53.         Dim strSql As String = ""
    
54. 
    
55. 
    
56.         Try
    
57.             Select Case e.ColumnIndex
    
58.                 Case Is > -1
    
59.                     If sender.Columns(e.ColumnIndex).Name = "ViewFile" Then
    
60. 
    
61. 
    
62.                         downLoadFile(dgdFiles.Rows(e.RowIndex).Cells("id").Value, dgdFiles.Rows(e.RowIndex).Cells("FileName").Value, dgdFiles.Rows(e.RowIndex).Cells("FileType").Value)
    
63.                     End If
    
64.             End Select
    
65.         Catch ex As Exception
    
66.             MessageBox.Show(ex.ToString())
    
67.         End Try
    
68. 
    
69.     End Sub
    
70. 
    
71.     Private Sub downLoadFile(ByVal iFileId As Long, ByVal sFileName As String, ByVal sFileExtension As String)
    
72.         Dim builder As New MySqlConnectionStringBuilder
    
73.         builder.Server = "localhost"
    
74.         builder.UserID = "root"
    
75.         builder.Password = "12345"
    
76.         builder.Database = "misdatabase"
    
77.         Dim str As String = builder.ConnectionString
    
78. 
    
79.         Dim conn As New MySqlConnection(str)
    
80.         Dim strSql As String
    
81.         Try
    
82.             strSql = "Select ImageData from eFilling WHERE id=" & iFileId
    
83.             Dim sqlCmd As New MySqlCommand(strSql, conn)
    
84.             Dim fileData As Byte() = DirectCast(sqlCmd.ExecuteScalar(), Byte())
    
85.             Dim sTempFileName As String = Application.StartupPath & "\" & sFileName
    
86. 
    
87.             If Not fileData Is Nothing Then
    
88.                 Using fs As New FileStream(sFileName, FileMode.OpenOrCreate, FileAccess.Write)
    
89.                     fs.Write(fileData, 0, fileData.Length)
    
90.                     fs.Flush()
    
91.                     fs.Close()
    
92.                 End Using
    
93.                 Process.Start(sFileName)
    
94.             End If
    
95. 
    
96.         Catch ex As Exception
    
97.             MsgBox(ex.Message)
    
98.         End Try
    
99. 
    
100.     End Sub
     
101. 
     
102. End Class

复制代码

请问是我没有upload到，还是我打开的代码错误呢..各位帮帮忙

---

作者: 宅男-兜着走    时间: 2012-6-25 07:46 PM
同鞋，
我看到代码没什么错误。

save 文件进去 db， 是因为你把 file content 放进你的db 了。
正常。

---

欢迎光临 JBTALKS.CC (https://www.jbtalks.cc/)

Powered by Discuz! X2.5