VB-SQL-Access 2000

[PAHA]

Попогите плиз что делаю не так!!!


через рекордсет все работает а SQL нет

Код: Выделить всё

.Adodc2.RecordSource = "UPDATE Поступление SET Остаток=3 WHERE АРТ=3"
.Adodc2.Refresh

[alibek]

Ты уверен, что Поступление и Остаток это имена полей, а не их Caption?

[PAHA]

Поступление - таблица
Остаток - столбец
Арт - код строки

Если предложение SELECT то все работает если UPDATE или DELETE нет во как

[alibek]

Сразу и не заметил.
А ты мне объясни, как результат UPDATE или DELETE может быть рекордсетом? Он же ничего не возвращает.

Что по твоему должен вернуть указанный код?

[PAHA]

в этом все и дело что нужно не через рекордсет а просто изменить или удалить запись
везде когда DELETE делают вроде серез какойто Execute куда его запихнуть не знаю

[alibek]

Контролом никогда не пользовался, я обычно делал это так:
cnn.Execute "DELETE FROM ..."
где cnn - объект ADODB.Connection

[PAHA]

Тоесть типа

Код: Выделить всё

Option Explicit

Private DEL()

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

With cn
    'Если база 2000, то провайдер такой:
    .Provider = "Microsoft.Jet.OLEDB.4.0"
        'указываем путь к нашей базе
    .ConnectionString = "mb2.mdb"
    'открываем конекшн
    .Open
End With

'Устанавливаем свойства рекордсета и открываем его

With rs
    .ActiveConnection = cn
    .LockType = adLockReadOnly
    .CursorType = adOpenDynamic
    'делаем выборку взависимости от введенных чисел
    .Source = "DELETE ля ля ля "
    .Open
End With

'убиваем объекты
Set rs = Nothing
Set cn = Nothing

End Sub


[PAHA]

да забыл такой код ругается на Set не понятными словами

[alibek]

Я бы сделал по другому.

Код: Выделить всё

Dim cnn As ADODB.Connection
...
Set cnn = New ADODB.Connection
cnn.Open "Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb"
cnn.Execute "DELETE ..."
cnn.Close
Set cnn = Nothing

[PAHA]

Все спасибо разобрался на код внимания не обращай, это не мой так вставил что подруку попалось