Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,036

HOME > .NET Framework > Forum > ขอความช่วเหลือโค้ดเพิ่มไฟล์วีดีโอของVB.Net 2008 ครับ



 

ขอความช่วเหลือโค้ดเพิ่มไฟล์วีดีโอของVB.Net 2008 ครับ

 



Topic : 051429



โพสกระทู้ ( 10 )
บทความ ( 0 )



สถานะออฟไลน์




ผมทำโปรเจคจบครับผมต้องการโค้ดเพิ่มไฟล์วีดีโออะคับขออาจารย์ที่สอนก็ไม่มีมีแต่เพิ่มรูปอะคับขอความช่วยเหลือหน่อยคับใครมีบ้างขอหน่อยคับ ของภาษา VB.Net 2008 คับขอบคุณล่วงหน้านะคับ



Tag : .NET, Ms SQL Server 2008, Web (ASP.NET), VS 2008 (.NET 3.x)







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2010-11-10 01:03:14 By : jom_wirayut View : 2273 Reply : 14
 

 

No. 1



โพสกระทู้ ( 245 )
บทความ ( 0 )



สถานะออฟไลน์


Web (ASP.NET)

ใช้เป็น Html ไม่ใช่หรอครับเพิ่มไฟล์วีดีโอ คือ แปะ ไฟล์วีดีโอไว้ที่หน้าเว็บใช่มั้ยครับ

ผมเคยใช้แบบนี้นะครับ
Code (VB.NET)
<object height="280px" width="395px" align= middle classid="clsid:22D6F312-B0F6-11D0-94AB-0080C74C7E95">
            <param name="Filename" value="Video.wmv" />
            <param name="autostart" value="true" />
            </object>







แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-11-10 04:11:54 By : 13crowns
 


 

No. 2



โพสกระทู้ ( 10 )
บทความ ( 0 )



สถานะออฟไลน์


ไม่ได้แปะอะคับคือว่าต้องบราวไปเก็บลงฐานข้อมูลอะคับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-11-10 11:50:28 By : jom_wirayut
 

 

No. 3



โพสกระทู้ ( 245 )
บทความ ( 0 )



สถานะออฟไลน์


Browse File Video เก็บใน DB เลยหรอครับ ใช้เป็นเก็บเฉพาะ Path+ชื่อไฟล์ ลง DB ไม่ดีกว่าหรอครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-11-11 07:51:54 By : 13crowns
 


 

No. 4



โพสกระทู้ ( 10 )
บทความ ( 0 )



สถานะออฟไลน์


.ใช่ครับเก็บเฉพาะนามสกุล Path+ชื่อไฟล์ ลง DB พอจะมีโค้ดบันทึกไหมครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-11-11 10:57:35 By : jom_wirayut
 


 

No. 5



โพสกระทู้ ( 245 )
บทความ ( 0 )



สถานะออฟไลน์


ไหนดู Code เพิ่มรูปที่ว่าหน่อยครับ เดี๋ยว แก้ให้
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-11-11 12:45:54 By : 13crowns
 


 

No. 6



โพสกระทู้ ( 10 )
บทความ ( 0 )



สถานะออฟไลน์


'ภาพ--------------------------------------------------------------------------------------------
Dim CurrentFileName, NewFileName As String
Dim ExtFile As String '//นามสกุล
Dim CurrentPath As String = Server.MapPath("~/Pic/Pages/")

If Not (FilePic.HasFile) Then

Else
CurrentFileName = FilePic.FileName
ExtFile = (Path.GetExtension(CurrentFileName)).ToLower()
NewFileName = "P" + txtId.Text + ExtFile
'//ชนิดข้อมูล
If ((ExtFile <> ".jpg") And (ExtFile <> ".gif")) Then
'//ชนิดชองไฟล์ไม่ใช่ .Jpg และ .Gif
MsgBox("You choose the file Extension in .Jpg .Gif !!!")
Exit Sub
End If '//end of if ((ExtFile <> ".jpg") && (ExtFile <> ".gif"))
'//ขนาดไฟล์
If (FilePic.PostedFile.ContentLength > 131072) Then
'//ขนาดไฟล์มีขนาดมากกว่า 128 Kb(128*1024 =131072 Byte)
MsgBox("The size of big too file,the size of the file must 128 KB not exceed!!! ")
Exit Sub
End If '//end of If (FilePic.PostedFile.ContentLength > 131072) Then
'//Upload
If (FilePic.HasFile) Then
CurrentPath += NewFileName '//ไฟล์ใหม่ที่ต้องการให้มีในเซิร์ฟเวอร์
FilePic.SaveAs(CurrentPath) '//การอัฟโหลดไฟล์
'MsgBox("Upload the file already !!!")
Else
MsgBox("Can not load the file !")
Exit Sub
End If '//end of else if (FileUpload1.HasFile)
End If
'-------------------------------------------------------------------------------------------------
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-11-11 18:29:09 By : jom_wirayut
 


 

No. 7



โพสกระทู้ ( 245 )
บทความ ( 0 )



สถานะออฟไลน์


อ่าวเปลี่ยนแค่ นามสกุลตอนเช็คแล้วก็ เปลี่ยน ขนาดที่กำหนด ก็ได้แล้วนี่นา
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-11-12 08:10:15 By : 13crowns
 


 

No. 8



โพสกระทู้ ( 10 )
บทความ ( 0 )



สถานะออฟไลน์


ขอบคุณที่แนะนำครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-11-13 09:48:42 By : jom_wirayut
 


 

No. 9



โพสกระทู้ ( 245 )
บทความ ( 0 )



สถานะออฟไลน์


ลองรึยังครับได้มั้ย ถ้าติด Error ก็มาโพสต์ไว้นะครับ เดี๋ยวช่วยๆกันดูให้
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-11-13 10:08:27 By : 13crowns
 


 

No. 10



โพสกระทู้ ( 10 )
บทความ ( 0 )



สถานะออฟไลน์


พี่ครับผมลองเปลี่ยนชื่อไฟล์แล้วครับแต่ขนาดไฟผมไม่ได้เปลี่ยครับพี่จะบอกได้ไหมครับผมไม่รู้เกี่ยวกับขนาดครับของไฟล์อะครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-11-15 08:59:29 By : jom_wirayut
 


 

No. 11



โพสกระทู้ ( 245 )
บทความ ( 0 )



สถานะออฟไลน์


If (FilePic.PostedFile.ContentLength > 131072) Then

ตรงนี้ไงครับ จะให้มันไม่เกินเท่าไหร่ล่ะครับ จำกัดไว้มั้ยว่าไม่ให้อัพเกินกี่ MB

131072 byte = 128 Kilobyte

อันนี้คือจำกัดไว้ไม่ให้เกิน 128 kilobyte อยู่น่ะครับ ถ้าไม่ให้เกิน 10MB

ก็ เป็น If (FilePic.PostedFile.ContentLength > 10485760 ) Then
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-11-15 14:54:50 By : 13crowns
 


 

No. 12



โพสกระทู้ ( 10 )
บทความ ( 0 )



สถานะออฟไลน์


ขอบคุณมากครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-11-15 17:06:39 By : jom_wirayut
 


 

No. 13



โพสกระทู้ ( 10 )
บทความ ( 0 )



สถานะออฟไลน์


ผมแก้เหมือนที่พี่บอกแล้วครับไม่eror ครับแต่ไม่ลงฐานข้อมูลครับและยังลิ่งไปหน้าอินเตอร์เปล่าๆครับ
Imports System.Data
Imports System.Data.SqlClient
Imports System.IO
Partial Public Class Nowledge
Inherits System.Web.UI.Page
Dim conn As String = "server=(local);database=dbMeatProduct;uid=poorivat;password=poorivat"
Dim myconn As New SqlConnection(Conn)
Dim sql As String = "select * from Nowledge"
Dim myda As New SqlDataAdapter(Sql, myconn)
Dim Cmd As New SqlCommand
Dim Da As New SqlDataAdapter
Dim ds As New DataSet
Dim drow As DataRow
Dim Found As Boolean
Dim DView As DataView
Private Sub Start()
Dim SqlAcc As String = "Select top 1 id From Nowledge order by id desc"
myconn.Open()
Dim MyCommand As New SqlCommand(SqlAcc, myconn)
Dim MyDataReader As SqlDataReader = MyCommand.ExecuteReader()
Dim Found As Boolean = False
Dim start As Long
While MyDataReader.Read() 'อ่านค่าได้
Found = True
start = Right((MyDataReader.Item("id")), 4)
End While
myconn.Close()
If Found = True Then
start += 1
Else
start = 1
End If
Dim name As String = "N"

txtid.Text = name + start.ToString("0000")

myconn.Close()
txtid.Visible = True
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
Start()
End If
End Sub


Protected Sub BtnAdd_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BtnAdd.Click
Dim CurrentFileName, NewFileName As String
Dim ExtFile As String '//นามสกุล
Dim CurrentPath As String = Server.MapPath("~/pic/Product/")

If Not (FilePic.HasFile) Then

Else
CurrentFileName = FilePic.FileName
ExtFile = (Path.GetExtension(CurrentFileName)).ToLower()
NewFileName = "N" + txtid.Text + ExtFile
'//ชนิดข้อมูล
If ((ExtFile <> ".flv") And (ExtFile <> ".wmv")) Then
MsgBox("You choose the file Extension in .flv .wmv !!!")
Exit Sub
End If '//end of if ((ExtFile <> ".jpg") && (ExtFile <> ".gif"))
'//ขนาดไฟล์
If (FilePic.PostedFile.ContentLength > 10485760) Then
MsgBox("The size of big too file,the size of the file must 10 MB not exceed!!! ")
Exit Sub
End If '//end of If (FilePic.PostedFile.ContentLength > 131072) Then
'//Upload
If (FilePic.HasFile) Then
CurrentPath += NewFileName '//ไฟล์ใหม่ที่ต้องการให้มีในเซิร์ฟเวอร์
FilePic.SaveAs(CurrentPath) '//การอัฟโหลดไฟล์
'MsgBox("Upload the file already !!!")
Else
MsgBox("Can not load the file !")
Exit Sub
End If '//end of else if (FileUpload1.HasFile)
End If
sql = "Insert Into Nowledge (id,video,flag) Values (" '//เตรียม SQL
sql = sql & "'" & Request.Form("txtid") & "'" & ","
sql = sql & "'" & ExtFile & "'," '//เตรียม SQL
sql = sql & "'-')"
Cmd = New SqlCommand(sql, myconn) '//ประมวลผลคำสั่งใน SQL
myconn.Open() '//เปิดการเชื่อมต่อ
Cmd.ExecuteNonQuery() '//นำข้อมูลที่ประมวลผลแล้วไปลงตารางข้อมูลในฐานข้อมูล
myconn.Close()

End Sub
End Class
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-11-16 01:48:17 By : jom_wirayut
 


 

No. 14



โพสกระทู้ ( 74,058 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

Go to : ASP.NET Upload file to Database

มันอัพได้ทุกประเภทครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-11-16 05:46:10 By : webmaster
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : ขอความช่วเหลือโค้ดเพิ่มไฟล์วีดีโอของVB.Net 2008 ครับ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 03
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2024 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่