sintassi:
occorre aggiungere delle funzioni per la connessione della ConnectionString e la creazione del Recordset

' funzioni di database SQL

Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strSQL As String

' apertura ConnectionString con file attivo (in caso indicare nome del file da linkare)

If cnn.State = adStateOpen Then cnn.Close
cnn.ConnectionString = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" & _

ActiveWorkbook.Path & _
Application.PathSeparator & _
ActiveWorkbook.Name

cnn.Open

' posizionamento cursore

rs.CursorLocation = adUseClient

strSQL = "Select .... " & _ si inserisce in una stringa una query SQL
"From [NOMESCHEDA$] " & _
"WHERE ....."

If rs.State = adStateOpen Then rs.Close controllare sempre lo ststo del Recordset ed in caso chiuderlo (altrmenti da errore)
rs.Open strSQL, cnn, adOpenKeyset, adLockOptimistic apertura Recordset

rs.Close
cnn.Close

comandi .NET:

• rs.Fields(x) valore del campo (colonna) in base al suo ID (conteggio parte da 0) del record corrente
• rs.Fields.Count resituisce il numero totale dei campi (colonne) del database/query
• rs.Fields(x).Name restituisce il nome del campo in base al suo ID (conteggio parte da 0)


• rs.RecordCount resituisce il numero totale dei record trovati dalla query
• rs.MoveNext passa la record seguente (si usa nei cicli)

esempio: faccio una query in una scheda di dati per trovare la somma SUM di una colonna in base a una condizione
' Query SQL e apertura Recordset

strSQL = "Select SUM([Colonna importi]) " & _

"From [Scheda Dati$] " & _
"WHERE [NetworkName] <>'Network eliminato'"


rs.Open strSQL, cnn, adOpenKeyset, adLockOptimistic


' messaggio finale con il risultato della somma SUM

MsgBox ("Oggi abbiamo " & Chr(10) & Format(rs.Fields(0), #,###.00") & Chr(10) & "di somma")

esempio: faccio una query e poi inserisco i record in una ComboBox
' Query SQL e apertura Recordset

strSQL = "Select Distinct [Product] From [data$] Order by [Product]"
rs.Open strSQL, cnn, adOpenKeyset, adLockOptimistic



cmbProducts.Clear cancello tutti i dati della ComboBox
If rs.RecordCount > 0 Then

Do While Not rs.EOF ciclo fino alla fine dei record EOF

cmbProducts.AddItem rs.Fields(0) inserisco il record attuale che é sempre quello 0
rs.MoveNext passo al record seguente

Loop

End If

esempio: inserisco ad una estrazione anche i nomi dei campi
' Query SQL e apertura Recordset

strSQL = "Select * From [data$] ..."
rs.Open strSQL, cnn, adOpenKeyset, adLockOptimistic



For x = 0 To rs.Fields.Count - 1

Worksheets("Finale").Cells(1, x + 1).Value = rs.Fields(x).Name

Next
Sheets("Finale").Range("A2").CopyFromRecordset rs



• CELLA.CopyFromRecordset rs
inserisce il risultato della query in una certa cella o per risultati multipli dalla cella indicata

esempio: scrivi i dati della query partendo dalla cella attiva
ActiveCell.CopyFromRecordset rs

esempio: metti il risultato della operazione (ex SUM) nella cella L6
Range("L6").CopyFromRecordset rs