▼ กำลังโหลดข้อมูล... ▼
แสดงความคิดเห็น
คุณสามารถแสดงความคิดเห็นกับกระทู้นี้ได้ด้วยการเข้าสู่ระบบ
กระทู้ที่คุณอาจสนใจ
อ่านกระทู้อื่นที่พูดคุยเกี่ยวกับ
การออกแบบฐานข้อมูล
การพัฒนา Desktop Application
VB (Visual Basic)
Microsoft Office
Microsoft Access
MS Access : ต้องการ insert ข้อมูลที่เป็น attachment field จาก table นึงไปอีก Table นึง
สมมติ : ต้องการ append /insert ข้อมูลจาก table TransactionTable ไปยัง MasterTable โดยมี field ตามด่านล่างนี้
MasterTable มี field ชื่อ
MIDnumber
MAttachment (attachment field)
TransactionTable มี field ชื่อ
TIDnumber
TAttachment (attachment field)
Public Sub UpdateMaster()
Dim rsMaster As DAO.Recordset
Dim rsTrans As DAO.Recordset
Dim rsMasterAtt As DAO.Recordset2
Dim rsTransAtt As DAO.Recordset2
Set rsMaster = CurrentDb.OpenRecordset("MasterTable", dbOpenDynaset)
Set rsTrans = CurrentDb.OpenRecordset("TransactionTable ", dbOpenDynaset)
'rsMaster.MoveFirst
'rsMaster.MoveLast
Set rsMasterAtt = rsMaster!attachfile.Value
Set rsTransAtt = rsTrans!attachfile.Value
Do While Not rsMasterAtt.EOF
rsMasterAtt.Delete
rsMasterAtt.MoveNext
Loop
' rsMasterAtt!MIDnumber = rsTransAtt!TIDnumber
Do While Not rsTransAtt.EOF
rsMasterAtt.AddNew
rsMasterAtt!FileData = rsTransAtt!FileData
rsMasterAtt!fileName = rsTransAtt!fileName
rsMasterAtt!FileType = rsTransAtt!FileType
rsMasterAtt.Update
rsTransAtt.MoveNext
Loop
Set rsMasterAtt = Nothing
Set rsTransAtt = Nothing
rsMaster.Close
rsTrans.Close
Set rsMaster = Nothing
Set rsTrans = Nothing