|
Как посмотреть все поля запроса?
| ☑ |
0
SashaNox
12.11.14
✎
10:31
|
Добрый день! Прошу помочь, вот делаю такое подлкючение
Соединение = Новый COMОбъект("ADODB.Connection");
СтрокаСоединения = "Provider=MSDASQL.1;Password=Логин;Persist Security Info=True;User ID=Пароль;Extended Properties=""DRIVER=Client Access ODBC Driver (32-bit);SYSTEM=192.168.0.101;UID=Пароль;DBQ=ааа;LANGUAGEID=ENU;PKG=QGPL/DEFAULT(IBM),2,0,1,0,512;QRYSTGLMT=-1;XDYNAMIC=0;TRANSLATE=1;SIGNON=1;""";
Попытка
Соединение.Open(СтрокаСоединения);
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
Выборка = Соединение.Execute(ТекстЗапроса);
Пока Выборка.EOF() = 0 Цикл
Сообщить(Выборка.Fields("PRAREC").Value);
Прервать;
КонецЦикла;
Каким методом увидеть всю коллекцию полей? Предполагал что они будут тут: Выборка.Fields, но я ошибся
|
|
1
Looser-1c
12.11.14
✎
10:35
|
Fields.Count() ?
и цикл
|
|
2
Господин ПЖ
12.11.14
✎
10:35
|
Set objFields = objRs.Fields
For intLoop = 0 To (objFields.Count - 1)
Debug.Print objFields.Item(intLoop).Name
Next
|
|
3
Господин ПЖ
12.11.14
✎
10:36
|
в следующий раз разрешаю набить в гугле: "adodb recordset fields collection" самому
|
|
4
SashaNox
12.11.14
✎
10:47
|
(1) Fields.Count() = 34, что это?
(2) Блииин, я тупой, что с этим делать в моем случае?
(3) Там тоже самое, я не понимаю что делать с этой инфой((
|
|
5
Looser-1c
12.11.14
✎
10:49
|
(4)
для сч = 0 по Fields.Count Цикл
Сообщить("" + fields(сч).Name + " " + Fields(сч).Value);
КонецЦикла
|
|
6
Господин ПЖ
12.11.14
✎
10:49
|
(4) обойти коллекцию в цикле и получить имена полей
|
|
7
Господин ПЖ
12.11.14
✎
10:50
|
>я не понимаю что делать с этой инфой
забить... и не обижаться когда другие говорят "эти тупые 1с-ники"
|
|
8
SashaNox
12.11.14
✎
10:51
|
(6) - все понял, спасибо большое Господин))
|
|
9
SashaNox
12.11.14
✎
10:53
|
(5) и Вам спасибо))
|
|