<?xml version="1.0" encoding="utf-8"?>
<feed xmlns="http://www.w3.org/2005/Atom">
	<title type="html"><![CDATA[Серый форум &mdash; VBA: Выбрать данные из SQL и вставить результат в Excel]]></title>
	<link rel="self" href="http://forum.script-coding.com/extern.php?action=feed&amp;tid=7311&amp;type=atom" />
	<updated>2012-06-29T11:14:47Z</updated>
	<generator>PunBB</generator>
	<id>http://forum.script-coding.com/viewtopic.php?id=7311</id>
		<entry>
			<title type="html"><![CDATA[Re: VBA: Выбрать данные из SQL и вставить результат в Excel]]></title>
			<link rel="alternate" href="http://forum.script-coding.com/viewtopic.php?pid=61280#p61280" />
			<content type="html"><![CDATA[<p>пробую для начала без параметров</p><div class="codebox"><pre><code>sqlstring = &quot;SELECT Р.НомерСклада, Р.Дата,ТР.ВидТовара, НМ.Наименование, ТР.КолШт AS КолВо,ТР.КолШт*ТР.Цена AS Сумма &quot; &amp; _
&quot;FROM ankstr.dbo.Расходы Р &quot; &amp; _
&quot;INNER JOIN ankStr.dbo.ТоварыРасходов ТР ON ТР.Расход = Р.Расход; &quot; &amp; _
&quot;INNER JOIN ankDic.dbo.Номенклатура НМ WITH ON НМ.ВидТовара = ТР.ВидТовара; &quot; &amp; _
&quot;WHERE Р.Линия=3 AND Р.НомерСклада=&#039;101&#039; &quot; &amp; _
&quot;AND Р.ДатаОтгрузки BETWEEN &#039;20.06.2012&#039; AND &#039;28.06.2012&#039; &quot; &amp; _
&quot;AND ТР.КолШт &lt; &#039;0.05&#039;&quot;</code></pre></div><p>вот на этой команде<br /></p><div class="codebox"><pre><code>.CommandText = Array(sqlstring)</code></pre></div><p>пишет Type mismatch</p>]]></content>
			<author>
				<name><![CDATA[qwertEHOK]]></name>
				<uri>http://forum.script-coding.com/profile.php?id=27326</uri>
			</author>
			<updated>2012-06-29T11:14:47Z</updated>
			<id>http://forum.script-coding.com/viewtopic.php?pid=61280#p61280</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[VBA: Выбрать данные из SQL и вставить результат в Excel]]></title>
			<link rel="alternate" href="http://forum.script-coding.com/viewtopic.php?pid=61276#p61276" />
			<content type="html"><![CDATA[<p>Здравствуйте<br />имеется БД - MS SQL 2005, понадобился начальству отчет</p><p>на первом листе<br />с3 дата1<br />с4 дата2<br />с5 номер</p><p>вывожу на второй лист</p><p>простой запрос выполняется на ура<br />простой это select * from db where 1=1</p><p>1) подскажите как подставить данные с первой страницы<br />2) помогите привести запрос в формат VBA</p><p>код запроса<br /></p><div class="codebox"><pre><code>DECLARE @НомерСклада INT
DECLARE @ВидТовара INT
DECLARE @DD1 DATETIME
DECLARE @DD2 DATETIME

SET @НомерСклада=101  --если NULL то по всем складам
SET @ВидТовара=NULL    -- если NULL то по всем товарам
SET @DD1=&#039;20120601&#039;   
SET @DD2=&#039;20120607&#039;   
SELECT Р.НомерСклада, Р.Дата,ТР.ВидТовара, НМ.Наименование, ТР.КолШт AS КолВо,ТР.КолШт*ТР.Цена AS Сумма 
FROM ankstr.dbo.Расходы Р WITH (NOLOCK)
INNER JOIN ankStr.dbo.ТоварыРасходов ТР WITH (NOLOCK) ON ТР.Расход = Р.Расход
INNER JOIN ankDic.dbo.Номенклатура НМ WITH (NOLOCK) ON НМ.ВидТовара = ТР.ВидТовара
WHERE Р.Линия=3 AND (Р.НомерСклада=@НомерСклада OR @НомерСклада IS NULL)
AND (ТР.ВидТовара=@ВидТовара OR @ВидТовара IS NULL)
AND Р.ДатаОтгрузки BETWEEN @DD1 AND @DD2
AND ТР.КолШт &lt; &#039;0.05&#039;</code></pre></div>]]></content>
			<author>
				<name><![CDATA[qwertEHOK]]></name>
				<uri>http://forum.script-coding.com/profile.php?id=27326</uri>
			</author>
			<updated>2012-06-29T10:08:28Z</updated>
			<id>http://forum.script-coding.com/viewtopic.php?pid=61276#p61276</id>
		</entry>
</feed>
