Database Connection Manager

Sub ConnectToDatabase()
    Dim conn As Object
    Dim rs As Object
    Dim ws As Worksheet
    Dim sql As String
    Dim connectionString As String
    Dim col As Long

    ' Database connection string (modify as needed)
    connectionString = InputBox("Enter connection string:" & vbCrLf & _
        "Example: Provider=SQLOLEDB;Data Source=server;Initial Catalog=database;Integrated Security=SSPI;")

    If connectionString = "" Then Exit Sub

    ' SQL query
    sql = InputBox("Enter SQL query:", "SQL Query", "SELECT * FROM TableName")
    If sql = "" Then Exit Sub

    ' Create connection

' ... 47 more lines hidden ...
'
' Sign up for free to view the complete code
' Visit: vbacode.io