Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,038

HOME > .NET Framework > Forum > ข้อมูลที่เพิ่มเข้าไปใหม่ถ้ามีอยู่แล้วในฐานข้อมูลจะมีข้อความแจ้งเตือน

ข้อมูลที่เพิ่มเข้าไปใหม่ถ้ามีอยู่แล้วในฐานข้อมูลจะมีข้อความแจ้งเตือน

เริ่มหัวข้อใหม่

mind

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

Code (VB.NET)

Dim conn As New SqlConnection
Dim cmd As New SqlCommand()
Dim c As String

conn.ConnectionString = "Data Source=chat-PC;Initial Catalog=Shop;User ID=sa;Password=1234"
cmd.CommandText = "SELECT COUNT(Room_id), COUNT(Services_equipment)   from Services   where Room_id= '" & txtidroom.Text & "' and Services_equipment = '" & txtidse.Text & "' "

cmd.Connection = conn
cmd.Connection.Open()
c = cmd.ExecuteScalar
End If
If c > 0 Then
 MessageBox.Show("รหัสห้องพักนี้ได้แจ้งการซ่อมประเภทนี้แล้ว", "ข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If

ตอนแรกมันเตือน "รหัสห้องพักนี้ได้แจ้งการซ่อมประเภทนี้แล้ว"
พอคลิกรอบที่ 2 มัน Error ค่ะ

==" ไม่รู้ว่าต้องมีคำสั่งเพิ่มเติ่มไมค่ะ เช็คให้หน่อยนะค่ะ ขอบคุณค่ะ ^^

Tag : .NET, VB.NET

Date : 2011-09-27 04:16:58

By : mind_mind

View : 880

Reply : 2

No. 1

TC Admin

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

Code (VB.NET)

			Dim intNumRows As Integer
			strSQL = "SELECT COUNT(*) FROM customer WHERE CustomerID = '"& Me.txtCustomerID.Text &"' "		
			objCmd = New SqlCommand(strSQL, objConn)
			intNumRows = objCmd.ExecuteScalar()

			IF intNumRows > 0 Then
				Me.pnlAdd.Visible = False
				Me.lblStatus.Visible = True
				Me.lblStatus.Text = "CustomerID already exist."
			Else	
			

				strSQL = "INSERT INTO customer (CustomerID,Name,Email,CountryCode,Budget,Used) " & _
				" VALUES " & _
				" ('" & Me.txtCustomerID.Text & "','" & Me.txtName.Text & "','" & Me.txtEmail.Text & "', " & _
				" '" & Me.txtCountryCode.Text & "','" & Me.txtBudget.Text & "','" & Me.txtUsed.Text & "')"

				objCmd = New SqlCommand
				With objCmd
				   .Connection = objConn
				   .CommandText = strSQL
				   .CommandType = CommandType.Text		   
				End With
								
				Me.pnlAdd.Visible = False
				Try
					objCmd.ExecuteNonQuery()            
					Me.lblStatus.Text = "Record Inserted"
					Me.lblStatus.Visible = True
				Catch ex As Exception
					Me.lblStatus.Visible = True
					Me.lblStatus.Text = "Record can not insert Error ("& ex.Message &")"
				End Try

		End IF

ดูตัวอย่างครับ

Date : 2011-09-27 06:19:46

By : webmaster

No. 2

Guest

ได้แล้วครับ ขอบคุณครับ ^^

Date : 2011-10-02 13:11:05

By : mind_mind

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : ข้อมูลที่เพิ่มเข้าไปใหม่ถ้ามีอยู่แล้วในฐานข้อมูลจะมีข้อความแจ้งเตือน

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

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

Notice

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

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)