ตรวจสอบการรัน SQL สำเร็จหรือไม่


0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

21 เม.ย. 63 , 09:06:09
อ่าน 989 ครั้ง

chai

สอบถามครับว่าเราจะตรวจสอบได้อย่างไรว่าเมื่อเราใช้คำสั่ง docmd.Runsql "" ทั้ง Update Insert Delete เมื่อทำงานสำเร็จ ให้ Message บอกว่าได้ดำเนินการแล้ว มีการ insert update delete ในฐานข้อมูลเกิดขึ้นจริงๆ

 
โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit

21 เม.ย. 63 , 09:25:21
ตอบกลับ #1

PNR

: ตรวจสอบการรัน SQL สำเร็จหรือไม่
« ตอบกลับ #1 เมื่อ: 21 เม.ย. 63 , 09:25:21 »
ใช้ RecordsAffected เช็คครับเช่น


Private Sub Command6_Click()
Dim  SQL As String
Dim DB As DAO.Database
Set DB = CurrentDb

SQL = "INSERT INTO T1 ( Field1, Field2, Field3 ) SELECT Table1.Field1, Table1.Field2, Table1.Field3 FROM Table1;"
DB.Execute SQL

If DB.RecordsAffected <= 0 Then
   MsgBox "ไม่มีข้อมูลที่นำเข้า."
Else
MsgBox "นำเข้าจำนวน " & DB.RecordsAffected & " เรคคอร์ด", vbInformation, "Myprogram"
End If

set DB = nothing
End Sub

อันนี้คือตัวอย่าง Insert ลองดูกับ Delete และ Update ดูครับได้เหมือนกัน
« แก้ไขครั้งสุดท้าย: 21 เม.ย. 63 , 09:34:42 โดย PNR »
Time to stop for me  :dizzy:
 
โพสต์นี้ได้รับคำขอบคุณจาก: chai

22 เม.ย. 63 , 08:54:47
ตอบกลับ #2

chai

: ตรวจสอบการรัน SQL สำเร็จหรือไม่
« ตอบกลับ #2 เมื่อ: 22 เม.ย. 63 , 08:54:47 »
ขอบคุณมากครับ

 
โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit


บอร์ดเรียนรู้ Access สำหรับคนไทย


 

Sitemap 1 2 3 4 5