- Код: Выделить всё
Dim cn As New ADODB.Connection
Dim rs As ADODB.Recordset
'cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Program files\Data;Extended Properties=Paradox 5.x;Jet OLEDB:Engine Type=0;Jet OLEDB:Database Password=jIGGAe"
'ПРИ ЛЮБОМ ВАРИАНТЕ ПОДКЛЮЧЕНИЯ!!!!
cn.Open "Driver={Microsoft Paradox Driver (*.db )};DBQ=c:\Program files\\Data;Read Only=0;Pwd=jIGGAe"
Set rs = cn.Execute("SELECT * FROM CFG WHERE ID=2") 'тут всё канает
'а вот тут обломс!
cn.Execute "UPDATE CFG SET CFG_VALUE='0000' WHERE CFG_TYPE=1 AND ID=2"
'[Microsoft][Драйвер ODBC Paradox] В операции должен использоваться обновляемый запрос.
Не подскажите, чё делать? Система проапгрейжена. Запрос проходит в других утилитах.