SQL Server에서 Excel로 값 가져 오기

Question

SQL Server에서 값을 Excel로 가져올 수 없습니다. 누군가 도와주세요 :

Dim oConn As ADODB.Connection 
Private Sub ConnectDB() 

    Set oConn = New ADODB.Connection 
    oConn.Open "Provider=SQLOLEDB; " & _ 
      "Data Source=ServerName; " & _ 
      "Initial Catalog=MyDB;" & _ 
      "Trusted_Connection=yes;" 
End Sub 
Public Sub ExportDataToDB() 
    Dim rs As ADODB.Recordset 
    ConnectDB 
    Set rs = New ADODB.Recordset 
    Dim strSql As String 

    strSql = "select t.col1, t.col2 from Table t" 

    rs.Open strSql, oConn 

    Sheet1.Range("A2").CopyFromRecordset rs 

    CloseDBConn 
End Sub 

Private Sub CloseDBConn() 
    oConn.Close 
End Sub 

연결에 성공했습니다. 오류 없음. 쿼리는 비어 있지 않지만 아무것도 시트에 반환되지 않습니다.

방금 ​​같은 워크 시트에 기록의 현재 상태를 쓰기로 데이터베이스에서 레코드 세트를 읽고 싶은 경우

Answer 1

당신은 여기에 마이크로 소프트 documention에 대한 링크입니다 ADODB.RecordSet adOpenStatic로의 CursorType 속성을 지정해야합니다 그것의 : https://docs.microsoft.com/en-us/sql/ado/guide/data/types-of-cursors-ado