|
|
|
ลบข้อมูลไม่ได้อ่าค่ะ ช่วยดูโค๊ดให้หน่อยค่ะ ........ |
|
|
|
|
|
|
|
ลบข้อมูลไม่ได้อ่าค่ะ ช่วยดูโค๊ดให้หน่อยค่ะ ทำ Relation CasCade On Delete/On Update แล้วนะคะ แล้วก็มาเขียนโค๊ดในปุ่มลบ ดังนี้ค่ะ มันไม่ error ไรนะคะ มันก็ขึ้นข้อความว่า ลบข้อมูล เรียบร้อยแล้ว แต่ที่จิงแล้ว ข้อมูลไม่ลบอ่าค่ะ
Try
tr = Conn.BeginTransaction()
sb.Remove(0, sb.Length)
sb.Append("DELETE FROM HISTORY ")
sb.Append(" WHERE (PID=@PID)")
Dim sqlCmd As String
sqlCmd = sb.ToString()
With com
.CommandText = sqlCmd
.CommandType = CommandType.Text
.Connection = Conn
.Transaction = tr
.Parameters.Clear()
.Parameters.Add("@PID", SqlDbType.NVarChar).Value = CInt(txtPid.Text.Trim)
End With
tr.Commit()
MessageBox.Show("ลบข้อมูล เรียบร้อยแล้ว !!!", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show("เกิดข้อผิดพลาดเนื่องจาก " & ex.Message, "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Try
Tag : .NET, Ms SQL Server 2005, Crystal Report, Win (Windows App), VB.NET
|
|
|
|
|
|
Date :
2010-09-02 22:41:13 |
By :
donut |
View :
1044 |
Reply :
2 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ชี้ไปที่ เจ้า Com ไม่มีการ Execute
|
|
|
|
|
Date :
2010-09-03 09:03:13 |
By :
kaimuk |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ขอบคุนค่ะ
|
|
|
|
|
Date :
2010-09-03 10:10:30 |
By :
donut |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Load balance : Server 04
|