Поиск
... доставать данные в recordset:
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cmd As New ADODB.Command
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "Provider=Microsoft.SQLSERVER.CE.OLEDB.3.5; Data Source= c:\test\db.sdf;Persist Security Info=False"
conn.Open
cmd.ActiveConnection = conn
cmd.CommandText = "SELECT * FROM HISTORY"
Set rs = cmd.Execute
...
conn.CloseЗаполнять сводную таблицу ...
Изменен: 28 окт 2015
Читать сообщение на форуме или сайте.