Error "You must use the dbSeeChanges option with OpenRecordSet..." แก้ยังไงคะ



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

28 มี.ค. 63 , 00:13:31
อ่าน 94 ครั้ง

mtaccess

ขอรบกวนสอบถามค่ะ พอดีมีการย้าย Database จาก Access เป็น SQL ติดปัญหาตอนแก้ไขข้อมูลค่ะ แสดง error ตามรูปนี้ค่ะ รบกวนแนะนำด้วยค่ะ


ตัวอย่างโค้ด update ค่ะ ปรกติใช้ Database Access คำสั่งนี้ทำงานได้ปรกติ พอเปลี่ยนเป็น SQL โดยการทำลิงค์เข้ามาแล้วไม่ได้ค่ะ

โค๊ด: [Select]
Private Sub cmdEdit_Click()
   If Me.txtID.Tag & "" = "" Then
                MsgBox "¡ÃسÒàÅ×Í¡¢éÍÁÙÅ·Õèµéͧ¡ÒÃá¡éä¢"
   Else
                CurrentDb.Execute "UPDATE dbo_Register " & _
                    " SET dbo_Register.CardID='" & Me.txtCardID & "', dbo_Register.Title='" & Me.comboTitle & "', dbo_Register.TitleEn='" & Me.comboTitleEn & "', dbo_Register.Name='" & Me.txtName & "', dbo_Register.NameEn='" & Me.txtNameEn & "', dbo_Register.Surname='" & Me.txtSurname & "', dbo_Register.SurnameEn='" & Me.txtSurnameEn & "', dbo_Register.Sex='" & Me.comboSex.Column(1) & "', dbo_Register.Sex_Ramco='" & Me.txtSex & "', dbo_Register.Blood='" & Me.comboBlood & "', dbo_Register.BirthDate='" & Me.txtBirthDate & "'" & _
                    ", dbo_Register.ADDRNO='" & Me.txtADDRNO & "', dbo_Register.ADDRMU='" & Me.txtADDRMU & "', dbo_Register.ADDRTR='" & Me.txtADDRTR & "', dbo_Register.ADDRSOI='" & Me.txtADDRSOI & "', dbo_Register.ADDRRD='" & Me.txtADDRRD & "', dbo_Register.ADDRTB='" & Me.txtADDRTB & "', dbo_Register.ADDRAP='" & Me.txtADDRAP & "', dbo_Register.ADDRCW='" & Me.txtADDRCW & "', dbo_Register.ADDRZIPCODE='" & Me.txtADDRZIPCODE & "', dbo_Register.Age='" & Me.txtCalcAge & "'" & _
                    ", dbo_Register.TrainingStartDate='" & Me.txtTrainingStartDate & "', dbo_Register.MaritalStatus='" & Me.txtMarital & "', dbo_Register.MilitaryStatus='" & Me.comboMilitary & "', dbo_Register.Disability='" & Me.comboDisability & "', dbo_Register.Ethnicity='" & Me.txtEthnicity & "'" & _
                    ", dbo_Register.Country='" & Me.comboCountry & "', dbo_Register.HomeState='" & Me.txtHomeState & "', dbo_Register.ModifiedBy='" & Me.txtLogin & "', dbo_Register.ModifiedDate=Now()" & _
                    " WHERE dbo_Register.ID=" & Me.txtID.Tag
                    MsgBox "á¡é䢢éÍÁÙÅàÃÕºÃéÍÂáÅéÇ"
End If
cmdCancel_Click
frmRegistersubform.Form.Requery
End Sub

 

28 มี.ค. 63 , 09:46:37
ตอบกลับ #1

สันติสุข

: Error "You must use the dbSeeChanges option with OpenRecordSet..." แก้ยังไงคะ
« ตอบกลับ #1 เมื่อ: 28 มี.ค. 63 , 09:46:37 »
เพิ่มเติมต่อท้ายเป็น CurrentDB.Execute xxxxxxx , dbFailOnError Or dbSeeChanges ครับ
ช่วยพกถุงผ้า/ถุงพลาสติกไปซื้อของเพื่อลดการใช้พลาสติก ขยะ รักษาสิ่งแวดล้อม และไม่ให้ภาวะโลกร้อนวิกฤติเร็วขึ้นกว่านี้
ช่วยคลิกโฆษณาข้างล่างนี้ เพื่อสนับสนุนเวปบอร์ดด้วยครับ
:nice day:
 
โพสต์นี้ได้รับคำขอบคุณจาก: mtaccess

28 มี.ค. 63 , 13:42:39
ตอบกลับ #2

Kxess

: Error "You must use the dbSeeChanges option with OpenRecordSet..." แก้ยังไงคะ
« ตอบกลับ #2 เมื่อ: 28 มี.ค. 63 , 13:42:39 »
ทุกคำสั่ง CurrentDb.Execute ต้องมี dbSeeChanges ต่อท้ายครับ

เช่น CurrentDb.Execute "DELETE * from Customers WHERE Customer_ID = " & CurrentC_ID, dbSeeChanges

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

30 มี.ค. 63 , 00:54:51
ตอบกลับ #3

mtaccess

: Error "You must use the dbSeeChanges option with OpenRecordSet..." แก้ยังไงคะ
« ตอบกลับ #3 เมื่อ: 30 มี.ค. 63 , 00:54:51 »
ทำได้แล้วค่ะ ขอบคุณมากๆนะคะ

 


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