Connecting to a data source and executing SQL Queries

<< Click to Display Table of Contents >>

Navigation:  Macro Samples >

Connecting to a data source and executing SQL Queries

connectSQL = CreateObject("ADODB.Connection")
recordsetSQL = CreateObject("ADODB.RecordSet")
recordsetSQL.ActiveConnection = connectSQL
recordsetSQL.Source = "Select * from myRange1"
recordsetSQL.Open
Adrs_L = recordsetSQL.Fields.Item("A1").value
…
End