<?xml version="1.0" encoding="utf-8"?>
<feed xmlns="http://www.w3.org/2005/Atom">
	<title type="html"><![CDATA[Серый форум &mdash; VBS: изменить запись в recordset]]></title>
	<link rel="self" href="https://forum.script-coding.com/extern.php?action=feed&amp;tid=10794&amp;type=atom" />
	<updated>2015-07-15T13:17:23Z</updated>
	<generator>PunBB</generator>
	<id>https://forum.script-coding.com/viewtopic.php?id=10794</id>
		<entry>
			<title type="html"><![CDATA[Re: VBS: изменить запись в recordset]]></title>
			<link rel="alternate" href="https://forum.script-coding.com/viewtopic.php?pid=95572#p95572" />
			<content type="html"><![CDATA[<div class="quotebox"><cite>YMP пишет:</cite><blockquote><p>Думаю, метод не работает, потому что его нет.</p></blockquote></div><p>Спс <img src="//forum.script-coding.com/img/smilies/smile.png" width="15" height="15" />) Да.&nbsp; К концу дня голова уже не варит. Попутал DAO и ADO</p><div class="codebox"><pre><code>If rs.RecordCount &gt; 0 Then
 rs.Find &quot;SoftName = &#039;1&#039;&quot;
 rs(&quot;CompNames&quot;) = rs(&quot;CompNames&quot;).Value &amp; &quot;comp3;&quot;
 rs.Update
End If</code></pre></div><p>Так работает.</p><p>P.S: И все-таки по поводу adLongVarChar никто не просветит?</p>]]></content>
			<author>
				<name><![CDATA[inock]]></name>
				<uri>https://forum.script-coding.com/profile.php?id=25049</uri>
			</author>
			<updated>2015-07-15T13:17:23Z</updated>
			<id>https://forum.script-coding.com/viewtopic.php?pid=95572#p95572</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: VBS: изменить запись в recordset]]></title>
			<link rel="alternate" href="https://forum.script-coding.com/viewtopic.php?pid=95570#p95570" />
			<content type="html"><![CDATA[<p>Думаю, метод не работает, потому что его нет.<br /></p><div class="quotebox"><blockquote><p>Methods<br />AddNew Method<br />Cancel Method <br />CancelBatch Method <br />CancelUpdate Method <br />Clone Method <br />Close Method <br />CompareBookmarks Method <br />Delete Method (ADO Recordset) <br />Find Method <br />GetRows Method <br />GetString Method <br />Move Method <br />MoveFirst, MoveLast, MoveNext, and MovePrevious Methods <br />NextRecordset Method <br />Open Method (ADO Recordset) <br />Requery Method <br />Resync Method <br />Save Method <br />Seek Method <br />Supports Method <br />Update Method <br />UpdateBatch Method</p></blockquote></div>]]></content>
			<author>
				<name><![CDATA[YMP]]></name>
				<uri>https://forum.script-coding.com/profile.php?id=81</uri>
			</author>
			<updated>2015-07-15T12:42:48Z</updated>
			<id>https://forum.script-coding.com/viewtopic.php?pid=95570#p95570</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[VBS: изменить запись в recordset]]></title>
			<link rel="alternate" href="https://forum.script-coding.com/viewtopic.php?pid=95566#p95566" />
			<content type="html"><![CDATA[<p>Граждане, ткните носом, чего делаю не так? Рабочий скрипт большой, поэтому просто набросал модельку для демонстрации проблемы. Не могу изменить данные в recordset. Подскажите плз, что как правильно написать код между If и End If<br /></p><div class="codebox"><pre><code>
Const adLongVarChar = 201
Const adVarChar = 200

    Set rs = CreateObject(&quot;ADOR.Recordset&quot;)
    rs.Fields.Append &quot;SoftName&quot;, adVarChar, 255
    rs.Fields.Append &quot;CompNames&quot;, adLongVarChar,256
    rs.Open

rs.AddNew
rs(&quot;SoftName&quot;) = &quot;1&quot;
rs(&quot;CompNames&quot;) = &quot;comp1;&quot;
rs.Update

rs.AddNew
rs(&quot;SoftName&quot;) = &quot;2&quot;
rs(&quot;CompNames&quot;) = &quot;comp2;&quot;
rs.Update

rs.Filter = &quot;SoftName = &#039;1&#039;&quot;

If rs.RecordCount &gt; 0 Then
 rs.Find &quot;SoftName = &#039;1&#039;&quot;
 rs.Edit  &#039; Здесь не работает :((
 rs(&quot;CompNames&quot;) = rs(&quot;CompNames&quot;).Value &amp; &quot;comp3;&quot;
 rs.Update
End If
</code></pre></div><p>Суть проблемы:</p><div class="quotebox"><blockquote><p>C:\share\Inventary\UninstallSoft\Services\test.vbs(23, 2) Ошибка выполнения Microsoft VBScript: Объект не поддерживает это свойство или метод: &#039;rs.Edit&#039;</p></blockquote></div><p>P.S: не нашел в инете. adLongVarChar вообще не имеет ограничения на длину строки или какое-то ограничение все-таки есть?</p>]]></content>
			<author>
				<name><![CDATA[inock]]></name>
				<uri>https://forum.script-coding.com/profile.php?id=25049</uri>
			</author>
			<updated>2015-07-15T12:03:42Z</updated>
			<id>https://forum.script-coding.com/viewtopic.php?pid=95566#p95566</id>
		</entry>
</feed>
