• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Gặp lỗi "not responding" khi truy vấn từ ms Access đến sql server

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Tương tác Chương trình ngoài
  • Gặp lỗi "not responding" khi truy vấn từ ms Access đến sql server
• Gặp lỗi "not responding" khi truy vấn từ ms Access đến sql server

• Gặp lỗi "not responding" khi truy vấn từ ms Access đến sql server

  AnNguyen > 11-08-19, 09:35 PM

  Em sử dụng Ms Access kết nối đến sql server.
  Em luôn sử dụng query để nhận dữ liệu từ sql đổ vào subform nhưng em thấy lúc thì dữ liệu trả về rất nhanh nhưng lúc lại rất chậm và luôn báo not responding mất 1 khoảng thời gian. Cùng thao tác lấy dữ liệu nhưng xảy ra vấn đề chậm kia khá là thường xuyên ạ. Vẫn bộ code đó lúc đầu e sử dụng lấy dữ liệu từ file mdb qua linkedtable thì không xảy ra điều này.
  Vậy nguyên nhân vấn đề em hay gặp phải là gì ạ và làm sao để khắc phục điều này. E dùng nội bộ mà nhiều lúc treo như vậy là các máy khác cùng treo luôn ạ.
  Em cảm ơn ạ.

• RE: Gặp lỗi "not responding" khi truy vấn từ ms Access đến sql server

  ongke0711 > 12-08-19, 09:03 AM

  Lỗi "Not Responding.." này cũng nhiều nguyên nhân lắm em.
  - Đường truyền không ổn định.
  - Lượng dữ liệu nhiều.
  - ...
  
  Chuỗi kết nối của em như thế nào? Các tham số cho ADODB recordset Open như thế nào ?

• RE: Gặp lỗi "not responding" khi truy vấn từ ms Access đến sql server

  AnNguyen > 12-08-19, 09:31 AM

  (12-08-19, 09:03 AM)ongke0711 Đã viết: Lỗi "Not Responding.." này cũng nhiều nguyên nhân lắm em.
  - Đường truyền không ổn định.
  - Lượng dữ liệu nhiều.
  - ...
  
  Chuỗi kết nối của em như thế nào? Các tham số cho ADODB recordset Open như thế nào ?

  
  Của em đây anh ạ. Em lấy dữ liệu theo cách tạo query sau đó đổ lại subform.
  Về đường truyền thì hiện tại em chỉ kết nối qua mạng nội bộ chứ chưa thông qua internet ạ
  

  Mã:

  Sub LoadThongTin()
    Dim qdf As QueryDef
    stConnect = "ODBC;DRIVER=SQL Server;SERVER=118.80.239.222,1433;DATABASE=Test;UID=abc;PWD=123;"
    '=======================
    Set qdf = CurrentDb.CreateQueryDef("Tim_kiem", "Select * FROM tbHocSinh")
    qdf.Connect = stConnect
    qdf.Close
  '==============================''''''''''''''''''''''''''''''''''
    sfThongTinHocSinh.SourceObject = "Query.Tim_Kiem" ' load query vao subform
End Sub

• RE: Gặp lỗi "not responding" khi truy vấn từ ms Access đến sql server

  AnNguyen > 12-08-19, 09:45 AM

  Và dữ liệu của em thì chưa đến mức nhiều ạ, chỉ khoảng 15 nghìn bản ghi thôi ạ và dung lượng hơn 15MB ạ.

• RE: Gặp lỗi "not responding" khi truy vấn từ ms Access đến sql server

  ongke0711 > 12-08-19, 10:12 AM

  Em thử lại cách sau:
  - Khai báo thư viện DAO. Dim qdf As DAO.QueryDefs
  - Thay thế "CurrentDb" --> DBEngine(0)(0).
  - Dùng ADODB Connection và dùng chuỗi kết nối khác "SQLOLEDB", bỏ qua việc kết nối thông qua lớp ODBC. Theo tôi biết thì khi dùng ODBC kết nối, nếu bị mất kết nối, ODBC sẽ tự kết nối lại, nếu kết nối lại thất bại, nó sẽ ngưng luôn và chỉ khởi động lại Access hoặc gọi hàm kết nối lại mới lấy được dữ liệu.
  
  Vd:
     Dim oCnn As Object
     Set oCnn = CreateObject("ADODB.Connection")
  
  
  

  Mã PHP:

  mstrConnectionString = "Network Library=DBMSSOCN;" & _
                                  "PROVIDER=SQLOLEDB;DATA SOURCE=" & TargetServer & _
                                  ";INITIAL CATALOG=" & TargetDatabase & _
                                  ";User Id=" & UserID & ";Password=" & Password & ";" 


• RE: Gặp lỗi "not responding" khi truy vấn từ ms Access đến sql server

  AnNguyen > 12-08-19, 12:19 PM

  (12-08-19, 10:12 AM)ongke0711 Đã viết: Em thử lại cách sau:
  - Khai báo thư viện DAO. Dim qdf As DAO.QueryDefs
  - Thay thế "CurrentDb" --> DBEngine(0)(0).
  - Dùng ADODB Connection và dùng chuỗi kết nối khác "SQLOLEDB", bỏ qua việc kết nối thông qua lớp ODBC. Theo tôi biết thì khi dùng ODBC kết nối, nếu bị mất kết nối, ODBC sẽ tự kết nối lại, nếu kết nối lại thất bại, nó sẽ ngưng luôn và chỉ khởi động lại Access hoặc gọi hàm kết nối lại mới lấy được dữ liệu.
  
  Vd:
     Dim oCnn As Object
     Set oCnn = CreateObject("ADODB.Connection")
  
  
  

  Mã PHP:

  mstrConnectionString = "Network Library=DBMSSOCN;" & _
                                  "PROVIDER=SQLOLEDB;DATA SOURCE=" & TargetServer & _
                                  ";INITIAL CATALOG=" & TargetDatabase & _
                                  ";User Id=" & UserID & ";Password=" & Password & ";" 


  
  
  Em bị lỗi chỗ này anh ạ. "qdf.Connect = stConnect"
  

  Mã:

  Private Sub Command3_Click()
On Error GoTo loi
CurrentDb.QueryDefs.Delete "ABC"
loi:
Dim qdf As QueryDef
    stConnect = "Network Library=DBMSSOCN;PROVIDER=SQLOLEDB;DATA SOURCE=" & stServer & ";INITIAL CATALOG=" & stDatabase & ";User Id=steame;Password=Nguyenan00;"
    '=======================
    Set qdf = DBEngine(0)(0).CreateQueryDef("ABC", "select * from tbPhatSinhCo")
    Set oCnn = CreateObject("ADODB.Connection")
    qdf.Connect = stConnect
    qdf.Close
  '==============================''''''''''''''''''''''''''''''''''
 
  sftest.SourceObject = "Query.ABC"
End Sub

• RE: Gặp lỗi "not responding" khi truy vấn từ ms Access đến sql server

  Xuân Thanh > 12-08-19, 01:28 PM

  1/ Xem lại câu lệnh Set qdf vì bạn đang kết nối tới SQL chứ không phải keeys nối qua Access
  2/ Chuyển cái qdf về biến Recordset
  3/ Open cái ADODB.Connecsting trước(oCnn.Open) sau đó Open cái biến Recordset kia mới gán được dữ liệu
  Đôi lời cùng bạn thế nhé vì thời gian không cho phép. Bạn nghiên cứu thêm

• RE: Gặp lỗi "not responding" khi truy vấn từ ms Access đến sql server

  ongke0711 > 12-08-19, 02:39 PM

  (12-08-19, 12:19 PM)AnNguyen Đã viết: Em bị lỗi chỗ này anh ạ. "qdf.Connect = stConnect"

  
  Anh quên chú ý là em đang dùng "Pass Through" Query nên bắt buộc phải dùng ODBC connection. Còn chuỗi kết nối của anh ở trên là để Open Connection, xong dùng các đối tượng ADODB Recordset, Connection hoặc Command để thao tác dữ liệu.
  
  Nói về dùng Pass Though Query (PTQ) thì phải chú ý cách dùng để đạt tính hiệu quả.
  - PTQ là kêu SQL Server chạy câu lệnh truy vấn nên câu lênh SQL dùng cho PTQ phải là T-SQL (cú pháp của SQL Server) chứ không phải Jet SQL của Access. Có nhưng hàm, cú pháp dùng trong Access query thì được nhưng không chạy trên SQL Server. Ví dụ: "DELETE * FROM.." không chạy được trên SQL Server. Hàm Mid() không có trong SQL Server v.v..
  - Khi dùng PTQ thông qua ODBC driver thì ODBC nó phải thông dịch câu lệnh SQL sang chuẩn của SQL Server rồi mới xử lý. Do đó nếu dùng PTQ để gọi, thực thi các stored proc. (SP) có sẳn trong SQL Server sẽ hiệu quả hơn nhiều vì bỏ qua bước thông dịch.
  
  Khi dữ liệu ít ít, thì tốc độ xử lý sẽ không nhận biết được nhưng khi số lượng record lên chục ngàn dòng thì nên thay đổi cách dùng PTQ để đạt hiệu quả hơn hoặc đổi qua dùng thuần tuý các đối tượng của ADO (Recordset, Connection, Command).

• RE: Gặp lỗi "not responding" khi truy vấn từ ms Access đến sql server

  AnNguyen > 12-08-19, 04:12 PM

  Vâng Em cảm ơn anh.
  Em có thể viết được các Stored proc với các tham số đầu vào trong sql server theo cách đơn giản. nhưng em không biết gọi nó ra từ MS Access thế nào để đổ trực tiếp vào subform ạ,
  
  

  (12-08-19, 02:39 PM)ongke0711 Đã viết:  hoặc đổi qua dùng thuần tuý các đối tượng của ADO (Recordset, Connection, Command). 

  
  Còn cái này có phải là cái duyệt từng bản ghi xong mình add vào listbox hoặc subform đó phải không anh.
  Vừa nãy em thay DBEngine(0)(0) mà thấy hiện tại nó cũng nhanh hơn ạ chưa gặp phải trường hợp not reponding như lúc đầu ạ 

• RE: Gặp lỗi "not responding" khi truy vấn từ ms Access đến sql server

  hoanbhxhls > 13-08-19, 10:15 AM

  (12-08-19, 04:12 PM)AnNguyen Đã viết: Vâng Em cảm ơn anh.
  Em có thể viết được các Stored proc với các tham số đầu vào trong sql server theo cách đơn giản. nhưng em không biết gọi nó ra từ MS Access thế nào để đổ trực tiếp vào subform ạ,
  
  

  (12-08-19, 02:39 PM)ongke0711 Đã viết:  hoặc đổi qua dùng thuần tuý các đối tượng của ADO (Recordset, Connection, Command). 

  
  Còn cái này có phải là cái duyệt từng bản ghi xong mình add vào listbox hoặc subform đó phải không anh.
  Vừa nãy em thay DBEngine(0)(0) mà thấy hiện tại nó cũng nhanh hơn ạ chưa gặp phải trường hợp not reponding như lúc đầu ạ 

  -Khi kết nối ms access+SQL SERVER không nên dùng ODBC,dùng ADO sẽ ổn định hơn
  -Ms access chỉ là nơi thiết kế Form,report thôi
  -Để khai thác điểm mạnh của SQL SERVER thì ms access sẽ kết nối vào view,funtion,store procedure,trigger ...của
  SQL server
  -Ms access +SQL server dùng cho nhiều user trong mạng LAN,internet rất hiệu quả,chỉ k chạy dc trên smart phone thôi
• Bài trước Bài tiếp