ผมต้องการสร้างปุ่มในตารางเพื่อลบไฟล์ใน Folder และ ชื่อในฐานข้อมูล
ใช้ sql delete command
กับ system.io.file delete method
Date :
2016-05-19 11:27:43
By :
ห้ามตอบเกินวันละ 2 กระทู้
ตอนนี้ผมลบชื่อไฟล์ในฐานข้อมูลได้แล้วครับ
แต่ติดที่ลบไฟล์ใน Folder
Code (VB.NET)
Sub modDeleteCommand(ByVal sender As Object, ByVal e As GridViewDeleteEventArgs)
strSQL = "DELETE FROM member WHERE MemberID = '" & myGridView.DataKeys.Item(e.RowIndex).Value & "'"
objCmd = New SqlCommand(strSQL, objConn)
objCmd.ExecuteNonQuery()
myGridView.EditIndex = -1
BindData()
Dim FileToDelete As String
FileToDelete = Server.MapPath("Myfiles/")
File.Delete(FileToDelete)
End Sub
ตรงชื่อไฟล์ที่จะลบ ต้องเขียน Code ยังไงครับ
ประวัติการแก้ไข 2016-05-20 05:34:14
Date :
2016-05-20 01:35:56
By :
tikus
แล้วคุณเซฟเข้าไปยังไงล่ะครับ อ้างการ path เดียวกัน
Date :
2016-05-20 03:04:33
By :
Chaidhanan
ต้องลบไฟล์ในโฟลเดอร์ออกให้หมดก่อนนะครับ แล้วถึงจะลบโฟลเดอร์ได้
edit:
555 ตอบแบบเบลอๆ งมโค้ดตัวเองจนตาบวม
ตอนมาตอบกระทู้สมองเลยไม่แล่น
Code (VB.NET)
dim filepath as string = "?"
If System.IO.File.Exists(filepath) then
System.IO.File.Delete(filepath)
end if
ที่อยู่ของไฟล์ที่อัพโหลดน่าจะรู้ใช่มั้ยครับ นำมันมาใส่ตัวแปร filepath (line 1)
ตรวจสอบว่ามีไฟล์อยู่จริง (line 2)
ลบไฟล์ดังกล่าว (line 3)
ประวัติการแก้ไข 2016-05-20 09:38:13
Date :
2016-05-20 03:16:59
By :
deksoke
Code ทั้งหมดครับ ผมติดอยู่จุดเดียวครับ ตรงที่กำหนดชื่อไฟล์ที่จะลบ
ทำมาทั้งคืนยังงงอยู่เลยครับ
AspNetFileUploadToDatabase1.aspx
<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data"%>
<%@ Import Namespace="System.Data.SqlClient"%>
<script runat="server">
Sub btnUpload_Click(ByVal sender As Object, ByVal e As EventArgs)
Me.pnlUpload.Visible = False
Me.pnlSave.Visible = True
If Me.fiUpload.HasFile = False Then
Me.lblText.Text = "Please select upload file!"
Else
Me.fiUpload.SaveAs(Server.MapPath("Myfiles/" & fiUpload.FileName))
Me.lblText.Text = "<b>" & fiUpload.FileName & "</b> Uploaded.<br>"
'*** Save to Database ***'
Dim objConn As SqlConnection
Dim objCmd As SqlCommand
Dim strConnString, strSQL As String
strConnString = "Server=.\SQLEXPRESS;Initial Catalog=DBnew;Trusted_Connection=True;"
objConn = New SqlConnection(strConnString)
objConn.Open()
strSQL = "INSERT INTO member (Name) " & _
"VALUES ('" & fiUpload.FileName & "')"
objCmd = New SqlCommand()
With objCmd
.Connection = objConn
.CommandType = CommandType.Text
.CommandText = strSQL
End With
objCmd.ExecuteNonQuery()
objCmd = Nothing
objConn.Close()
objConn = Nothing
Me.hplLink1.NavigateUrl = "AspNetFileUploadToDatabase1.aspx"
Me.hplLink2.NavigateUrl = "GridViewRowCommand.aspx"
End If
End Sub
</script>
<html>
<head>
<title>btnUpload</title>
</head>
<body>
<form id="form1" runat="server">
<asp:Panel id="pnlUpload" runat="server">
<asp:FileUpload id="fiUpload" runat="server"></asp:FileUpload>
<asp:Button ID="btnUpload" onclick="btnUpload_Click" runat="server" Text="Upload" /></asp:Button>
</asp:Panel>
<asp:Panel id="pnlSave" Visible="false" runat="server">
<asp:Label id="lblText" runat="server"></asp:Label><br />
<asp:HyperLink id="hplLink1" runat="server">Upload again</asp:HyperLink>
,
<asp:HyperLink id="hplLink2" runat="server">View files</asp:HyperLink>
</asp:Panel>
</form>
</body>
</html>
GridViewRowCommand.aspx
<%@ Page Language="VB" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.SqlClient" %>
<%@ import Namespace="System.IO" %>
<script runat="server">
Dim objConn As SqlConnection
Dim objCmd As SqlCommand
Dim strSQL As String
Sub Page_Load(sender As Object, e As EventArgs)
Dim strConnString As String
strConnString = "Server=.\SQLEXPRESS;Initial Catalog=DBnew;Trusted_Connection=True;"
objConn = New SqlConnection(strConnString)
objConn.Open()
IF Not Page.IsPostBack() Then
BindData()
End IF
End Sub
Sub BindData()
strSQL = "SELECT * FROM member"
Dim dtReader As SqlDataReader
objCmd = New SqlCommand(strSQL, objConn)
dtReader = objCmd.ExecuteReader()
'*** BindData to GridView ***'
myGridView.DataSource = dtReader
myGridView.DataBind()
dtReader.Close()
dtReader = Nothing
End Sub
Sub Page_UnLoad()
objConn.Close()
objConn = Nothing
End Sub
Sub modEditCommand(ByVal sender As Object, ByVal e As GridViewEditEventArgs)
myGridView.EditIndex = e.NewEditIndex
myGridView.ShowFooter = False
BindData()
End Sub
Sub modCancelCommand(ByVal sender As Object, ByVal e As GridViewCancelEditEventArgs)
myGridView.EditIndex = -1
myGridView.ShowFooter = True
BindData()
End Sub
Sub modDeleteCommand(ByVal sender As Object, ByVal e As GridViewDeleteEventArgs)
strSQL = "DELETE FROM member WHERE MemberID = '" & myGridView.DataKeys.Item(e.RowIndex).Value & "'"
objCmd = New SqlCommand(strSQL, objConn)
objCmd.ExecuteNonQuery()
myGridView.EditIndex = -1
BindData()
Dim FileToDelete As String
FileToDelete = Server.MapPath("Myfiles/")
File.Delete(FileToDelete)
End Sub
Sub myGridView_RowCommand(ByVal source As Object, ByVal e As GridViewCommandEventArgs)
If e.CommandName = "Add" Then
'*** MemberID ***'
Dim txtMemberID As TextBox = CType(myGridView.FooterRow.FindControl("txtAddMemberID"), TextBox)
'*** Username ***'
Dim txtUsername As TextBox = CType(myGridView.FooterRow.FindControl("txtAddUsername"), TextBox)
'*** Password ***'
Dim txtPassword As TextBox = CType(myGridView.FooterRow.FindControl("txtAddPassword"), TextBox)
'*** Name ***'
Dim txtName As TextBox = CType(myGridView.FooterRow.FindControl("txtAddName"), TextBox)
'*** Email ***'
Dim txtEmail As TextBox = CType(myGridView.FooterRow.FindControl("txtAddEmail"), TextBox)
'*** Country ***'
Dim txtCountry As TextBox = CType(myGridView.FooterRow.FindControl("txtCountry"), TextBox)
strSQL = "INSERT INTO customer (MemberID,Username,Password,Name,Email,Country) " & _
" VALUES ('" & txtMemberID.Text & "','" & txtUsername.Text & "','" & txtPassword.Text & "' " & _
" ,'" & txtName.Text & "','" & txtEmail.Text & "','" & txtCountry.Text & "') "
objCmd = New SqlCommand(strSQL, objConn)
objCmd.ExecuteNonQuery()
BindData()
End If
End Sub
Sub modUpdateCommand(ByVal s As Object, ByVal e As GridViewUpdateEventArgs)
'*** MemberID ***'
Dim txtMemberID As TextBox = CType(myGridView.Rows(e.RowIndex).FindControl("txtEditMemberID"), TextBox)
'*** Username ***'
Dim txtUsername As TextBox = CType(myGridView.Rows(e.RowIndex).FindControl("txtEditUsername"), TextBox)
'*** Password ***'
Dim txtPassword As TextBox = CType(myGridView.Rows(e.RowIndex).FindControl("txtEditPassword"), TextBox)
'*** Name ***'
Dim txtName As TextBox = CType(myGridView.Rows(e.RowIndex).FindControl("txtEditName"), TextBox)
'*** Email ***'
Dim txtEmail As TextBox = CType(myGridView.Rows(e.RowIndex).FindControl("txtEditEmail"), TextBox)
'*** Country ***'
Dim txtCountry As TextBox = CType(myGridView.Rows(e.RowIndex).FindControl("txtEditCountry"), TextBox)
strSQL = "UPDATE member SET MemberID = '" & txtMemberID.Text & "' " & _
" ,Username = '" & txtUsername.Text & "' " & _
" ,Password = '" & txtPassword.Text & "' " & _
" ,Name = '" & txtName.Text & "' " & _
" ,Email = '" & txtEmail.Text & "' " & _
" ,Country = '" & txtCountry.Text & "' " & _
" WHERE MemberID = '" & myGridView.DataKeys.Item(e.RowIndex).Value & "'"
objCmd = New SqlCommand(strSQL, objConn)
objCmd.ExecuteNonQuery()
myGridView.EditIndex = -1
myGridView.ShowFooter = True
BindData()
End Sub
</script>
<html>
<heaThaiCreate.Com ASP.NET - GridView</title>
</head>
<body>
<form id="form1" runat="server">
<asp:GridView id="myGridView" runat="server" AutoGenerateColumns="False "
ShowFooter="True"
DataKeyNames="MemberID"
OnRowEditing="modEditCommand"
OnRowCancelingEdit="modCancelCommand"
OnRowDeleting="modDeleteCommand"
OnRowUpdating="modUpdateCommand"
OnRowCommand="myGridView_RowCommand">
<Columns>
<asp:TemplateField HeaderText="CustomerID">
<ItemTemplate>
<asp:Label id="lblMemberID" runat="server" Text='<%# DataBinder.Eval(Container, "DataItem.MemberID") %>'></asp:Label>
</ItemTemplate>
<EditItemTemplate>
<asp:TextBox id="txtEditMemberID" size="5" runat="server" Text='<%# DataBinder.Eval(Container, "DataItem.MemberID") %>'></asp:TextBox>
</EditItemTemplate>
<FooterTemplate>
<asp:TextBox id="txtAddMemberID" size="5" runat="server"></asp:TextBox>
</FooterTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Username">
<ItemTemplate>
<asp:Label id="lblUsername" runat="server" Text='<%# DataBinder.Eval(Container, "DataItem.Username") %>'></asp:Label>
</ItemTemplate>
<EditItemTemplate>
<asp:TextBox id="txtEditUsername" size="20" runat="server" Text='<%# DataBinder.Eval(Container, "DataItem.Username") %>'></asp:TextBox>
</EditItemTemplate>
<FooterTemplate>
<asp:TextBox id="txtAddUsername" size="20" runat="server"></asp:TextBox>
</FooterTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Password">
<ItemTemplate>
<asp:Label id="lblPassword" runat="server" Text='<%# DataBinder.Eval(Container, "DataItem.Password") %>'></asp:Label>
</ItemTemplate>
<EditItemTemplate>
<asp:TextBox id="txtEditPassword" size="20" runat="server" Text='<%# DataBinder.Eval(Container, "DataItem.Password") %>'></asp:TextBox>
</EditItemTemplate>
<FooterTemplate>
<asp:TextBox id="txtAddPassword" size="20" runat="server"></asp:TextBox>
</FooterTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Name">
<ItemTemplate>
<asp:Label id="lblName" runat="server" Text='<%# DataBinder.Eval(Container, "DataItem.Name") %>'></asp:Label>
</ItemTemplate>
<EditItemTemplate>
<asp:TextBox id="txtEditName" size="20" runat="server" Text='<%# DataBinder.Eval(Container, "DataItem.Name") %>'></asp:TextBox>
</EditItemTemplate>
<FooterTemplate>
<asp:TextBox id="txtAddName" size="20" runat="server"></asp:TextBox>
</FooterTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Email">
<ItemTemplate>
<asp:Label id="lblEmail" runat="server" Text='<%# DataBinder.Eval(Container, "DataItem.Email") %>'></asp:Label>
</ItemTemplate>
<EditItemTemplate>
<asp:TextBox id="txtEditEmail" size="30" runat="server" Text='<%# DataBinder.Eval(Container, "DataItem.Email") %>'></asp:TextBox>
</EditItemTemplate>
<FooterTemplate>
<asp:TextBox id="txtAddEmail" size="30" runat="server"></asp:TextBox>
</FooterTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Country">
<ItemTemplate>
<asp:Label id="lblCountry" runat="server" Text='<%# DataBinder.Eval(Container, "DataItem.Country") %>'></asp:Label>
</ItemTemplate>
<EditItemTemplate>
<asp:TextBox id="txtEditCountry" size="30" runat="server" Text='<%# DataBinder.Eval(Container, "DataItem.Country") %>'></asp:TextBox>
</EditItemTemplate>
<FooterTemplate>
<asp:TextBox id="txtAddCountry" size="30" runat="server"></asp:TextBox>
<asp:Button id="btnAdd" runat="server" Text="Add" CommandName="Add"></asp:Button>
</FooterTemplate>
</asp:TemplateField>
<asp:CommandField ShowEditButton="True" CancelText="Cancel" DeleteText="Delete" EditText="Edit" UpdateText="Update" HeaderText="Modify" />
<asp:CommandField ShowDeleteButton="True" HeaderText="Delete" />
</Columns>
</asp:GridView>
</form>
</body>
</html>
Date :
2016-05-20 05:33:28
By :
tikus
ตอนนี้ผมทำได้แล้วครับ
อยากถามว่าเขียน Code แบบนี้ถูกไหมครับ หรือว่ามีวิธีการเขียนที่ดีกว่านี้ แนะนำหน่อยครับ
Code (VB.NET)
Sub modDeleteCommand(ByVal sender As Object, ByVal e As GridViewDeleteEventArgs)
strSQL = "Select Name From member WHERE MemberId = '" & myGridView.DataKeys.Item(e.RowIndex).Value & "'"
objCmd = New SqlCommand(strSQL, objConn)
objCmd.ExecuteNonQuery()
Dim dtAdapter As New SqlDataAdapter(strSQL, objConn)
Dim dt As New DataTable
dtAdapter.Fill(dt)
If dt.Rows.Count > 0 Then
strSQL = "Delete From member WHERE MemberId = '" & myGridView.DataKeys.Item(e.RowIndex).Value & "'"
objCmd = New SqlCommand(strSQL, objConn)
objCmd.ExecuteNonQuery()
Dim FileToDelete As String
FileToDelete = Server.MapPath("Myfiles/" & dt.Rows(0)("Name"))
File.Delete(FileToDelete)
End If
myGridView.EditIndex = -1
BindData()
End Sub
Date :
2016-05-20 22:16:51
By :
tikus
เอาแค่ทำงานได้ไปก่อนเถอะครับ สำหรับดีกว่า ไว้รอประสบการณ์สอนคุณดีกว่าครับ
บอกไปก็เหมือนสอนคนพูดท่องจำ ไม่ได้ประโยชน์ ครั้งจะมาอธิบาย มันก็มากโขอยู่
เอาแค่ศึกษาเรื่องไวยกรณ์ของแต่ละภาษาให้ดีให้แม่น มันจะช่วยให้คุณเขียนได้ดีขึ้นแน่นอนครับ
ถึงแม้คุณจะไม่รู้จักฟังก์ชั่นที่คนอื่นเขียนไว้ให้ คุณก็ยังจะเขียนขึ้นมาใช้งานได้เอง จากไวยกรณ์พื้นฐานนั้นแหล่ะครับ
Date :
2016-05-21 03:48:41
By :
Chaidhanan
Date :
2016-05-23 09:56:49
By :
mr.win
Load balance : Server 05