-
07-17-2010, 02:35 AM #1
Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Điều chỉnh thông tin thông qua Query
Sau thời gian sưu tầm và tìm tòi, em có được câu lệnh chỉnh sửa thông tin như sau:
Dim db As Database, rs As Recordset, DK As String
Set db = CurrentDb
Set rs = db.OpenRecordset("tblC_Tiet", dbOpenDynaset)
DK = "SC_tu = '" & Me!txtSC_tu & "'"
rs.FindFirst DK
If Not rs.NoMatch Then
rs.Edit
rs!Ngay = Me!txtNgay
rs!SC_tu = Me!txtSC_tu
rs!Ten = Me!txtTen
rs!S_Tien = Me!txtS_Tien
rs!N_dung = Me!txtN_dung
rs!G_chu = Me!txtG_chu
rs.Update
End If
rs.Close
Set db = Nothing
Nhưng đó là em đã chui thẳng vào table mà chỉnh sửa
Giờ em muốn chỉnh sửa thông tin qua query thì em viết lệnh như nào, nhờ anh chị chỉ bảo.
Em cảm ơn nhiều nhiều...!View more random threads:
- Mọi người giúp mình với, chết toi roài
- Hỏi đăng nhập quá 3 lần thì thoát.
- TIP: Kiểm tra dung lượng file Access .
- Kết nối SQL server với Access
- Các phần phụ của 1 phần mềm.
- Hiện Msgbox khi mo Acess
- Gán nút lệnh cho phím chức năng.
- Cần mấy pro giúp đở gắp
- Không cho tự động ghi record.
- Có cách nào để lấy về thời gian hệ thống của 1 máy qua mạng Lan không mọi người ?
-
07-19-2010, 01:05 AM #2
Silver member
- Ngày tham gia
- May 2016
- Bài viết
- 0
Ðề: Điều chỉnh thông tin thông qua Query
Gửi bởi tienduyet
Nếu sử dụng query, bạn thử dùng câu lệnh sau xem sao:
UPDATE tblC_Tiet Set tblC_Tiet.ngay = me.txtNgay where tblC_Tiet.SC_Tu = me.txtSC_tu
-
07-19-2010, 07:13 PM #3
Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: Điều chỉnh thông tin thông qua Query
Gửi bởi tienduyet
Set rs = db.OpenRecordset("qryC_Tiet", dbOpenDynaset)
-
07-23-2010, 01:15 AM #4
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Điều chỉnh thông tin thông qua Query
Em đã làm theo cách của anh chip2006 trước khi gửi bài rồi, nhưng không được.
Có ai có cách khác hay hơn không ạ !?
-
07-24-2010, 07:59 AM #5
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Điều chỉnh thông tin thông qua Query
Một database object thì có 1 conection object và ngược lại.
2 cái đó, để cho đơn giản, hãy xem như 1, chỉ là do người ta tạo ra như thế cho tiện sử dụng khi đóng mở 1 database.
Về giao diện thì conection object có 2 object con:
- QueryDef.
- Recordset.
Bạn có thể gán các lệnh qua 2 đối tượng này.
Ngoài ra, connection object cũng là 1 object và cũng có giao diện của nó, và bạn cũng có thể gán lệnh qua conection object, giống như mua tận gốc bán tận ngọn, không qua thằng cò, thằng đại lý vậy đó.
Đối với Connection và Recordset bạn có thể truy xuất dữ liệu hoặc ra các lệnh chỉnh sửa dữ liệu (action queries), trong khi với QueryDef, như tên gọi của nó, thường đuợc dùng để truy xuất dữ liệu.
Như ở trên bạn đã phát lệnh cho đối tượng Recordset:
Set rs = db.OpenRecordset("tblC_Tiet", dbOpenDynaset)
...
rs.Update
Lẽ dĩ nhiên nếu muốn phát lệnh cho conection object hoặc database object thì bạn cần khởi tạo đối tượng conection hoặc database và sau đó gán lệnh bằng cú pháp thích hợp. Ví dụ:
Dim db As Database, conn As Connection, DK As String
Set db = CurrentDb
DK = "UPDATE tblC_Tiet SET SC_tu = '" & Me!txtSC_tu & "'"
Set conn = db.Connection
conn.Execute DK
Như đã nói ở phần đầu, bạn có thể gắn lệnh Execute vào Connection Object hay Database Object đều được.
Trong trường hợp bạn xài ADO (ActiveX Data Object) thì còn có thêm 1 đối tượng là Command Object để phát lệnh nữa.
Thêm: Đối với database object, ngoài 3 đối tượng con là Connection Object, Recordset Object và QueryDef Object còn có đối tượng con của nó là TableDef Object dùng để chỉnh sửa cấu trúc của các table.
Kể với bác sĩ, anh M. cho biết bữa qua là sinh nhật của mình nên có đi ăn tối, rồi trở về nhà quan hệ tình dục với vợ. Trong quá trình quan hệ , vợ anh dùng miệng "tác động" nhiều vào vùng tinh hoàn....
Hy hữu. Anh chàng suýt mất tinh hoàn vì chơi bằng miệng với vợ