Dim connection As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database.mdf;Integrated Security=True;User Instance=True"
Dim conn As New SqlConnection(connection)
Dim value As String = DropDownList1.SelectedValue
Dim file As New FileInfo(MapPath("IMAGE/" + DropDownList1.SelectedValue))
If file.Exists Then
file.Delete()
Label1.Text = "ลบไฟล์เรียบร้อยแล้ว "
conn.Open()
Dim CommDel As String = "DELETE FROM IMAGES FROM IMAGES_NAME = 'value' "
Dim com As New SqlCommand(CommDel, conn)
com.ExecuteNonQuery()
conn.Close()
Else
Me.Label2.Text = "Files Not Delete."
End If
Sql = "DELETE FROM Castomer where id= '" & TextBox1.Text & "'"
ต้องพิมพ์เเบบนี้ นะครับ Delete from ตารางชื่อ Castomer where โดยที่ id = ช่อง ที่ พลายมารีคีย์ ในฐานข้อมูล เท่ากับ Textbox1.text
Dim com As New SqlCommand(CommDel, conn) ' เป็นการเชื่อฐานข้อมูลของท่าน
Dim sql As String = ("delete from Regist where Std_Id = '" & ComboBox1.Text & "' and T_Id ='" & ComboBox3.Text & "' and Su_Id ='" & ComboBox2.Text & "'")
Dim sql As String = ("delete from Regist where Std_Id = '" & ComboBox1.SelectedValue & "' AND T_Id ='" & ComboBox3.SelectedValue & "' AND Su_Id ='" & ComboBox2.SelectedValue & "'")