Привет всем!

Задача:
Склад, перемещение со склада,накладная. Открываю 1-й рекордсет по накладной, 2-й по остаткам. необходимо обновлять записи одного рекордсета записями из другого, т.е. перемещение товара.

Проблема: текущий рекордсет не поддерживает обновления!
Строк мало, поэтому для проверки использую примитив - msgbox.
при использовании adLockBatchOptimistic сообщение не появляестя , но вместо результата выводится False?

Вопрос: где туплю? В mdb все нормально было, а ща перехожу на adp. Я только учусь.
Help please!

2ХТ: честно говоря не представляю, чем можно в данной ситуации заменить (из предложенных ) "источник излучения" :)
2Shark: извини за вопрос, но что именно я должен сказать о рекордсетах

2shark:
Dim cn As New ADODB.Connection
Dim rsM As New ADODB.Recordset
Dim rsS As New ADODB.Recordset
Dim sql As String
cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=proba;Data Source=ALEX"
cn.Open

sql = "SELECT TOP 100 PERCENT Cod, Kol, Price, Nom,rowid FROM dbo.TblStorageRest WHERE (rowid IN (SELECT x FROM dbo.t))ORDER BY Cod"

Set rsS.ActiveConnection = cn
rsS.Open sql, cn, adOpenDynamic ', adLockBatchOptimistic

sql = "SELECT TblStoragemove.Cod, TblStoragemove.Kol, TblStoragemove.PriceTov,TblStoragemove.D_pr,TblStoragemove.Postav,TblStoregePapers.Kontragent, TblStoregePapers.Nomer, TblStoregePapers.ID, TblStoragemove.rowid FROM TblStoregePapers INNER JOIN TblStoragemove ON TblStoregePapers.ID = TblStoragemove.ID WHERE (TblStoragemove.Refresh = 0) and (TblStoragemove.ID= '" & Me!Id & "')"

Set rsM.ActiveConnection = cn
rsM.Open sql, cn, adOpenDynamic ', adLockBatchOptimistic

If rsM.RecordCount <> 0 Then
rsM.MoveFirst
Do While rsM.EOF = False
rsS.Filter = ""
rsS.Filter = "[cod]= '" & rsM.Fields(0).Value & "'"
If Not rsS.EOF Then
rsS.MoveFirst
Do While Not rsS.EOF
If rsS.Fields(1).Value < rsM.Fields(1).Value Then
rsS.Fields(1).Value = rsS.Fields(1).Value - rsM.Fields(1).Value
'rsS.Update
MsgBox "" &rsS.Fields(1).Value = rsS.Fields(1).Value - rsM.Fields(1).Value
End If
rsS.MoveNext
Loop
Else
End If
rsM.MoveNext
Loop
End If
rowid - ключевое поле

2ХТ: такое в моей чернобыльской башке роится, тока до конца все оформить не могу. много "если" ....над подумать ....

2 incold
желания хоть отбавляй!
много упоминаний о Гетце.
Ссылку не кинешь(если есть)?

2 incold:
за ссылку пасиба ;)))
а по теме ниче не подскажешь, вариант Хама не устраивает,...или я че - то не догоняю

допустим...

Табл1: (накладная)
код кол
1 10
2 10

Табл2: (выборка из остатков склада)
код кол цена
1 1 0,4
1 8 0,5
1 6 0,6
2 4 0,7
2 14 0,55

необходимо списать со склада в таком порядке, в mdb через рекордсет прекрасно все шло....
нада писать хп или тригер (об этом ваще смутно понятие имею)?
если хп , то не понятка с логикой работы этой самой хп, апдейтить то придется два набора записей
че скажешь, народ?

2incold: да все намана...
опыта маловато, поэтому и вопросы дилетанские

2ХТ: кстати, седня в bol-е рылся, и как раз наткнулся на WHERE CURRENT OF, эт меня заинтересовало, попробую штурмануть