Noname > 25-04-11, 11:38 AM
thanhlong4958 > 04-05-11, 10:28 PM
oOluOo > 21-07-11, 04:42 PM
Noname > 21-07-11, 09:35 PM
(21-07-11, 04:42 PM)oOluOo Đã viết: Nhân tiện topic này cùng chủ đề, anh No hoặc bạn nào rành về Access cho mình hỏi:
Hàng năm, sau mỗi đợt thi TNPT mình sẽ tạo 1 trang phục vụ nhu cầu tìm kiếm kết quả, thì có vài vấn đề:
1.Dữ liệu từ Sở GD gửi về chủ yếu là Excel (gồm khoảng 20k record)
2.Mình phải tạo 1 trang tìm kiếm từ dữ liệu đó trong thời gian nhanh nhất (thông thường là trong ngày)
Cách làm của mình trong thời gian vừa qua là dùng API của google để làm nhưng việc truy vấn khá chậm. Sau khi đọc được topic này mình có ý định chuyển từ Excel qua Access sau đó cho truy vấn đến Access. Và với số lượng record như trên và lượng truy cập cùng lúc khoảng bao nhiêu thì Access của mình có thể chịu đựng được?
Cám ơn các bạn!
oOluOo > 21-07-11, 10:10 PM
uronmapu > 09-06-12, 06:45 PM
uronmapu > 09-06-12, 07:06 PM
Xuân Thanh > 09-06-12, 07:22 PM
(09-06-12, 07:06 PM)uronmapu Đã viết: Làm theo noname bị báo lỗi 2 chỗ
‘ Vñ duå
With dlgTimTapTin
ActiveX Control này được tạo bằng cách bấm nút More Controls (nút cuối cùng) trên ToolBox, rồi chọn mục Microsoft Common Dialog Control.
uronmapu > 09-06-12, 07:28 PM
Xuân Thanh > 09-06-12, 07:33 PM
(09-06-12, 06:45 PM)uronmapu Đã viết: Không có ví dụ cụ thể à noname?
Dòng đầu viết hình 1 sao ko thấy hình 1 nhỉ
Function ImExAc(tblTabName As String, shSheet As String, strFile As String)
Dim Ex As Excel.Application
Dim fileEx As Workbook
Set fileEx = Ex.Workbooks.Open(strFile)
Dim Ws As Worksheet
Set Ws = fileEx.Worksheets(shSheet)
Dim Rs As Recordset
Set Rs = CurrentDb.OpenRecordset(tblTabName, dbOpenTable)
'Gia su sheet Ex co so lieu tu A2:G15
'Tuc co 7 cot(truong) va 14 dong(record)
Dim i As Integer
Dim j As Integer
For i = 2 To 15
Rs.AddNew
For j = 1 To 7
Rs.Fields(j - 1) = Ws.Cells(i, j)
Next
Rs.Update
Next
End Function