แสดงกระทู้
1
ห้อง MS Access / : สอบถามการอ้างอิง Edit แบบ adodb ครับ
« เมื่อ: 13 ธ.ค. 62 , 10:27:21 »
Private Sub Command2_Click()
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.Open "Table1", CurrentProject.Connection, adOpenStatic, adLockOptimistic
rst.Supports (adUpdate)
rst.field(0) = txt1.value
rst.field(1) = txt2.value
rst.Update
rst.close
rst = nothing
End Sub
ลองดูครับ ว่าได้ไหม
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.Open "Table1", CurrentProject.Connection, adOpenStatic, adLockOptimistic
rst.Supports (adUpdate)
rst.field(0) = txt1.value
rst.field(1) = txt2.value
rst.Update
rst.close
rst = nothing
End Sub
ลองดูครับ ว่าได้ไหม
โพสต์นี้ได้รับคำขอบคุณจาก: akekorn
