Cách điền một mảng với dữ liệu bản ghi

Question

Tôi đang cố di chuyển dữ liệu từ một bản ghi trực tiếp vào một mảng. Tôi biết điều này là có thể, nhưng đặc biệt tôi muốn làm điều này trong VBA như thế này đang được thực hiện trong MS Access 2003.

Thông thường tôi sẽ làm một cái gì đó như sau để đạt được điều này:

Dim vaData As Variant 
    Dim rst As ADODB.Recordset 

    ' Pull data into recordset code here... 

    ' Populate the array with the whole recordset. 
    vaData = rst.GetRows 

gì khác biệt tồn tại giữa VB và VBA mà làm cho loại hoạt động này không hoạt động?

Điều gì về mối quan tâm về hiệu suất? Đây có phải là một hoạt động "đắt tiền" không?

Answer 1

Lý do thông thường là mẫu của bạn sẽ không hoạt động là thư viện thích hợp cho ADO chưa được tham chiếu (Tools-> Tham khảo, Microsoft ActiveX Data Objects x.x Library), nếu không, nó sẽ ổn.

Answer 2

Tôi đồng ý rằng có vẻ như đó có thể là sự cố tham chiếu.

Nếu bạn định gắn bó với truy cập/máy bay phản lực thì bạn có thể muốn xem xét việc sử dụng DAO vì mọi thứ đều bằng nhau sẽ nhanh hơn ADO. Dưới đây là một ví dụ nhanh

Public Sub Foo() 
Dim aFoo As Variant 
Dim db As DAO.Database 
Dim rst As DAO.Recordset 

Set db = DBEngine(0)(0) 
Set rst = db.OpenRecordset("tblFoo") 

With rst 
    .MoveLast 
    .MoveFirst 
    aFoo = .GetRows(.RecordCount) 
End With 

rst.Close 
db.Close 

End Sub 

Answer 3

Các mã sau đây làm việc cho tôi:

Dim rst   As ADODB.Recordset 
Dim vDat   As Variant 

Set rst = CurrentProject.Connection.Execute("select * from tblTemp4") 
vDat = rst.GetRows 

Thực hiện debug-biên dịch, như đã đề cập này có thể là vấn đề ref. Như đã nói, một số DAO perfer, nhưng hãy nhớ DAO đòi hỏi bạn phải làm một movelast. ADO thì không. Những ngày này, ADO hoặc DAO thực sự đi xuống để thích của bạn, và hiệu suất hiếm khi là một vấn đề. ADO có xu hướng sạch hơn một chút đối với một mô hình đối tượng, nhưng bất cứ điều gì mà familer của bạn cũng giống như lựa chọn tốt nhất trong hầu hết các trường hợp

Answer 4

Trong Access bạn có thể thực hiện tìm kiếm được lập chỉ mục. Đó là khéo léo phương pháp nhanh nhất và thậm chí nhanh hơn tìm kiếm trong mảng.

Set rs = CreateObject("ADODB.Recordset") 
    rs.CursorLocation = adUseServer 
    rs.Open "MyData", CurrentProject.Connection, , , adCmdTableDirect 
    rs.Index = "fieldX" 

    rs.Seek fieldXvalue 

Nếu bạn chỉ lặp qua toàn bộ bảng so với mảng thực sự là nhanh nhất. Một ngoại lệ: Về lý thuyết, nếu bạn có một khóa chính số, bạn có thể thiết lập chỉ mục đến cùng vị trí chính xác của nó trong mảng, vì vậy không có rs.find hoặc rs.seek, bạn chỉ có thể truy cập nó như mảng (index) và điều đó thật nhanh. Tôi không có điểm chuẩn so với tìm kiếm được lập chỉ mục, nhưng nó có thể nhanh hơn.