◀ Previous Next ▶ Up ▲


witpoko.com


## ช่วยแปลงไฟล์ save รูปลง db จาก asp.net เป็น vb.net ให้ทีครับ (มีโค้ตครับ)

คือว่าหาเจอแต่ asp.net น่ะครับ อยากจะแปลงเป็น vb.net ครับ รบกวนช่วยแปลงให้หน่อยนะครับ หรือท่านใดมีโค้ต sve รูปลง db ของ vb.net ก็รบกวนขอตัวอย่างด้วยนะครับ ขอบคุณมากครับ

--โค๊ตนี้ เป็น asp.net ครับ--

Imports System.Data.SqlClient
Import System.IO

Private Sub Submit1_ServerClick(ByVal sender As System.Object, ByVal e As Sestem.EventArgs) Handles Submit1.ServerClick
Dim StreamData = File1.PostedFile.InputStream
Dim LengthData As Int32 = CType(File1.PostedFile.ContentLength, Int32)
Dim TypeData As String = File1.PostedFile.ContentType
Dim NameFile As String = Path.GetFileNAme(File1.PostedFile.FileName)
Dim BinaryData(LengthData) As Byte
Dim Result As Integer

result = StreamData.Read(BinaryData, 0, LengthData)
result = WriteToDB(NameFile, BinaryData, TypeData)
If result > 0 Then
Response.Write("Upload Completed")
Else
Response.Write("Upload Error")
End If
End Sub

Private Function WriteToDB(ByVal name As string, ByVal data As Byte. ByVal contenttype As String) As Integer
Dim connection As New SqlConnection("server=localhost:database=NorthWind;uid=sa;pwd-;")
Dim command As New SqlCommand("INSERT INTO binarydata (name, type, data) VALUES (@name, @type, @data)", connection)

Dim param0 As New SqlParameter("@name", SqlDbType.VarChar,50)
param0.Value = name
commend.Parammeters.Add(param0)

Dim param1 As New SqlParameter("@type", SqlDbType.VarChar, 50)
param1.Value = contenttype
command.Parameters.Add(param1)

Dim param2 As New SqlParameter("@data", SqlDbType.Image)
param2.Value = data
command.Parameters.Add(param2)

Try
connection.Open()
command.ExecuteNonQuery()
connection.Close()
Return 1
Catch ex As Exceprion
Return 0
End Try
End Function


จากคุณ : หนึ่ง -[ 6 ส.ค. 50 - 11:12:29 A:202.149.97.51 X: ]





กระทู้ยอดนิยม