Dim FromDate As DateTime = New DateTime( 2010 ,9 ,29 )
Dim ToDate As DateTime = New DateTime( 2010 ,10 ,3 )
Dim CountDate As DateTime = FromDate
While ( Not CountDate.Equals(ToDate ) )
......
......
CountDate = CountDate.AddDays(1)
End While
Dim NumDay As Timespan
NumDay = EndDate.date - StartDate.date
Dim i As Integer
for i = 0 to val(NumDay.Day)
Dim SetDate As Date
SetDate = StartDate.AddDays(i).date
......[คำสั่ง Insert ข้อมูล]......
Next
Dim CurrentFileName, NewFileName As String
Dim ExtFile As String '//นามสกุล
Dim CurrentPath As String = Server.MapPath("~/Video/Product/")
If Not (FilePic.HasFile) Then
Else
CurrentFileName = FilePic.FileName
ExtFile = (Path.GetExtension(CurrentFileName)).ToLower()
NewFileName = "P" + txtid.Text + ExtFile
'//ชนิดข้อมูล
If ((ExtFile <> ".flv") And (ExtFile <> ".avi")) Then
'//ชนิดชองไฟล์ไม่ใช่ .Jpg และ .Gif
MsgBox("You choose the file Extension in .flv .avi !!!")
Exit Sub
End If '//end of if ((ExtFile <> ".flv") && (ExtFile <> ".avi"))
'//ขนาดไฟล์
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
ผมจะอัปโหลดวีดีโออะคับจะบันทึกลงSql แต่ไม่ลงคับเลยขอความช่วยเหลือหน่อยคับหรือว่ามีโค้ดอื่นที่เพิ่มวีดีโอลงฐานข้อมูลได้คับ VB.net 2008 คับขอบคุณล่วงหน้าคับ
Load balance : Server 01
