Тема: VBS: Проблема с sql запросом.
Здравствуйте!!!
Прошу Вас помочь решить проблему с запросом из VBScript. Заранее благодарю Вас за помощь.
Скрипт выводит следующую ошибку:
Сам код:
Option Explicit
Dim strPath, fileName, qStr, queryObj, tmp
strPath = "C:\test"
fileName = "test.txt"
qStr = "SELECT LEN(barname) as BarnameLen, * FROM "&fileName&" WHERE LEN(barname)<=20 GROUP BY barname ORDER BY LEN(barname)"
queryObj = QueryTextFile(strPath, qStr)
If IsArray(queryObj) Then
For Each tmp In queryObj
WScript.Echo tmp
Next
End If
Function QueryTextFile(fileLocation, qString)
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adCmdText = &H0001
Dim objConnection, objRecordSet, result
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")
objConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & fileLocation & ";Extended Properties=""text;;"";"
objConnection.Open
objRecordset.Open qString, objConnection, adOpenStatic, adLockOptimistic, adCmdText
If Not objRecordset.EOF Or Not objRecordset.BOF Then
QueryTextFile = objRecordSet.GetRows()
End If
Set objRecordset = Nothing
Set objConnection = Nothing
End Function
schema.ini файл:
[test.txt]
Format = TabDelimited
ColNameHeader = True
Col1 = shopcode Text
Col2 = grpname Text
Col3 = barcode Text
Col4 = barname Text
Col5 = salesitem Long
Col6 = salesvalue Long
test.txt файл:
shopcode grpname barcode barname salesitem salesvalue
1 СРЕДСТВА ГИГИЕНЫ 7891418826200 зубная паста 50мл Бережное Отбеливание 1 123
1 СРЕДСТВА ГИГИЕНЫ 7891414900300 зубная паста 50мл Защита от Кариеса 1 123
7 СРЕДСТВА ГИГИЕНЫ 8850633044900 зубная щетка Премьер отбеливания 1 118
5 БЫТОВАЯ ХИМИЯ 5413155692800 средство для посуды 500мл Алоэ 1 187
3 БЫТОВАЯ ХИМИЯ 5413104284100 универсальное средство 400гр порошок Лимон 3 495
4 БЫТОВАЯ ХИМИЯ 5410018384500 универсальное средство 475гр порошок Океан 1 203
2 БЫТОВАЯ ХИМИЯ 5413100858800 универсалное средство 400гр Сосна 1 194
7 СРЕДСТВА ПО УХОДУ ЗА ВОЛОСАМИ 5011161622600 шампунь 250мл Блеск ухаживающий 1 416
3 СРЕДСТВА ПО УХОДУ ЗА ВОЛОСАМИ 5410656075200 шампунь 400мл укрепление и блеск 1 554
5 СРЕДСТВА ПО УХОДУ ЗА ВОЛОСАМИ 5000418417400 шампунь 400мл Гладкий Шелк 2в1 1 778
4 СРЕДСТВА ПО УХОДУ ЗА ВОЛОСАМИ 4015037787800 шампунь 400мл Против перхоти 1 376
5 СРЕДСТВА ГИГИЕНЫ 4010004164100 прокладки Ультра 10шт 1 332
4 СРЕДСТВА ГИГИЕНЫ 4010043754300 прокладки Классик 7шт 1 241
3 СРЕДСТВА ГИГИЕНЫ 4010048183600 ежедневки нормал 20шт 2 284
1 СРЕДСТВА ГИГИЕНЫ 4010048192800 ежедневки нормал 60шт 1 414
1 СРЕДСТВА ГИГИЕНЫ 4010010783500 ежедневки Регуляр 20шт 1 166
1 СРЕДСТВА ГИГИЕНЫ 4010017975700 ежедневки Нормал 60шт 1 440
2 СРЕДСТВА ГИГИЕНЫ 5007489856900 зубная паста 50мл 1 116
2 СРЕДСТВА ГИГИЕНЫ 4603103030400 туалетная бумага 1 307