База данных - в файлах Экселя. Использую такой код:
| Код |
Set aCn = New ADODB.Connection
With aCn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};FIL={MS Excel};READONLY=FALSE;DBQ=C:\monitoring.xls;FirstRowHasNames=0;"
.Open
End With
Set aRs = New ADODB.Recordset
aRs.CursorType = 3
sQuery = "INSERT INTO [db$] (Date,Region) VALUES (2,2)"
Set aRs = aCn.Execute(sQuery)
aRs.Close
aCn.Close
|
db - имя листа, на котором хранятся данные. Date,Region - имена столбцов в файле, хранятся в ячейках А1 и А2.
Что самое интересное - при использовании нижеуказанного запроса данные из БД таки считываются.
| Код |
sQuery = "SELECT * FROM [db$] WHERE Region=1"
Set aRs = aCn.Execute(sQuery)
|
|