ReSQL.ru
     
powered by simpleCommunicator - 2.0.52     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / с помощью ADO + SQL опрашивать текстовые файлы
25 сообщений из 71, страница 2 из 3
  2  все
с помощью ADO + SQL опрашивать текстовые файлы
    #38624221
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
zchvvНичего не закончилось. Теперь нужно хорошо разобраться с объектом Recordset. Debug.Print rs.Fields("ID").Value явно недостаточно для продуктивной работы.
я же не против
rs.Fields("ID").Value - я понимаю так - значение поля с идентификатором "ID"
как взяло первую строку хз
подскажете в лоб или ссыль?
...
Рейтинг: 0 / 0
24.04.2014, 11:31
| Ответить | Цитировать | Написать  
с помощью ADO + SQL опрашивать текстовые файлы
    #38624463
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
катастрофаили ссыль?
ссыль
...
Рейтинг: 0 / 0
24.04.2014, 13:06
| Ответить | Цитировать | Написать  
с помощью ADO + SQL опрашивать текстовые файлы
    #38625007
zchvv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zchvv
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
rs.MoveFirst
For j=1 To rs.Fields.Count
  ws.Cells(1,j).Value=rs.Fields(j-1).Name
Next j
'Вывели заголовки
'Теперь выведем строки:
k=2
Do Until rs.EOF
  ws.Cells(k,1).Value=rs.Fields("ID").Value
  ws.Cells(k,2).Value=rs.Fields("Name").Value
  ws.Cells(k,3).Value=rs.Fields("Price").Value
  k=k+1
  rs.MoveNext
Loop
'Если забыть про rs.MoveNext, получится неприятная ситуация.
'Строки выводить лучше так:
ws.Cells(2,1).CopyFromRecordset rs



Желаю удачи.
...
Рейтинг: 0 / 0
24.04.2014, 17:46
| Ответить | Цитировать | Написать  
с помощью ADO + SQL опрашивать текстовые файлы
    #38625041
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
zchvv, ради христа дополните
Dim ws As
Set ws =
...
Рейтинг: 0 / 0
24.04.2014, 18:34
| Ответить | Цитировать | Написать  
с помощью ADO + SQL опрашивать текстовые файлы
    #38625062
zchvv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zchvv
Участник
Dim ws As Worksheet
Set ws =Thisworkbook.Worksheets.Add
...
Рейтинг: 0 / 0
24.04.2014, 18:56
| Ответить | Цитировать | Написать  
с помощью ADO + SQL опрашивать текстовые файлы
    #38625064
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
zchvv,
это не эксель а тестовый файл
...
Рейтинг: 0 / 0
24.04.2014, 18:58
| Ответить | Цитировать | Написать  
с помощью ADO + SQL опрашивать текстовые файлы
    #38625069
zchvv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zchvv
Участник
Тестовый файл может быть TXT, CSV, DBF, XLSX и других форматов. Я показываю, как результат запроса выгрузить на лист Excel'я.
...
Рейтинг: 0 / 0
24.04.2014, 19:03
| Ответить | Цитировать | Написать  
с помощью ADO + SQL опрашивать текстовые файлы
    #38625076
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
zchvv,
с экселем я уже запасся примером, интересует txt
...
Рейтинг: 0 / 0
24.04.2014, 19:14
| Ответить | Цитировать | Написать  
с помощью ADO + SQL опрашивать текстовые файлы
    #38625104
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
указанное ниже истина?
Код: vbnet
1.
2.
 'выбрать поля [ID] и [Name] из диапазона, то есть 1 й и 2 й столбец с файла к которому идёт обращение "С_помощью_ADO_и_SQL_опрашивать_текстовые_файлы"
    rs.Open "select [ID],[Name] from [С_помощью_ADO_и_SQL_опрашивать_текстовые_файлы#txt]", cn


как вывести ответ?
...
Рейтинг: 0 / 0
24.04.2014, 20:00
| Ответить | Цитировать | Написать  
с помощью ADO + SQL опрашивать текстовые файлы
    #38625166
iMrTidy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
iMrTidy
Участник
катастрофауказанное ниже истина?
Код: vbnet
1.
2.
 'выбрать поля [ID] и [Name] из диапазона, то есть 1 й и 2 й столбец с файла к которому идёт обращение "С_помощью_ADO_и_SQL_опрашивать_текстовые_файлы"
    rs.Open "select [ID],[Name] from [С_помощью_ADO_и_SQL_опрашивать_текстовые_файлы#txt]", cn


как вывести ответ?

Почему не подходит 15931179 ?
...
Рейтинг: 0 / 0
24.04.2014, 22:01
| Ответить | Цитировать | Написать  
с помощью ADO + SQL опрашивать текстовые файлы
    #38625286
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
iMrTidy,

потому, что 15931571
...
Рейтинг: 0 / 0
25.04.2014, 04:46
| Ответить | Цитировать | Написать  
с помощью ADO + SQL опрашивать текстовые файлы
    #38625512
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
катастрофа,
тут ещё напасть
для своих проверок пробую вывод такой
Код: vbnet
1.
2.
3.
Debug.Print "[" & rs.Fields("ID").Value & "]"
    Debug.Print "[" & rs.Fields("Name").Value & "]"
    Debug.Print "[" & rs.Fields("Price").Value & "]"



и в файле специально сделал
ID;Name;Price;
1;Chairs ;$40.00 ;
но выводит
почему? я ведь не trim'ил? почему пробелы в конце данных деваются?
...
Рейтинг: 0 / 0
25.04.2014, 11:08
| Ответить | Цитировать | Написать  
с помощью ADO + SQL опрашивать текстовые файлы
    #38625513
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
сорри, но выводит
[1]
[Chairs]
[$40.00]
...
Рейтинг: 0 / 0
25.04.2014, 11:09
| Ответить | Цитировать | Написать  
с помощью ADO + SQL опрашивать текстовые файлы
    #38625516
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
читай дальше про schema.ini и фиксированный формат с определением типов колонок
...
Рейтинг: 0 / 0
25.04.2014, 11:11
| Ответить | Цитировать | Написать  
с помощью ADO + SQL опрашивать текстовые файлы
    #38625548
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Konst_One,
ну да я его обходил стороной, а сейчас как я понял
в каталоге, например "e:\" - директория, где хранится файл
должен быть файл с именем
Schema.ini и его задача дать нужную инфу проге, так?
(сам придумал)
...
Рейтинг: 0 / 0
25.04.2014, 11:40
| Ответить | Цитировать | Написать  
с помощью ADO + SQL опрашивать текстовые файлы
    #38625571
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
"на верном пути ты, мой падаван" (йода из далёкой--далёкой галактики)(с)
...
Рейтинг: 0 / 0
25.04.2014, 12:04
| Ответить | Цитировать | Написать  
с помощью ADO + SQL опрашивать текстовые файлы
    #38626065
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Konst_One,
опробовал, файл Schema.ini, его содержание
[С_помощью_ADO_и_SQL_опрашивать_текстовые_файлы.txt]
Format=CSVDelimited
ColNameHeader=True
n=ColumnNametype [Text]
CharacterSet=ANSI
файл С_помощью_ADO_и_SQL_опрашивать_текстовые_файлы.txt, его содержание
ID.Name.Price.
1,Chairs,$40.00,
2,Table,$75.00,
3,Fork,$1.50,
4,Lamp,$15.00,
5,Rug,$35.00,
на строке
rs.Open "select * from [С_помощью_ADO_и_SQL_опрашивать_текстовые_файлы#txt]", cn
напоролся на мессагу
Разделитель полей, указанный в спецификации текстового файла совпадает с разделителями целой и дробной частей чисел или ограничителем текстовых полей
Одно лечим, другое калечим...
когда ещё точно не знаешь как надо
подскажите пжл как нужно
...
Рейтинг: 0 / 0
25.04.2014, 17:12
| Ответить | Цитировать | Написать  
с помощью ADO + SQL опрашивать текстовые файлы
    #38626073
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
разделители настраиваются в настрйках ОС
...
Рейтинг: 0 / 0
25.04.2014, 17:19
| Ответить | Цитировать | Написать  
с помощью ADO + SQL опрашивать текстовые файлы
    #38626207
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Konst_One, ну туда я точно не хочу лезть, но я думал, что
'вторая запись в Schema.ini - формат файла, поля в файле разделены запятыми (значения, разделённые запятыми) - Format=CSVDelimited
я так и поставил в этом файле
что не правильно думал?
...
Рейтинг: 0 / 0
25.04.2014, 19:24
| Ответить | Цитировать | Написать  
с помощью ADO + SQL опрашивать текстовые файлы
    #38626216
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
йолки палки, вернул, сделал тот же разделитель ;
нарываюсь на туже мессагу....
...
Рейтинг: 0 / 0
25.04.2014, 19:28
| Ответить | Цитировать | Написать  
с помощью ADO + SQL опрашивать текстовые файлы
    #38626323
iMrTidy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
iMrTidy
Участник
катастрофаiMrTidy,

потому, что 15931571

Не вижу логики, да Вы сами посмотрите:
 
катастрофаzchvv, ради христа дополните
Dim ws As
Set ws =

zchvvDim ws As Worksheet
Set ws =Thisworkbook.Worksheets.Add
катастрофаzchvv,
это не эксель а тестовый файл
zchvvТестовый файл может быть TXT, CSV, DBF, XLSX и других форматов. Я показываю, как результат запроса выгрузить на лист Excel'я.
катастрофаzchvv,
с экселем я уже запасся примером, интересует txt
Вам уже дали пример как данные можно выгрузить в Excel как перебором, так и встроенным методом. Куда Вам нужно выгрузить данные и для какой цели? Может быть ADODB не самый лучший вариант в рамках Вашей задачи.

Вот простейший пример. Рекомендую так же ознакомиться с этим .
...
Рейтинг: 0 / 0
25.04.2014, 22:24
| Ответить | Цитировать | Написать  
с помощью ADO + SQL опрашивать текстовые файлы
    #38626351
guest12345
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest12345
Участник
катастрофайолки палки, вернул, сделал тот же разделитель ;
нарываюсь на туже мессагу....
Нужно так:
Format=Delimited(;)
...
Рейтинг: 0 / 0
25.04.2014, 23:58
| Ответить | Цитировать | Написать  
с помощью ADO + SQL опрашивать текстовые файлы
    #38626389
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
guest12345,
спасибо всем, все примеры я гляну
а пока в файле С_помощью_ADO_и_SQL_опрашивать_текстовые_файлы.txt текст
ID;Name;Price;
1 ;Chairs ;$40.00 ;
2;Table;$75.00;
3;Fork;$1.50;
4;Lamp;$15.00;
5;Rug;$35.00;
в файле Schema.ini текст
[С_помощью_ADO_и_SQL_опрашивать_текстовые_файлы.txt]
Format=Delimited(;)
ColNameHeader=True
n=ColumnNametype [Text]
CharacterSet=ANSI
в интермедии
[1]
[Chairs]
[$40.00]
а я добиваюсь
[1 ]
[Chairs ]
[$40.00 ]
как это получить?

и всё же для меня Экселекский файл не есть текстовый....
...
Рейтинг: 0 / 0
26.04.2014, 04:10
| Ответить | Цитировать | Написать  
с помощью ADO + SQL опрашивать текстовые файлы
    #38626392
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
iMrTidy, спасибо
посмотрел Ваш Schema.ini
я правильно понял что как и в ВБА 'далее после апострофа это коммент?
но ведь в интермедии
которая щас увидел переводится как Немедленно также триммит
как добиться правильного отображения в файле
...
Рейтинг: 0 / 0
26.04.2014, 04:36
| Ответить | Цитировать | Написать  
с помощью ADO + SQL опрашивать текстовые файлы
    #38626474
zchvv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zchvv
Участник
Konst_One: разделители настраиваются в настрйках ОС

HKEY_LOCAL_MASHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Text
Здесь смотри Format значение Delimited()
...
Рейтинг: 0 / 0
26.04.2014, 11:43
| Ответить | Цитировать | Написать  
25 сообщений из 71, страница 2 из 3
  2  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / с помощью ADO + SQL опрашивать текстовые файлы
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&startmsg=38624221&tid=2156361]:
 0ms
get settings:
 9ms
get forum list:
 17ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 59ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 56ms
get tp. blocked users:
 1ms
others: 17ms
total:  179ms
созд. / загр.: 179ms
x
x
Закрыть


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