Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / проблема в sql коде на VB (2) / 5 сообщений из 5, страница 1 из 1
08.02.2010, 15:49
    #36455706
vladAnco
vladAnco
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проблема в sql коде на VB (2)
http://www.sql.ru/Forum/actualthread.aspx?tid=721213
в этой теме мне помогли и решили мою проблему... все класно все работоло... но когда я захотел использовать это в другом месте почему то не работает (((
выдает ощибку:
Код: plaintext
1.
run-time error'1004':
[Microsoft][ODBC SQL Server Driver][SQL Server]Line  3 : Incorrect syntax near ' 00 '.

вот код моего SQL кода
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
With ActiveWorkbook.PivotCaches.Add(SourceType:=xlExternal)
        .Connection = _
        "ODBC;DSN=sklad;UID=gabrielyan.v;APP=Microsoft Office 2003;WSID=VLAD;DATABASE=Sklad;Network=DBMSSOCN;Trusted_Connection=Yes"
        .CommandType = xlCmdSql
        .CommandText = Array( _
        "SELECT DIFKPP.KODS, DIFKPP.KODT, DIFKPP.KOLV, DIFKPP.KOLO, DIFKPP.DATS, SKLAD.KODS, SKLAD.NAZV, TOVAR.KODT, TOVAR.NAZV" & Chr( 13 ) & "" & Chr( 10 ) & "FROM Sklad.dbo.DIFKPP DIFKPP, Sklad.dbo.SKLAD SKLAD, Sklad.dbo.TOVAR TOVAR" & Chr( 13 ) & "" & Chr( 10 ) & "WHER" _
        , _
        "E SKLAD.KODS = DIFKPP.KODS AND TOVAR.KODT = DIFKPP.KODT AND ((DIFKPP.DATS>=#" & aaa & "#) AND (DIFKPP.DATS<=#" & bbb & "#))" _
        )
        .CreatePivotTable TableDestination:="[Êíèãà1]Ëèñò1!R3C1", TableName:= _
        "ÑâîäíàÿÒàáëèöà1", DefaultVersion:=xlPivotTableVersion10
    End With
aaa и bbb задаются так же как и в старом моём примере
Код: plaintext
1.
2.
3.
4.
5.
  Dim SH As Worksheet
    Set SH = ThisWorkbook.Worksheets("Ëèñò1")
    
    aaa = Format(SH.Cells( 1 ,  2 ), "YYYY-MM-DD")
    bbb = Format(SH.Cells( 2 ,  2 ), "YYYY-MM-DD")

как и в предедушей теме, если не вставлять в запрос значение из переменых, запрос и макрос выполняется правильно
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.02.2010, 15:53
    #36455716
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проблема в sql коде на VB (2)
vladAnco,

Код: plaintext
1.
    aaa = Format(SH.Cells( 1 ,  2 ), "mm/dd/yyyy")
    bbb = Format(SH.Cells( 2 ,  2 ), "mm/dd/yyyy")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.02.2010, 15:55
    #36455724
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проблема в sql коде на VB (2)
А СТОП!

SQL-сервер!
он не понимает решетки
должно быть так:

DIFKPP.DATS>='" & aaa & "'

то бишь вместо решеток - апострофы
а форматирование даты можете оставить в АНСИ
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.02.2010, 16:07
    #36455770
vladAnco
vladAnco
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проблема в sql коде на VB (2)
Shocker.Pro:
спс добрйы человек
Код: plaintext
1.
DIFKPP.DATS>='" & aaa & "'
помогло...
зы просто непонятно а почему в прошлый раз работало норм
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.02.2010, 16:10
    #36455775
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проблема в sql коде на VB (2)
vladAncoзы просто непонятно а почему в прошлый раз работало норм

Потому что вы с другим драйвером работали. Синтаксис SQL отличается у разных СУБД.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / проблема в sql коде на VB (2) / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]