Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Перенести данные типа Date из Excel в SQL - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенести данные типа Date из Excel в SQL (Макросы/Sub)
Перенести данные типа Date из Excel в SQL
Elhust Дата: Понедельник, 27.03.2017, 12:20 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 184
Репутация: -1 ±
Замечаний: 0% ±

Excel 2010
Добрый день уважаемые гуру Excel и не только, прошу помощи ибо это не укладываеться в голове
суть в том что моя программа переносит данные в из Excel в переменные SQL то есть присваивает им значение дак вот я понял как переносить текст но вот с датой какая то проблема с типом данных ошибку выдаёт прошу помощи
[vba]
Код

Dim Conn
Sub test_connALL()
Dim cmd         As ADODB.Command
Dim Conn        As ADODB.Connection
Dim rs          As ADODB.Recordset
Dim lLastrow, i As Long
Dim iCell       As Range
Dim whereID     As Long
Dim FAM, IM, OT, sex, issued As String
Dim Number As String
Dim BDAT, datePASS As date                    

'On Error GoTo Err
iTimer! = Timer
Set Conn = New ADODB.Connection
'------------------------------------------------------------------------------------------------------------------
If UserForm1.TextBox2.Text = "" And UserForm1.TextBox1.Text = "" Then
UserForm1.Show
Else
End If
'------------------------------------------------------------------------------------------------------------------
Application.ScreenUpdating = False
lLastrow = Cells(Rows.Count, 3).End(xlUp).Row
i = 2
'------------------------------------------------------------------------------------------------------------------
Conn.ConnectionString = "driver={SQL Server};server=155.4.3.7;uid=" & UserForm1.TextBox1.Text & ";pwd=" & UserForm1.TextBox2.Text & ";database=MainDWH"
Conn.Open
'------------------------------------------------------------------------------------------------------------------
'On Error Resume Next

With ThisWorkbook.Worksheets(2)
For Each iCell In .Range("C3", Cells(lLastrow, 3))
i = i + 1
If Cells(i, 65) <> "" Then GoTo Point
FAM = iCell 'Фамилия
IM = iCell.Offset(0, 1) 'Имя
OT = iCell.Offset(0, 2) 'Отчество
BDAT = iCell.Offset(0, 4) 'Датарождения
sex = iCell.Offset(0, 6) 'Пол
Number = iCell.Offset(0, 8) 'Серия и номер паспорта
datePASS = iCell.Offset(0, 9) 'Дата регистрации
issued = iCell.Offset(0, 10) 'Место регистрации

MsgBox FAM & " " & IM & " " & OT & " " & BDAT & " " & sex & " " & datePASS & " " & issued & " " & Number
Set cmd = New ADODB.Command
     With cmd
          .ActiveConnection = Conn
          .Parameters.Append cmd.CreateParameter("@lastName", adBSTR, adParamInput, Value:=FAM)
          .Parameters.Append cmd.CreateParameter("@firstName", adBSTR, adParamInput, Value:=IM)
          .Parameters.Append cmd.CreateParameter("@secondName", adBSTR, adParamInput, Value:=OT)
                    .Parameters.Append cmd.CreateParameter("@birthDate", adDBDate  , adParamInput, Value:=BDAT)
          .Parameters.Append cmd.CreateParameter("@sex", adBSTR, adParamInput, Value:=sex)
          .Parameters.Append cmd.CreateParameter("@seriesNumber21", adBSTR, adParamInput, Value:=Number)
                    .Parameters.Append cmd.CreateParameter("@docdate21", adDBDate  , adParamInput, Value:=datePASS)
          .Parameters.Append cmd.CreateParameter("@whopass21", adBSTR, adParamInput, Value:=issued)
          .CommandType = adCmdStoredProc
          .CommandText = "port.sp_Afs"
     End With

     Set rs = cmd.Execute()

     Cells(i, 65).CopyFromRecordset rs
     rs.Close
Point:
Next
End With
'------------------------------------------------------------------------------------------------------------------
Application.ScreenUpdating = True
    MsgBox "Время выполнения макроса составило " & _
    Timer - iTimer! & " сек.", vbExclamation, ""
Conn.Close
Set rs = Nothing
Set con = Nothing
Exit Sub
'------------------------------------------------------------------------------------------------------------------
'Err:
'MsgBox ("Проверьте корректность ввода")
End Sub
[/vba]

В SQL тоже стоит Date и необходимо привести эту дату в вид (dd-mm-yyyy) или (dd.mm.yyyy)
а я с ошибкой (

https://docs.microsoft.com/en-us....hod-ado (тут описаны типы данных для CreateParameter )


Каждый сам выбирает правила игры
 
Ответить
СообщениеДобрый день уважаемые гуру Excel и не только, прошу помощи ибо это не укладываеться в голове
суть в том что моя программа переносит данные в из Excel в переменные SQL то есть присваивает им значение дак вот я понял как переносить текст но вот с датой какая то проблема с типом данных ошибку выдаёт прошу помощи
[vba]
Код

Dim Conn
Sub test_connALL()
Dim cmd         As ADODB.Command
Dim Conn        As ADODB.Connection
Dim rs          As ADODB.Recordset
Dim lLastrow, i As Long
Dim iCell       As Range
Dim whereID     As Long
Dim FAM, IM, OT, sex, issued As String
Dim Number As String
Dim BDAT, datePASS As date                    

'On Error GoTo Err
iTimer! = Timer
Set Conn = New ADODB.Connection
'------------------------------------------------------------------------------------------------------------------
If UserForm1.TextBox2.Text = "" And UserForm1.TextBox1.Text = "" Then
UserForm1.Show
Else
End If
'------------------------------------------------------------------------------------------------------------------
Application.ScreenUpdating = False
lLastrow = Cells(Rows.Count, 3).End(xlUp).Row
i = 2
'------------------------------------------------------------------------------------------------------------------
Conn.ConnectionString = "driver={SQL Server};server=155.4.3.7;uid=" & UserForm1.TextBox1.Text & ";pwd=" & UserForm1.TextBox2.Text & ";database=MainDWH"
Conn.Open
'------------------------------------------------------------------------------------------------------------------
'On Error Resume Next

With ThisWorkbook.Worksheets(2)
For Each iCell In .Range("C3", Cells(lLastrow, 3))
i = i + 1
If Cells(i, 65) <> "" Then GoTo Point
FAM = iCell 'Фамилия
IM = iCell.Offset(0, 1) 'Имя
OT = iCell.Offset(0, 2) 'Отчество
BDAT = iCell.Offset(0, 4) 'Датарождения
sex = iCell.Offset(0, 6) 'Пол
Number = iCell.Offset(0, 8) 'Серия и номер паспорта
datePASS = iCell.Offset(0, 9) 'Дата регистрации
issued = iCell.Offset(0, 10) 'Место регистрации

MsgBox FAM & " " & IM & " " & OT & " " & BDAT & " " & sex & " " & datePASS & " " & issued & " " & Number
Set cmd = New ADODB.Command
     With cmd
          .ActiveConnection = Conn
          .Parameters.Append cmd.CreateParameter("@lastName", adBSTR, adParamInput, Value:=FAM)
          .Parameters.Append cmd.CreateParameter("@firstName", adBSTR, adParamInput, Value:=IM)
          .Parameters.Append cmd.CreateParameter("@secondName", adBSTR, adParamInput, Value:=OT)
                    .Parameters.Append cmd.CreateParameter("@birthDate", adDBDate  , adParamInput, Value:=BDAT)
          .Parameters.Append cmd.CreateParameter("@sex", adBSTR, adParamInput, Value:=sex)
          .Parameters.Append cmd.CreateParameter("@seriesNumber21", adBSTR, adParamInput, Value:=Number)
                    .Parameters.Append cmd.CreateParameter("@docdate21", adDBDate  , adParamInput, Value:=datePASS)
          .Parameters.Append cmd.CreateParameter("@whopass21", adBSTR, adParamInput, Value:=issued)
          .CommandType = adCmdStoredProc
          .CommandText = "port.sp_Afs"
     End With

     Set rs = cmd.Execute()

     Cells(i, 65).CopyFromRecordset rs
     rs.Close
Point:
Next
End With
'------------------------------------------------------------------------------------------------------------------
Application.ScreenUpdating = True
    MsgBox "Время выполнения макроса составило " & _
    Timer - iTimer! & " сек.", vbExclamation, ""
Conn.Close
Set rs = Nothing
Set con = Nothing
Exit Sub
'------------------------------------------------------------------------------------------------------------------
'Err:
'MsgBox ("Проверьте корректность ввода")
End Sub
[/vba]

В SQL тоже стоит Date и необходимо привести эту дату в вид (dd-mm-yyyy) или (dd.mm.yyyy)
а я с ошибкой (

https://docs.microsoft.com/en-us....hod-ado (тут описаны типы данных для CreateParameter )

Автор - Elhust
Дата добавления - 27.03.2017 в 12:20
_Boroda_ Дата: Понедельник, 27.03.2017, 12:24 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
В макрос не вникал, первое, что пришло в голову при просмотре кода - вот так не поможет ли?
[vba]
Код
Dim BDAT As Date, datePASS As Date
[/vba]

Кстати, Вы в курсе, что вот здесь
[vba]
Код
Dim FAM, IM, OT, sex, issued As String
[/vba]Стринги будут только у переменной "issued", а у остальных Variantы


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеВ макрос не вникал, первое, что пришло в голову при просмотре кода - вот так не поможет ли?
[vba]
Код
Dim BDAT As Date, datePASS As Date
[/vba]

Кстати, Вы в курсе, что вот здесь
[vba]
Код
Dim FAM, IM, OT, sex, issued As String
[/vba]Стринги будут только у переменной "issued", а у остальных Variantы

Автор - _Boroda_
Дата добавления - 27.03.2017 в 12:24
Elhust Дата: Понедельник, 27.03.2017, 12:48 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 184
Репутация: -1 ±
Замечаний: 0% ±

Excel 2010
Блин неа не в курсе был спасибо!!!! , а то я и думаю почему тип данных в параметре только
----------------------------------------------------------------------------------------------
adBSTR
8
Указывает на заканчивающуюся нулем строку символов (Unicode) (DBTYPE_BSTR).
----------------------------------------------------------------------------------------------
сейчас попробую


Каждый сам выбирает правила игры
 
Ответить
СообщениеБлин неа не в курсе был спасибо!!!! , а то я и думаю почему тип данных в параметре только
----------------------------------------------------------------------------------------------
adBSTR
8
Указывает на заканчивающуюся нулем строку символов (Unicode) (DBTYPE_BSTR).
----------------------------------------------------------------------------------------------
сейчас попробую

Автор - Elhust
Дата добавления - 27.03.2017 в 12:48
Elhust Дата: Понедельник, 27.03.2017, 13:09 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 184
Репутация: -1 ±
Замечаний: 0% ±

Excel 2010
_Boroda_,
------------------------------------------------
Microsoft Visual Basic for Applications
------------------------------------------------
Run-time error '-2147217887 (80040e21)':

Automation error
------------------------------------------------
ОК Справка
------------------------------------------------
всё равно это хрень с типом данных лезет


Каждый сам выбирает правила игры
 
Ответить
Сообщение_Boroda_,
------------------------------------------------
Microsoft Visual Basic for Applications
------------------------------------------------
Run-time error '-2147217887 (80040e21)':

Automation error
------------------------------------------------
ОК Справка
------------------------------------------------
всё равно это хрень с типом данных лезет

Автор - Elhust
Дата добавления - 27.03.2017 в 13:09
_Boroda_ Дата: Понедельник, 27.03.2017, 13:17 | Сообщение № 5
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Читали?
https://support.microsoft.com/en-us....-errors
Ну и вообще куча
https://yandex.ru/search....&lr=213

Извините, что ссылки, а не просто пояснения, но четко ответить на Ваш вопрос мне довольно сложно. Нужно смотреть файл, базу, настройки, разбираться во всем этом. Возможно Вам поможет кто-то, кто часто занимается базами SQL. Но это не я к сожалению


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЧитали?
https://support.microsoft.com/en-us....-errors
Ну и вообще куча
https://yandex.ru/search....&lr=213

Извините, что ссылки, а не просто пояснения, но четко ответить на Ваш вопрос мне довольно сложно. Нужно смотреть файл, базу, настройки, разбираться во всем этом. Возможно Вам поможет кто-то, кто часто занимается базами SQL. Но это не я к сожалению

Автор - _Boroda_
Дата добавления - 27.03.2017 в 13:17
anvg Дата: Понедельник, 27.03.2017, 13:58 | Сообщение № 6
Группа: Друзья
Ранг: Ветеран
Сообщений: 581
Репутация: 271 ±
Замечаний: 0% ±

2016, 365
Доброе время суток.
Объявление хранимой процедуры приведите, пожалуйста, а то не понятно, те ли типы вы используете. Для текста nvarchar вполне себе подходят adVarWChar. Ну, и что возвращает ХП тоже не мешало бы.
 
Ответить
СообщениеДоброе время суток.
Объявление хранимой процедуры приведите, пожалуйста, а то не понятно, те ли типы вы используете. Для текста nvarchar вполне себе подходят adVarWChar. Ну, и что возвращает ХП тоже не мешало бы.

Автор - anvg
Дата добавления - 27.03.2017 в 13:58
Elhust Дата: Понедельник, 27.03.2017, 14:01 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 184
Репутация: -1 ±
Замечаний: 0% ±

Excel 2010
_Boroda_, и всё же спасибо за внимание и просто благодарю за ответы .. я тут на форуме знаю одного пользователя или как правильно говорить форучанина ... anvg , он как я понимаю хорошо знает эту тему .. правда я в личку написал что такую тему создал и прошу помощи ... наверное не в сети пока , буду ждать искать решать .


Каждый сам выбирает правила игры
 
Ответить
Сообщение_Boroda_, и всё же спасибо за внимание и просто благодарю за ответы .. я тут на форуме знаю одного пользователя или как правильно говорить форучанина ... anvg , он как я понимаю хорошо знает эту тему .. правда я в личку написал что такую тему создал и прошу помощи ... наверное не в сети пока , буду ждать искать решать .

Автор - Elhust
Дата добавления - 27.03.2017 в 14:01
Elhust Дата: Понедельник, 27.03.2017, 14:02 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 184
Репутация: -1 ±
Замечаний: 0% ±

Excel 2010
anvg, да вот какие типы в SQL по данным
[vba]
Код

@lastName nvarchar(20) ,
@firstName nvarchar(20) ,
@secondName nvarchar(20),
@birthDate date,
@sex nvarchar(20),
@BP_ID nvarchar(20)='0',
------------------------------------------------------------------------------------------
@TipPass21 nvarchar(10),
@seriesNumber21 nvarchar(10) ,
@docdate21 date,
@whopass21 nvarchar(60)
[/vba]


Каждый сам выбирает правила игры
 
Ответить
Сообщениеanvg, да вот какие типы в SQL по данным
[vba]
Код

@lastName nvarchar(20) ,
@firstName nvarchar(20) ,
@secondName nvarchar(20),
@birthDate date,
@sex nvarchar(20),
@BP_ID nvarchar(20)='0',
------------------------------------------------------------------------------------------
@TipPass21 nvarchar(10),
@seriesNumber21 nvarchar(10) ,
@docdate21 date,
@whopass21 nvarchar(60)
[/vba]

Автор - Elhust
Дата добавления - 27.03.2017 в 14:02
Elhust Дата: Понедельник, 27.03.2017, 14:05 | Сообщение № 9
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 184
Репутация: -1 ±
Замечаний: 0% ±

Excel 2010
anvg, она возвращает XML
[vba]
Код

  <Application>
    <id>DP:0</id>
    <version>1</version>
    <date>2017-03-27</date>
    <app>
      <bank>1</bank>
      <applicant>
        <id>0</id>
        <person>
          <lastName>ЛОКАЦКАЯ</lastName>
          <firstName>ТАТЬЯНА</firstName>
          <secondName>НИКОЛАЕВНА</secondName>
          <birthDate>1950-11-18</birthDate>
          <sex>0</sex>
        </person>
        <doc>
          <type>21</type>
          <seriesNumber>6502938694</seriesNumber>
          <date>2002-05-15</date>
          <issued>ВЕРХНЕПЫШМИНСКИМ ГОВД СВЕРДЛОВСКОЙ ОБЛАСТИ</issued>
        </doc>
      </applicant>
    </app>
  </Application>
[/vba]

то есть я приравниваю к переменным в Excel значения и они встают сюда


Каждый сам выбирает правила игры

Сообщение отредактировал Elhust - Понедельник, 27.03.2017, 14:06
 
Ответить
Сообщениеanvg, она возвращает XML
[vba]
Код

  <Application>
    <id>DP:0</id>
    <version>1</version>
    <date>2017-03-27</date>
    <app>
      <bank>1</bank>
      <applicant>
        <id>0</id>
        <person>
          <lastName>ЛОКАЦКАЯ</lastName>
          <firstName>ТАТЬЯНА</firstName>
          <secondName>НИКОЛАЕВНА</secondName>
          <birthDate>1950-11-18</birthDate>
          <sex>0</sex>
        </person>
        <doc>
          <type>21</type>
          <seriesNumber>6502938694</seriesNumber>
          <date>2002-05-15</date>
          <issued>ВЕРХНЕПЫШМИНСКИМ ГОВД СВЕРДЛОВСКОЙ ОБЛАСТИ</issued>
        </doc>
      </applicant>
    </app>
  </Application>
[/vba]

то есть я приравниваю к переменным в Excel значения и они встают сюда

Автор - Elhust
Дата добавления - 27.03.2017 в 14:05
anvg Дата: Понедельник, 27.03.2017, 14:29 | Сообщение № 10
Группа: Друзья
Ранг: Ветеран
Сообщений: 581
Репутация: 271 ±
Замечаний: 0% ±

2016, 365
Попробуйте поменять для типов nvarchar установить adVarWChar, для Date - adDate в параметрах.
она возвращает XML
Как результат Select?
 
Ответить
СообщениеПопробуйте поменять для типов nvarchar установить adVarWChar, для Date - adDate в параметрах.
она возвращает XML
Как результат Select?

Автор - anvg
Дата добавления - 27.03.2017 в 14:29
Elhust Дата: Понедельник, 27.03.2017, 14:43 | Сообщение № 11
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 184
Репутация: -1 ±
Замечаний: 0% ±

Excel 2010
anvg, да там получается что XML в переменной выводиться просто SELECT @AfsMessage
ошибка опять
------------------------------------------------
Run-time error '3708':

Application-defined or object-defined error
------------------------------------------------


Каждый сам выбирает правила игры
 
Ответить
Сообщениеanvg, да там получается что XML в переменной выводиться просто SELECT @AfsMessage
ошибка опять
------------------------------------------------
Run-time error '3708':

Application-defined or object-defined error
------------------------------------------------

Автор - Elhust
Дата добавления - 27.03.2017 в 14:43
anvg Дата: Понедельник, 27.03.2017, 15:24 | Сообщение № 12
Группа: Друзья
Ранг: Ветеран
Сообщений: 581
Репутация: 271 ±
Замечаний: 0% ±

2016, 365
Странно. Я единственное к чему могу придраться, так это
[vba]
Код
Set .ActiveConnection = Conn
[/vba]
Ошибку выдаёт на строке с cmd.Execute?
 
Ответить
СообщениеСтранно. Я единственное к чему могу придраться, так это
[vba]
Код
Set .ActiveConnection = Conn
[/vba]
Ошибку выдаёт на строке с cmd.Execute?

Автор - anvg
Дата добавления - 27.03.2017 в 15:24
Elhust Дата: Понедельник, 27.03.2017, 15:28 | Сообщение № 13
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 184
Репутация: -1 ±
Замечаний: 0% ±

Excel 2010
anvg, да всё верно именно там, а что не так с этой строчкой ?


Каждый сам выбирает правила игры
 
Ответить
Сообщениеanvg, да всё верно именно там, а что не так с этой строчкой ?

Автор - Elhust
Дата добавления - 27.03.2017 в 15:28
Elhust Дата: Понедельник, 27.03.2017, 15:47 | Сообщение № 14
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 184
Репутация: -1 ±
Замечаний: 0% ±

Excel 2010
anvg, блин у меня там процедура в процедуре была не заметил что не убрал селект один ... вообщем ошибка теперь такая там тупо пусто везде
-----------------------------------------
Microsoft Visual Basic for Applications
-----------------------------------------

-----------------------------------------
ОК Справка
-----------------------------------------


Каждый сам выбирает правила игры
 
Ответить
Сообщениеanvg, блин у меня там процедура в процедуре была не заметил что не убрал селект один ... вообщем ошибка теперь такая там тупо пусто везде
-----------------------------------------
Microsoft Visual Basic for Applications
-----------------------------------------

-----------------------------------------
ОК Справка
-----------------------------------------

Автор - Elhust
Дата добавления - 27.03.2017 в 15:47
anvg Дата: Понедельник, 27.03.2017, 16:29 | Сообщение № 15
Группа: Друзья
Ранг: Ветеран
Сообщений: 581
Репутация: 271 ±
Замечаний: 0% ±

2016, 365
блин у меня там процедура в процедуре была не заметил что не убрал селект один
:) Видимо нужно просматривать код ХП дальше, коль окончательного вывода нет. Может стоит тогда сделать в ХП Ouput переменную и возвращать через неё результат?
[vba]
Код

com.Execute Options := adExecuteNoRecords
Debug.Print com.Parameters("@outXML").Value
[/vba]
 
Ответить
Сообщение
блин у меня там процедура в процедуре была не заметил что не убрал селект один
:) Видимо нужно просматривать код ХП дальше, коль окончательного вывода нет. Может стоит тогда сделать в ХП Ouput переменную и возвращать через неё результат?
[vba]
Код

com.Execute Options := adExecuteNoRecords
Debug.Print com.Parameters("@outXML").Value
[/vba]

Автор - anvg
Дата добавления - 27.03.2017 в 16:29
Elhust Дата: Вторник, 28.03.2017, 07:46 | Сообщение № 16
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 184
Репутация: -1 ±
Замечаний: 0% ±

Excel 2010
anvg, проверил весь код всё работает без excel выводит XML, там же в SQL обозначил переменные значениями и на вхождение оставил только одну чтобы проверять как пишется ... и вот такая сводка по типам данным у меня работает
Если Текст то Excel (String), CreateParameter(adBSTR), SQL(nvarchar) - работает на все 100%

Если Дата то Excel (), CreateParameter(), SQL()-???????
Если Текст и Цифры то Excel (), CreateParameter(), SQL()-???????
как то так


Каждый сам выбирает правила игры
 
Ответить
Сообщениеanvg, проверил весь код всё работает без excel выводит XML, там же в SQL обозначил переменные значениями и на вхождение оставил только одну чтобы проверять как пишется ... и вот такая сводка по типам данным у меня работает
Если Текст то Excel (String), CreateParameter(adBSTR), SQL(nvarchar) - работает на все 100%

Если Дата то Excel (), CreateParameter(), SQL()-???????
Если Текст и Цифры то Excel (), CreateParameter(), SQL()-???????
как то так

Автор - Elhust
Дата добавления - 28.03.2017 в 07:46
Elhust Дата: Вторник, 28.03.2017, 07:49 | Сообщение № 17
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 184
Репутация: -1 ±
Замечаний: 0% ±

Excel 2010
anvg,
Если Дата то Excel (Date), CreateParameter(adDBTimeStamp), SQL(Datetime2)- работает на все 100%
А ещё все переменные и их вхождения должны быть в том же порядке оказывается)


Каждый сам выбирает правила игры

Сообщение отредактировал Elhust - Вторник, 28.03.2017, 08:04
 
Ответить
Сообщениеanvg,
Если Дата то Excel (Date), CreateParameter(adDBTimeStamp), SQL(Datetime2)- работает на все 100%
А ещё все переменные и их вхождения должны быть в том же порядке оказывается)

Автор - Elhust
Дата добавления - 28.03.2017 в 07:49
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенести данные типа Date из Excel в SQL (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!