Forgot Password ??

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

	Registered : 109,037

HOME > .NET Framework > Forum > บันทึกลง DB ไม่ได้เลย ทำไงดีครับ ... ("คุณป้อนรหัสลูกค้าซ้ำ !!!", "ผลการทำงาน") ... หรือว่าใครมีวิธี ไรแนะนำบ้าง ขอบคุณคับ

บันทึกลง DB ไม่ได้เลย ทำไงดีครับ ... ("คุณป้อนรหัสลูกค้าซ้ำ !!!", "ผลการทำงาน") ... หรือว่าใครมีวิธี ไรแนะนำบ้าง ขอบคุณคับ

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

OoMRoO

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

Code

Private Sub cmdAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAdd.Click
If txtcustomerid.Text.Trim() = "" Then
MessageBox.Show("กรุณาป้อนรหัสลูกค้าก่อน !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
txtcustomerid.Focus()
Exit Sub
End If

If txtname.Text.Trim() = "" Then
MessageBox.Show("กรุณาป้อนชื่อลูกค้าก่อน !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
txtname.Focus()
Exit Sub
End If

If MessageBox.Show("คุณต้องการเพิ่มลูกค้าใหม่ ใช่หรือไม่?", "คำยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
tr = Conn.BeginTransaction() 'ติดตรงนี้ Invalid operation. The connection is closed.
Try
sb.Remove(0, sb.Length)
sb.Append("INSERT INTO member (FullName,Sex,Birthday,Address,Tel,Email,DateTackout)")
sb.Append(" VALUES (@FullName, @Sex, @Birthday, @Address, @Tel, @Email, @DateTackout)")
Dim sqlAdd As String
sqlAdd = sb.ToString()

With com
.CommandText = sqlAdd
.CommandType = CommandType.Text
.Connection = Conn
.Transaction = tr
.Parameters.Clear()
.Parameters.Add("@FullName", OleDb.OleDbType.VarChar).Value = txtname.Text.Trim()
.Parameters.Add("@Sex", OleDb.OleDbType.VarChar).Value = txtsex.Text.Trim()
.Parameters.Add("@Birthday", OleDb.OleDbType.VarChar).Value = mtbbirthday.Text.Trim()
.Parameters.Add("@Address", OleDb.OleDbType.VarChar).Value = txtaddress.Text.Trim()
.Parameters.Add("@Tel", OleDb.OleDbType.VarChar).Value = txttel.Text.Trim()
.Parameters.Add("@Email", OleDb.OleDbType.VarChar).Value = txtmail.Text.Trim()
.Parameters.Add("@DateTackout", OleDb.OleDbType.VarChar).Value = mtbday.Text.Trim()

.ExecuteNonQuery()
End With
tr.Commit()
MessageBox.Show("เพิ่มลูกค้าใหม่ เรียบร้อยแล้ว !!!", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)

ClearAllData()
ShowData()
FormatDgvCustomerList()
Catch ex As Exception
MessageBox.Show("คุณป้อนรหัสลูกค้าซ้ำ !!!", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
tr.Rollback()
End Try
End If
txtcustomerid.Focus()
End Sub

หรือว่าใครมีวิธี ไรแนะนำบ้าง ขอบคุณคับ

Tag : - - - -

Date : 2009-09-28 17:30:22

By : meraiwa

View : 1860

Reply : 3

No. 1

BEST

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

มี error อะไรครับ

Date : 2009-09-29 09:15:50

By : besttooo

No. 2

Guest

เปิด Connection ก่อนสิครับพี่น้อง

Date : 2010-02-02 10:48:25

By : กี้

No. 3

Guest

conn.open
tr = Conn.BeginTransaction()
ลองดูเด้อ

Date : 2010-02-02 10:50:13

By : กี้

ค้นหาข้อมูล

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

Re : บันทึกลง DB ไม่ได้เลย ทำไงดีครับ ... ("คุณป้อนรหัสลูกค้าซ้ำ !!!", "ผลการทำงาน") ... หรือว่าใครมีวิธี ไรแนะนำบ้าง ขอบคุณคับ

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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

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

Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ