Muốn hiểu hơn về dòng code trong topic: rs.Open sQL, cn, 3, 3

Chia sẻ bởi:hands

★★★★★

‹ Hỏi về trích lọc dữ liệu sử... Ghi Dữ Liệu Vào File Đóng Bằng... ›

Quảng cáo

rs.Open sQL, cn,[COLOR=#ff0000] 3, 3[/COLOR]
Mình đọc qua các topic và cũng hỏi đôi lần về vấn đề này nhưng hình như
không đúng nội dung của topic nên không nhận được câu trả lời
Mình muốn hỏi các chỉ số 3,3 trên có chính xác bao nhiêu
thuộc tính và tác dụng? ( cả dạng số và chữ)
Mong nhận được sớm câu trả lời sớm của anh em trên diễn đàn

Cú pháp của câu lệnh trên là

recordset.Open Source, ActiveConnection, CursorType, LockType, Options

Source và Activeconection thì bạn biết rồi!!
3, 3 bạn hỏi tương ứng CursorType và LockType

CusorType có 5 hằng số lần lượt là adOpenDynamic = 2, adOpenForwardOnly = 0, adOpenKeyset =1, adOpenStatic = 3, adOpenUnspecified= -1

Locktype cũng có 5 hằng số lần lượt là adLockBatchOptimistic= 4, adLockOptimistic=3, adLockPessimistic=2, adLockReadOnly=1,adLockUnspecified=-1

Thật sư mình cũng rãnh về các hằng số đó nhưng mình thường dùng adOpenStatic = 3 và adLockReadOnly mình chỉ biết vậy mong các bạn góp ý thêm

www.giaiphapexcel.com/diendan/threads/mu%E1%BB%91n-hi%E1%BB%83u-h%C6%A1n-v%E1%BB%81-d%C3%B2ng-code-trong-topic-rs-open-sql-cn-3-3.85742/

Khóa học SprinGO phù hợp

Khóa học Power PI – Ứng dung trong Nhân sự

TỔNG QUAN KHÓA HỌC: POWER BI CHO NGÀNH NHÂN SỰ Khóa học Power BI cho Nhân sự được thiết kế dành riêng cho các...

Xem khóa học

★★★★★ 5 ★ 1 👤 1 ▥ 0

‹ Hỏi về trích lọc dữ liệu sử dụng... Ghi Dữ Liệu Vào File Đóng Bằng ADO ›

Quảng cáo

Bạn nên đọc

One Response

hands says:

31/01/2023 at 3:28 pm

Thank ban! còn tác dụng của tùng CusorType và Locktype chắc thêm phần này nữa mình sẽ hình dung được phần nào. Bạn lại giúp tiếp mình nhé?
```
Private Sub Form_load()
Dim cn As Object
  Dim rs As Object
  Set cn = CreateObject("ADODB.Connection")
  Set rs = CreateObject("ADODB.Recordset")
  cn.Provider = "Microsoft.ACE.OLEDB.12.0"
  cn.ConnectionString = "Data Source= " & App.Path & "/book1.xls; Extended Properties=""Excel 12.0;[COLOR=#008000]HDR=No[/COLOR];"";"
  cn.CursorLocation = 3
  cn.Open
  [COLOR=#ff0000]rs.Open "SELECT * FROM [sheet1$] [/COLOR][COLOR=#008000]WHERE[/COLOR][COLOR=#ff0000]  F2 like 'L%'", cn, 3, 1[/COLOR]
  Set DataGrid1.DataSource = rs
End Sub
```
Mình được biết thuộc tính 1 ở trên là chỉ đọc không sửa nhưng chưa áp dụng được để cho code chạy. bạn giúp mình hiểu được không?

FILE tải lên code cũng cần sửa theo code tren ạ!!!

Reply