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,038

HOME > .NET Framework > Forum > ผมมีปัญหาเกี่ยวกับ Update กับ Delete ครับ รบกวนท่านผู้รู้ทีนะครับ


 

[.NET] ผมมีปัญหาเกี่ยวกับ Update กับ Delete ครับ รบกวนท่านผู้รู้ทีนะครับ

 
Topic : 036247



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



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



Code (VB.NET)
01.Public Class AddChemForm
02. 
03.    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
04.        Me.Close()
05.    End Sub
06. 
07.    Private Sub AddChemForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
08.        Call GetData()
09.    End Sub
10.    Sub GetData()
11.        strSql = "Select Chemical.ChemId AS รหัสสารเคมี, Chemical.ChemName AS ชื่อสารเคมี, " & _
12.                 "Chemical.ChemUnit AS หน่วยนับ, Chemical.Chemtotal AS จำนวนคงคลัง From Chemical"
13. 
14.        DA.SelectCommand.CommandText = strSql
15.        DA.Fill(DS, "Getchem")
16.        DS.Tables("Getchem").Clear()
17.        DA.Fill(DS, "Getchem")
18. 
19.        DataGridView1.DataSource = DS.Tables("Getchem")
20.        DataGridView1.ReadOnly = True
21.    End Sub
22. 
23.    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
24.        strSql = "Insert Into Chemical (ChemId, ChemName, ChemUnit, Chemtotal) Values ('" & _
25.                TextBox1.Text & "','" & TextBox2.Text & "','" & _
26.                TextBox3.Text & "','" & NumericUpDown1.Text & "')"
27.        Try
28.            With Comm
29.                .CommandText = strSql
30.                .CommandType = CommandType.Text
31.                .Connection = Conn
32.                .ExecuteNonQuery()
33.            End With
34. 
35.            Call GetData()
36.            MessageBox.Show("เพิ่มข้อมูลสำเร็จ", "สำเร็จ", MessageBoxButtons.OK, MessageBoxIcon.Information)
37.        Catch ex As Exception
38.            MessageBox.Show("มีสารเคมีชนิดนี้อยู่แล้วในฐานข้อมูล", "พบข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Warning) ' & vbCrLf & Err.Description
39.        End Try
40.    End Sub
41. 
42.    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
43.        strSql = "Update Chemical set ChemId = '" & TextBox1.Text & "', ChemName = '" & _
44.              TextBox2.Text & "', ChemUnit = '" & TextBox3.Text & ", Chemtotal = '" & _
45.              NumericUpDown1.Text & "'"
46. 
47.        Try
48.            With Comm
49.                .CommandText = strSql
50.                .CommandType = CommandType.Text
51.                .Connection = Conn
52.                .ExecuteNonQuery()
53.            End With
54. 
55. 
56.            MessageBox.Show("แก้ไขข้อมูลเสร็จสิ้น", "สำเร็จ", MessageBoxButtons.OK, MessageBoxIcon.Information)
57.        Catch ex As Exception
58.            MessageBox.Show("การแก้ไขข้อมูลผิดพลาด", "", MessageBoxButtons.OK, MessageBoxIcon.Warning) ' & vbCrLf & Err.Description
59.        End Try
60.        Call GetData()
61.    End Sub
62. 
63.    Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
64.        TextBox1.Text = DataGridView1.Rows(e.RowIndex).Cells(0).Value
65.        TextBox2.Text = DataGridView1.Rows(e.RowIndex).Cells(1).Value
66.        TextBox3.Text = DataGridView1.Rows(e.RowIndex).Cells(2).Value
67.        NumericUpDown1.Text = DataGridView1.Rows(e.RowIndex).Cells(3).Value
68.        Button1.Enabled = False
69.    End Sub
70. 
71.    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
72.        strSql = "Delete * From Chemical where ChemId = '" & TextBox1.Text & "'"
73. 
74.        Try
75.            With Comm
76.                .CommandText = strSql
77.                .CommandType = CommandType.Text
78.                .Connection = Conn
79.                .ExecuteNonQuery()
80.            End With
81. 
82. 
83.            MessageBox.Show("ลบข้อมูลเสร็จสิ้น", "สำเร็จ", MessageBoxButtons.OK, MessageBoxIcon.Information)
84.        Catch ex As Exception
85.            MessageBox.Show("การลบข้อมูลผิดพลาด", "", MessageBoxButtons.OK, MessageBoxIcon.Warning) ' & vbCrLf & Err.Description
86.        End Try
87.        Call GetData()
88.    End Sub
89. 
90.    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
91.        TextBox1.Text = ""
92.        TextBox2.Text = ""
93.        TextBox3.Text = ""
94.        NumericUpDown1.Text = ""
95.        Button1.Enabled = True
96.    End Sub
97. 
98.End Class




Tag : - - - -

Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2009-12-26 14:23:10 By : nuinyzaa View : 1239 Reply : 3
 

 

No. 1



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



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


มัน Error ตรงไหนอะครับ แล้ว Error ว่ายังไงอะครับ
Date : 2009-12-26 16:03:58 By : Nameless
 

 

No. 2



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



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


ตรง Delete * from ....

ใช้เป็น delete from
Date : 2009-12-26 16:40:02 By : otomokung
 

 

No. 3



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



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


ขอบคุณครับ
Date : 2009-12-29 20:13:34 By : nuinyzaa
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : ผมมีปัญหาเกี่ยวกับ Update กับ Delete ครับ รบกวนท่านผู้รู้ทีนะครับ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ 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 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)





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