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

[maytinhvp01]

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

 

[nmhung49]

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

 

[maytinhvp01]

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

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é?

 

[maytinhvp01]

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 [/COLOR][COLOR=#ff0000][sheet1$] [/COLOR][COLOR=#008000]WHERE[/COLOR][COLOR=#ff0000] [/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 ạ!!!