quangnguyentbb
Thành viên mới
- Tham gia
- 17/10/18
- Bài viết
- 21
- Được thích
- 5
Chào các tiền bối,
Em mới tập tọe học VBA và có mong muốn dùng VBA để kết nối vào lấy dữ liệu trên phần mềm MISA SME 2017
Em có copy từ trên google và thay đổi thông tin máy chủ; database; id; pass tuy nhiên khi chạy code lại bị lỗi
Rất mong sự trợ giúp từ các tiền bối.
(Đây là ảnh lỗi)
Ảnh cơ sở dữ liệu
Em mới tập tọe học VBA và có mong muốn dùng VBA để kết nối vào lấy dữ liệu trên phần mềm MISA SME 2017
Em có copy từ trên google và thay đổi thông tin máy chủ; database; id; pass tuy nhiên khi chạy code lại bị lỗi
Rất mong sự trợ giúp từ các tiền bối.
(Đây là ảnh lỗi)
Ảnh cơ sở dữ liệu
Mã:
Sub ketnoivoimisa()
' Carl SQL Server Connection
'
' FOR THIS CODE TO WORK
' In VBE you need to go Tools References and check Microsoft Active X Data Objects 2.x library
'
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 = "QUANGNGUYENTBB\MISASME2017"
Database_Name = "MISASME2017SAMPLE"
User_ID = "sa" ' enter your user ID here
Password = "123" ' Enter your password herea
SQLStr = "SELECT * FROM [MISASME2017Sample].[BankID].[Bank]"
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
' Dump to spreadsheet
With Worksheets("DMNH").Range("a1:z500")
.ClearContents
.CopyFromRecordset rs
End With
' Tidy up
rs.Close
Set rs = Nothing
Cn.Close
Set Cn = Nothing
End Sub
