Kính thưa anh chị. Em đang tự tìm hiểu để có thể trích xuất data từ SQL sang Excel. Em có dùng đoạn code sau:
Vấn đề em gặp phải là, khi em sử dụng câu truy vấn lấy dữ liệu từ 1 table SQL thì vẫn hoạt động bình thường. nhưng khi em thực hiện nối 2 table lại với nhau để lấy dữ liệu thì đoạn Code không thực hiện được và gặp lỗi ở đoạn ".CopyFromRecordset rs" (Em đã kiểm tra lại đoạn code lấy dữ liệu em ở SQL vẫn thực hiện được).
Kính mong các anh chị quan tâm hướng dẫn giúp em khắc phục điểm này. Cám ơn các anh chị
Sub ADOExcelSQLServer()
Dim Cn As ADODB.Connection
Dim Server_Name As String
Dim Database_Name As String
Dim User_ID As String
Dim Password As String
Dim SQLStr As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Server_Name = "....." ' Enter your server name here
Database_Name = "......" ' Enter your database name here
User_ID = "..... ' enter your user ID here
Password = "......" ' Enter your password here
SQLStr = "
......................
" ' Enter your SQL here
Set Cn = New ADODB.Connection
Cn.Open "Driver={SQL Server};Server=" & Server_Name & ";Database=" & Database_Name & _
";Uid=" & User_ID & ";Pwd=" & Password & ";"
rs.Open SQLStr, Cn, adOpenStatic
With Worksheets("sheet1").Range("a1:z500") ' Enter your sheet name and range here
.ClearContents
.CopyFromRecordset rs
End With
rs.Close
Set rs = Nothing
Cn.Close
Set Cn = Nothing
End Sub
Vấn đề em gặp phải là, khi em sử dụng câu truy vấn lấy dữ liệu từ 1 table SQL thì vẫn hoạt động bình thường. nhưng khi em thực hiện nối 2 table lại với nhau để lấy dữ liệu thì đoạn Code không thực hiện được và gặp lỗi ở đoạn ".CopyFromRecordset rs" (Em đã kiểm tra lại đoạn code lấy dữ liệu em ở SQL vẫn thực hiện được).
Kính mong các anh chị quan tâm hướng dẫn giúp em khắc phục điểm này. Cám ơn các anh chị
Lần chỉnh sửa cuối:
