Имя: Пароль:
1C
 
Как посмотреть все поля запроса?
,
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) и Вам спасибо))