내 Excel VBA 코드에서 직접 SQL 데이터베이스를 쿼리하려면 어떻게 해야 합니까?

Excel의 VBA에서 SQL 쿼리

Excel 내에서 VBA를 활용하면 SQL 데이터베이스와 직접 상호 작용하여 스프레드시트의 기능을 확장할 수 있습니다. 이를 통해 SQL 쿼리를 실행하고, 결과를 검색하고, 이를 Excel 통합 문서에 통합할 수 있습니다.

특정 SQL Server 인스턴스에 연결하고 SQL 쿼리를 실행하는 다음 VBA 서브루틴을 고려해 보세요.

Sub ConnectSqlServer()

    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim sConnString As String

    ' Adjust according to your environment
    sConnString = "Provider=SQLOLEDB;Data Source=INSTANCE\SQLEXPRESS;" & _
                  "Initial Catalog=MyDatabaseName;" & _
                  "Integrated Security=SSPI;"

    ' Create connection and recordset objects
    Set conn = New ADODB.Connection
    Set rs = New ADODB.Recordset

    ' Open connection and execute query
    conn.Open sConnString
    Set rs = conn.Execute("SELECT * FROM Table1;")

    ' Check for data
    If Not rs.EOF Then
        ' Transfer results to Excel sheet
        Sheets(1).Range("A1").CopyFromRecordset rs
        ' Close recordset
        rs.Close
    Else
        MsgBox "Error: No records returned.", vbCritical
    End If

    ' Clean up
    If CBool(conn.State And adStateOpen) Then conn.Close
    Set conn = Nothing
    Set rs = Nothing

End Sub

이 서브루틴을 사용하려면 다음 부분을 수정하세요.

• 데이터 출처: "INSTANCESQLEXPRESS"를 SQL Server 인스턴스 이름으로 바꾸세요.
• 초기 카탈로그: "MyDatabaseName"을 연결하려는 데이터베이스 이름으로 바꾸세요.
• 통합 보안: Windows 인증을 사용하는 경우 "True"로 조정하거나 SQL Server 인증을 사용하는 경우 "False"입니다. 후자의 경우 "Integrated Security=SSPI;"를 바꿉니다. with "User ID=[username];Password=[password];".

수정되면 VBA 서브루틴을 실행하여 연결을 설정하고 "Execute" 문에 지정된 SQL 쿼리를 실행합니다. 결과를 지정된 Excel 시트에 채웁니다.

위 내용은 내 Excel VBA 코드에서 직접 SQL 데이터베이스를 쿼리하려면 어떻게 해야 합니까?의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!