AnNguyen > 16-04-20, 10:19 PM
Xuân Thanh > 16-04-20, 10:23 PM
ongke0711 > 17-04-20, 12:45 AM
AnNguyen > 17-04-20, 09:54 AM
(17-04-20, 12:45 AM)ongke0711 Đã viết: Dữ liệu cả triệu dòng thì chậm cũng phải thôi em. Xử lý bằng query ngay trên máy chủ rồi lấy kết quả về Access.JOIN là em lấy cả 1 recordset anh ạ.
Mà kết quả lấy về chỉ là 1 record hay một Recordset?
AnNguyen > 17-04-20, 09:55 AM
AnNguyen > 17-04-20, 10:12 AM
(17-04-20, 12:45 AM)ongke0711 Đã viết: Dữ liệu cả triệu dòng thì chậm cũng phải thôi em. Xử lý bằng query ngay trên máy chủ rồi lấy kết quả về Access.
Mà kết quả lấy về chỉ là 1 record hay một Recordset?
Function Tao_Query(ten_qr, cau_lenh) As String
Dim qdf As QueryDef
If cau_lenh <> "" Then
stConnect = "ODBC;DRIVER=SQL Server;SERVER=" & stServer & ";DATABASE=" & stDatabase & ";UID=" & stUser & ";PWD=" & stPass & ";"
Set qdf = DBEngine(0)(0).CreateQueryDef(ten_qr, cau_lenh)
qdf.Connect = stConnect
qdf.Close
Tao_Query = ten_qr
End If
End Function
Xuân Thanh > 17-04-20, 11:03 AM
AnNguyen > 17-04-20, 11:26 AM
(17-04-20, 11:03 AM)Xuân Thanh Đã viết:Vâng em cảm ơn ạ.(17-04-20, 10:12 AM)AnNguyen Đã viết: Đây là cách tạo query của em mà đợt nào đó tham khảo từ anh đó ạ. Đó đã phải là cách tạo query ngay trên server chưa ạ?
Đây là câu lệnh tạo query của Access
Mã:Dim qdf As QueryDef
Chỉ trong Access mới có QueryDef
ongke0711 > 17-04-20, 02:16 PM
(17-04-20, 11:26 AM)AnNguyen Đã viết: Vậy cho em xin hướng dẫn tạo trên server và gọi nó về Access như nào ạ vì em chưa biết về cái đó
CREATE VIEW vDSHocSinh
AS
SELECT DISTINCT
tblDSHocSinh.*
FROM tblDSHocSinh
JOIN tblChuyenCan ON tblDSHocSinh.MaHS = tblChuyenCan.MaHS;
GO
cau_lenh="SELECT * FROM vDSHocSinh"
sqlstring = "Insert Into "
sqlstring = sqlstring & "OPENROWSET('Microsoft.ACE.OLEDB.12.0','C:\Temp\Test.accdb';'admin';, TenTableAccess) "
sqlstring = sqlstring & "(Field1,Field2,Field3) "
sqlstring = sqlstring & "Select Field1, Field2, Field3 From TenTableSQLSV"
rs.Open sqlstring, cn, adOpenForwardOnly, adLockReadOnly
Xuân Thanh > 17-04-20, 02:51 PM