Tùy chọn
Về sự khác nhau trong câu lệnh nạp bản ghi cho Unbound form
- Về sự khác nhau trong câu lệnh nạp bản ghi cho Unbound form
-
Về sự khác nhau trong câu lệnh nạp bản ghi cho Unbound form
ongke0711 > 22-12-15, 08:44 PM
Nhờ các anh em trong diễn đàn giải thích giùm về cách viết câu lệnh nạp record từ table cho Unbound form. Mình thấy có 2 cách nhưng không biết nó khác nhau như thế nào? điểm tốt/ xấu của mỗi cách viết? (Do tự học lung tung nên có những cái cơ bản mình chưa thông
).
Lấy record: rs.Fields("Tên Field").Value VS rs!Tên Field (cách này hay sử dụng)
Ví dụ:
Public Sub NapBanGhi()
Dim sSQL As String
If IsNull(Me.OpenArgs) = False Then
sSQL = "SELECT * FROM tblBangCap WHERE [Ma] = " & Me.OpenArgs
Set db = CurrentDb
Set rs = db.OpenRecordset(sSQL, dbOpenDynaset)
......................................................................
Cách 1:
Me.txtMa = rs.Fields("Ma").Value
Me.txtTen = rs.Fields("Ten").Value
Me.txtGhiChu = rs.Fields("GhiChu").Value
......................................................................
Cách 2:
Me.txtMa = rs!Ma
Me.txtTen = rs!Ten
Me.txtGhiChu = rs!GhiChu
.....................................................................
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
End If
End Sub -
RE: Về sự khác nhau trong câu lệnh nạp bản ghi cho Unbound form
maidinhdan > 23-12-15, 11:51 PM
(22-12-15, 08:44 PM)ongke0711 Đã viết: Nhờ các anh em trong diễn đàn giải thích giùm về cách viết câu lệnh nạp record từ table cho Unbound form. Mình thấy có 2 cách nhưng không biết nó khác nhau như thế nào? điểm tốt/ xấu của mỗi cách viết? (Do tự học lung tung nên có những cái cơ bản mình chưa thông
).
Lấy record: rs.Fields("Tên Field").Value VS rs!Tên Field (cách này hay sử dụng)
Ví dụ:
Public Sub NapBanGhi()
Dim sSQL As String
If IsNull(Me.OpenArgs) = False Then
sSQL = "SELECT * FROM tblBangCap WHERE [Ma] = " & Me.OpenArgs
Set db = CurrentDb
Set rs = db.OpenRecordset(sSQL, dbOpenDynaset)
......................................................................
Cách 1:
Me.txtMa = rs.Fields("Ma").Value
Me.txtTen = rs.Fields("Ten").Value
Me.txtGhiChu = rs.Fields("GhiChu").Value
......................................................................
Cách 2:
Me.txtMa = rs!Ma
Me.txtTen = rs!Ten
Me.txtGhiChu = rs!GhiChu
.....................................................................
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
End If
End Sub
Không khác nhau đâu. Mặc định không viết được Access hiểu là "một chuỗi" tương ứng là .Value ( kể cả Me.txtMa cũng cần thêm .Value <=> Me.txtMa..Value)
Đây là kiểu khai báo na ná khai báo tường minh một biến thôi.
Tốt nhất chúng ta nên sử dụng đầy đủ cú pháp là hay nhất, vì sao phải làm như vậy: Để tránh các phiên bản Access kế tiếp ra đời nếu có thay đổi về cấu trúc nó vẫn đọc được các hàm lệnh ta thao tác. -
RE: Về sự khác nhau trong câu lệnh nạp bản ghi cho Unbound form
hieuvn > 24-12-15, 11:57 AM
nếu form cố định,ít thay đổi thì bạn có thể dùng rs(0),rs(1)...
sử dụng cách này chạy nhanh nhất! -
RE: Về sự khác nhau trong câu lệnh nạp bản ghi cho Unbound form
ongke0711 > 24-12-15, 01:02 PM
(24-12-15, 11:57 AM)hieuvn Đã viết: nếu form cố định,ít thay đổi thì bạn có thể dùng rs(0),rs(1)...
sử dụng cách này chạy nhanh nhất!
Ý bạn hieuvn là rs.Fields(0),.. phải không? Cảm ơn! ý kiến của bạn cũng đúng mục tiêu của mình là cho nhanh và nhẹ...
Mình đang dùng cách kiểm tra các control trên form có thỏa đk không rồi tự động gán record cho control đó (textbox). Khi chạy form sẽ search hết các controls trên form để tìm ra textbox cần gán nên chưa biết nó có chậm lắm không? Form của mình chỉ có 3 field nên không cảm nhận nhanh chậm hehe.
- Cách này mình làm để đỡ mất công khi: Recordset có thêm Field, Form có thêm textbox thì khỏi phải vô code add thêm dòng "Me.txtFieldMoi.Value = rs.Fields("FieldMoi").Value"
- Nếu form có nhiều textbox thì cũng đỡ phải add cả chục dòng code trên.
- Cách này bắt buộc phải đặt Textbox.Name theo qui ước: "txt" + tên Field.
- Nhược điểm là 2 vòng lặp For..Next chắc sẽ làm chậm đi chút .
Mã PHP:Public Sub GetRecord(db As DAO.Database, rs As DAO.Recordset, frm As Form)
Dim fld As Field
Dim ctl As Control
For Each fld In rs.Fields
For Each ctl In frm.Controls
If ctl.Name = "txt" & fld.Name Then
ctl.Value = rs.Fields("" & fld.Name & "").Value
End If
Next
Next
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
End Sub -
RE: Về sự khác nhau trong câu lệnh nạp bản ghi cho Unbound form
tt1212 > 30-12-15, 12:03 AM
ko hay -
RE: Về sự khác nhau trong câu lệnh nạp bản ghi cho Unbound form
ongke0711 > 30-12-15, 01:06 PM
Bạn tt1212 có cách hay thì chia sẽ để học hỏi nhé.