Ошибка при работе с клиентским рекордсетом: Ошибка во время выполнения многошаговой операц - VB
Формулировка задачи:
Добрый день, граждане.. Такая проблема
Создаем руками рекордсет:
Создаем руками рекордсет:
Пытаемся присвоить значение:
На последней строчке получаем ошибку:
Решение задачи: «Ошибка при работе с клиентским рекордсетом: Ошибка во время выполнения многошаговой операц»
textual
Листинг программы
<font color="blue">Dim</font> rstContractElements <font color="blue">As</font> ADODB.Recordset
<font color="blue">If</font> <font color="blue">Not</font> rstContractElements <font color="blue">Is</font> <font color="blue">Nothing</font> <font color="blue">Then</font> _
<font color="blue">If</font> rstContractElements.State = adStateOpen <font color="blue">Then</font> rstContractElements.<font color="blue">Close</font>
<font color="blue">Set</font> rstContractElements = <font color="blue">New</font> ADODB.Recordset
rstContractElements.Fields.Append <font color="teal">"ElementName"</font>, adChar, <font color="darkblue"><b>150</b></font>
rstContractElements.Fields.Append <font color="teal">"ElementCode"</font>, adChar, <font color="darkblue"><b>150</b></font>
rstContractElements.Fields.Append <font color="teal">"ElementType"</font>, adBigInt
rstContractElements.Fields.Append <font color="teal">"Num"</font>, adSingle
rstContractElements.<font color="blue">Open</font>
rstContractElements.AddNew
rstContractElements!ElementName = <font color="teal">"ElementName"</font>
MsgBox (rstContractElements!ElementName)