Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft SQL Server Новый топик    Ответить
 Dts.Connections().ConnectionString в script task txt  [new]
byverka
Member

Откуда:
Сообщений: 338
SSIS, мне нужно в script task задавать путь к плоскому файлу (txt).
Как написать ConnectionString для Excel я знаю:
Dts.Connections("TXT").ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="..."

А вот как сделать тоже самое на VB для плоского файла?
Никак не могу найти.
26 окт 12, 15:41    [13381064]     Ответить | Цитировать Сообщить модератору
 Re: Dts.Connections().ConnectionString в script task txt  [new]
byverka
Member

Откуда:
Сообщений: 338
Похоже что вот так:
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + ThisWorkbook.Path + ";" + "Extended Properties=Text;"
26 окт 12, 16:15    [13381366]     Ответить | Цитировать Сообщить модератору
 Re: Dts.Connections().ConnectionString в script task txt  [new]
byverka
Member

Откуда:
Сообщений: 338
Нет, не сработало. Скорее всего дело в провайдере.
Никто не сталкивался?
26 окт 12, 16:29    [13381459]     Ответить | Цитировать Сообщить модератору
 Re: Dts.Connections().ConnectionString в script task txt  [new]
j12
Guest
byverka,
Попробуй вместо
Extended Properties=Text;


поставь

Extended Properties=text; HDR=Yes; FMT=Delimited
26 окт 12, 16:43    [13381565]     Ответить | Цитировать Сообщить модератору
 Re: Dts.Connections().ConnectionString в script task txt  [new]
j12
Guest
byverka,

Вот пример на VB6

'Set the database connection
objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                   "Data Source=" & strFilePath & ";" & _
                   "Extended Properties=""text;HDR=YES;FMT=Delimited"""

'Query from the file assuming it as a database table
objRecordset.Open "SELECT * FROM " & fileName, _
          objConnection, adOpenStatic, adLockOptimistic, adCmdText

'Loop through the records and insert in to the table
Do Until objRecordset.EOF
    Debug.Print objRecordset.Fields.Item("Number")
    Debug.Print objRecordset.Fields.Item("Name")
objRecordset.MoveNext
Loop
26 окт 12, 17:03    [13381663]     Ответить | Цитировать Сообщить модератору
 Re: Dts.Connections().ConnectionString в script task txt  [new]
byverka
Member

Откуда:
Сообщений: 338
Задача решилась, нужно было написать совсем просто:

Dts.Connections("TXT").ConnectionString =  Dts.Variables("FULL_FILE_NAME").Value.ToString
26 окт 12, 18:01    [13381977]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft SQL Server Ответить