Использование SQL функции в VBA

[Abdukhafiz]

Привет всем..
У меня тут есть запрос в SQL SERVER и этот запрос нужно вставить в VBA...

DECLARE qwe CHAR(19)
SET qwe = '11.11.2011 11:11:11'
IF qwe = '<Null>'
BEGIN
SET qwe = Null
END
ELSE
SET qwe = qwe
INSERT INTO test(datetime1) VALUES(@qwe)[/b]

Написал следующее в VBA, но не работает

d(0) = "2011-03-19 13:58:45"
d(1) = "<Null>"
d(2) = "2011-04-19 13:58:45"
d(3) = "<Null>"

For i = 0 To 3
sSQL = "IF '" & d(i) & "' = '<Null>' BEGIN SET '" & d(i) & "' = Null END ELSE SET '" & d(i) & "' = '" & d(i) & "' INSERT INTO test(datetime1) VALUES('" & d(i) & "')"
cnState.Execute sSQL
Next

Что посоветуете?

[DiemonStar]

а сам сервер подключен как источник данных?

[IgorGO]

посоветую SQL начинать со слова SELECT, а отбор данных писать в WHERE.
распечатйте сюда строку sSQL

[Abdukhafiz]

Да.. вот строка подключения

Dim cnState As ADODB.Connection
Dim sSQL As String
Set cnState = New Connection
With cnState
.Provider = "SQLOLEDB"
.ConnectionString = "server=.\SQLEXPRESS; Trusted_Connection=Yes; database=InsertCSVFile"
.Open
End With

[Abdukhafiz]

Сообщение от IgorGO

посоветую SQL начинать со слова SELECT, а отбор данных писать в WHERE.
распечатйте сюда строку sSQL

как-то не понял)))

[IgorGO]

строка подключения - это одно, задали источник данных и драйвер

а SQL-запрос - это другое какие данные хотим получить, с каких таблиц, соответствующие каким условиям

[Abdukhafiz]

Я строку подключения для DiemonStar написал....

Сейчас я другое попробовал

Dim d(3) As Variant
Dim i As Long

d(0) = "Null"
d(1) = "Null"
d(2) = "2011-04-19 13:58:45"
d(3) = "Null"

For i = 0 To 3
If IsDate(d(i)) Then
sSQL = "INSERT INTO test(datetime1) VALUES('" & d(i) & "')"
MsgBox sSQL
cnState.Execute sSQL
End If
Next

а щас говорит Ошибка.. "Преобразование типа данных char в тип datetime привело к значению datetime за пределами диапазона"

[DiemonStar]

Скорее всего, заморочки с кавычками в запросе...
('" & d(i) & "')" - вот тут попробуйте
(" & d(i) & ")" или (""" & d(i) & """)"

[Abdukhafiz]

Сообщение от DiemonStar

Скорее всего, заморочки с кавычками в запросе...
('" & d(i) & "')" - вот тут попробуйте
(" & d(i) & ")" или (""" & d(i) & """)"

нет не помогло...

Я отредактировал тут кое-что:

Dim d(3) As String
        
    d(0) = "Null"
    d(1) = "Null"
    d(2) = "2011-04-19 13:58:45"
    d(3) = "Null"
    
    For i = 0 To 3
        If IsDate(d(i)) Then
            sSQL = "INSERT INTO test(datetime1) VALUES('" & d(i) & "')"
            MsgBox sSQL
            cnState.Execute sSQL
        Else
            sSQL = "INSERT INTO test(datetime1) VALUES(Null)"
            MsgBox sSQL
            cnState.Execute sSQL
        End If
    Next

Но все равно такая ошибка

[=master=]

Используйте ADODB.Command и запросы c параметрами.
И не дело дату строкой держать.