Lộc dữ liệu từ SQL vào Table của Access (2 người xem)

[HUYNHTIEN0202]

Chào các Anh Chị,
Hiện tại đang áp dụng code sau để lọc dữ liệu từ SQL vào Sheet của Excel.
Nay mình muốn sữa code sau cho lọc dữ liệu vào bảng của Access thông qua form.

Private Sub CommandButton4_Click()
Dim Cnn As Object, lrs As Object
On Error Resume Next
Application.ScreenUpdating = False
 Set Cnn = CreateObject("ADODB.Connection")
    With Sheet3
     .Range("A8:AZ5000").ClearContents
'---------------------------------------------------------------------------------------------------------------
    Cnn.Open ("DRIVER=SQL Server;SERVER=192.168.1.100;UID=Sa;PWD=Abc#2019;DATABASE=Data")
'---------------------------------------------------------------------------------------------------------------
     Set lrs = Cnn.Execute("SELECT * FROM dbo.BOM " & _
           "WHERE (BOM.CODE Like ('" & .Range("A3") & "'))")
           .Range("A8").CopyFromRecordset lrs
    End With
'---------------------------------------------------------------------------------------------------------------
lrs.Close: Set lrs = Nothing
Cnn.Close: Set Cnn = Nothing
Application.ScreenUpdating = True
End Sub

 

[nguoiconxunui]

Access thì khác gì excel đâu;
ví dụ:

Public Function GetSomething(sql as string) As object
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim strConnString As String
   
         strConnString = "Provider=SQLOLEDB;Data Source=Server_Name;" _
                        & "Initial Catalog=Database_Name;Integrated Security=SSPI;"
       
        Set conn = New ADODB.Connection
        conn.Open strConnString

        Set rs = conn.Execute(sql)
        'Do anything with Recordset(rs)
    'Close connection here
    'Return value of function here
End Function

mà access thì link luôn vào mssql server rồi cứ thế mà làm thôi. Cần gì phức tạp như này

 

[ongke0711]

Hiện tại đang áp dụng code sau để lọc dữ liệu từ SQL vào Sheet của Excel.
Nay mình muốn sữa code sau cho lọc dữ liệu vào bảng của Access thông qua form.

Access hay SQL Server bạn xem như là một chỗ chứa CSDL (back end) và Excel là ứng dụng phía người dùng (Client), tương tác với CSDL để ra các báo cáo mong muốn. Bạn đã đang làm việc trực tiếp với SQL Server rồi mà bây giờ còn muốn kéo dữ liệu từ SQL Server vào Access làm gì cho tốn công vậy? Cuối cùng nó cũng chỉ là di chuyển chỗ chứa CSDL này sang chỗ chứa khác.
Nếu bạn muốn chuyển ứng dụng ngừoi dùng thành MS Access hoàn toàn thì lại khác. Access làm ứng dụng Font end, SQL Server làm Back end. Hoặc nếu không chuyên SQL Server thì dùng Access làm Font End và Bạckend luôn.