ADODB.Connection и Edit

[Netta]

Объясните мне глупой, как ADODB.Connection редактирует записи. Новые вводит, ненужные стирает, а как редактировать, так ни в какую. Может ей метод Open какой то особенный нужен? Подскажите если кто знает.

[Leon_]

Я делаю вот так:

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

sQuery = "UPDATE Table1 SET [Buyer]=Null WHERE [Table_ID]=1"
CurrentProject.Connection.Execute sQuery, , adCmdText + adExecuteNoRecords


[Tuco]

через UPDATE

[Netta]

Я делаю вот так:

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

sQuery = "UPDATE Table1 SET [Buyer]=Null WHERE [Table_ID]=1"
CurrentProject.Connection.Execute sQuery, , adCmdText + adExecuteNoRecords


Если я правильно понимаю, то Table1- таблица в которой я меняю запись, а SET [Buyer]=Null, это поле Buyer=Null? и если записей у которых [Table_ID]=1 будет несколько, то редактируем все?

Большое спасибо бегу испробую.

[Netta]

А нельзя как нибудь чтобы сначала открыть и посмотреть и потом если нужно исправить. У меня такой код есть но он с ДАО, а я хочу чтобы всё с АДО работало.

Set Baze = OpenDatabase(TaskPath)
Set RST = Baze.OpenRecordset("SELECT Kitas, Periodas FROM taskai WHERE Taskai.TaskId=" & DienosPr(i).Id & ";")
If RST.BOF = False Then
If VarType(RST.Fields(1).Value) = vbNull Then GoTo Kitas
RST.Edit
If IsDate(RST.Fields(1).Value) = True Then
RST.Fields(0) = CDate(DienosPr(i).laikas) + CDate(RST.Fields(1).Value)
Else
AwkT = RST.Fields(1).Value
AwkT.FS = ","
If Val(AwkT.F(1)) <> 0 Then
RST.Fields(0).Value = DateSerial(Year(DienosPr(i).laikas) + AwkT.F(1), Month(DienosPr(i).laikas), Day(DienosPr(i).laikas)) & " " & TimeSerial(Hour(RST.Fields(0).Value), Minute(RST.Fields(0).Value), 0)
ElseIf Val(AwkT.F(2)) <> 0 Then
RST.Fields(0).Value = DateSerial(Year(DienosPr(i).laikas), Month(DienosPr(i).laikas) + AwkT.F(2), Day(DienosPr(i).laikas)) & " " & TimeSerial(Hour(RST.Fields(0).Value), Minute(RST.Fields(0).Value), 0)
ElseIf Val(AwkT.F(3)) <> 0 Then
RST.Fields(0).Value = DateSerial(Year(DienosPr(i).laikas), Month(DienosPr(i).laikas), Day(RST.Fields(0).Value) + AwkT.F(3)) & " " & TimeSerial(Hour(RST.Fields(0).Value), Minute(RST.Fields(0).Value), 0)
End If
End If
RST.Update

[alibek]

В ADO нет .Edit.
Просто изменяешь значения полей, а потом делаешь Recordset.Update. Кстати, можно делать обновление и в таком виде: Recordset.Update Array("Field1","Field2"), Array("Value1",123)