Код программы:

Если ПустоеЗначение(ВыборИмяФайла)=1 тогда      Сообщить("Не указан файл выгрузки.");      Возврат;      КонецЕсли;
     
РС = СоздатьОбъект("OLEDBData");
РС.Соединение("Driver={Microsoft Access Driver (*.mdb)}bq="+ВыборИмяФайла+";Uid=Admin;Pwd=");
Команда=РС.СоздатьКоманду();
   
Команда.Отладка(1);
     
тзПриходников1С=СоздатьОбъект("ТаблицаЗначений");
Команда.ВыполнитьИнструкцию("SELECT * FROM Приходники1С where (ID_ПРИХОДНЫЙ_ОРДЕР = ости)=1,""," AND (ПромерочнаяВедомость = '"+СокрЛП(ВыборНомВедомости)+"')"), тзПриходников);


все работает, но .... в одно из полей таблицы имеет тип "Строка" длинна 50 символов, но при загрузке в таблицу значений попадают только первые 23 символа с обрезанием по 3-му пробелу! Хотелось бы все 50 символов, как с этим бороться?

С уважением, Станислав.

Nick писал(а) 23. Октября 2008 :: 04:12:

зачем дополнять и до какой длины?  мне из Акцесса нужно получить всю строку целиком, а она обрезается по 3-му пробелу?

Nick писал(а) 23. Октября 2008 :: 04:32:

Тогда бы попадала хотя бы одна строка целиком из двух более чем 24! (я ошибся не 23, а 24), но не попадает ни одна целиком, с пробелом это не связано. 

OnCheck писал(а) 23. Октября 2008 :: 04:08:





Создай ТЗ сам с полями нужной длины  (тзПриходников.НоваяКолонка() ... ) ,а запрос выполняй командой

Команда.ВыполнитьИнструкцию(ТекстЗапроса, тзПриходников,0); 

обрати внимание на 3 параметр = 0.

OnCheck писал(а) 23. Октября 2008 :: 05:18:


Простейший не надо нужно тот же

Создай ТЗ сам с полями нужной длины  (тзПриходников.НоваяКолонка() ... ) ,а запрос выполняй командой

Команда.ВыполнитьИнструкцию(ТекстЗапроса, тзПриходников,0); 

обрати внимание на 3 параметр = 0. [/quote]

Сделал так:

     РС = СоздатьОбъект("OLEDBData");
     РС.Соединение("Driver={Microsoft Access Driver (*.mdb)}bq="+ВыборИмяФайла+";Uid=Admin;Pwd=");
Команда=РС.СоздатьКоманду();
   
Команда.Отладка(1);
     
тзПриходников1С=СоздатьОбъект("ТаблицаЗначений");
     тзПриходников1С.НоваяКолонка("НОМ_ПРИХОДНЫЙ_ОРДЕР","Строка",50,,"Строка");
тзПриходников1С.НоваяКолонка("АртикулПостащика","Строка",50,,"Строка");

Команда.ВыполнитьИнструкцию("SELECT * FROM Приходники1С where (ID_ПРИХОДНЫЙ_ОРДЕР = '"+ДатаНомерСчетаФактуры+"')",тзПриходников1С,0);
тзПриходников1С.ВыбратьСтроку();

результат к сожалению не изменился  ,  зато узнал об этом параметре! 

Вот например FoxPro автоматически при коннекте через этот драйвер к таблице Access генерирует код:

SELECT St1.Êîä, St1.st;
 FROM ;
     st1 St1

DBSetProp(ThisView,"View","SendUpdates",.F.)
DBSetProp(ThisView,"View","BatchUpdateCount",1)
DBSetProp(ThisView,"View","CompareMemo",.T.)
DBSetProp(ThisView,"View","FetchAsNeeded",.F.)
DBSetProp(ThisView,"View","FetchMemo",.T.)
DBSetProp(ThisView,"View","FetchSize",100)
DBSetProp(ThisView,"View","MaxRecords",-1)
DBSetProp(ThisView,"View","Prepared",.F.)
DBSetProp(ThisView,"View","ShareConnection",.F.)
DBSetProp(ThisView,"View","AllowSimultaneousFetch",.F.)
DBSetProp(ThisView,"View","UpdateType",1)
DBSetProp(ThisView,"View","UseMemoSize",255)
DBSetProp(ThisView,"View","Tables","st1")
DBSetProp(ThisView,"View","WhereType",3)

DBSetProp(ThisView+".êîä","Field","DataType","I")
DBSetProp(ThisView+".êîä","Field","UpdateName","st1.Êîä")
DBSetProp(ThisView+".êîä","Field","KeyField",.F.)
DBSetProp(ThisView+".êîä","Field","Updatable",.T.)

DBSetProp(ThisView+".st","Field","DataType","C(50)")
DBSetProp(ThisView+".st","Field","UpdateName","st1.st")
DBSetProp(ThisView+".st","Field","KeyField",.F.)
DBSetProp(ThisView+".st","Field","Updatable",.T.)

 

так что не всё так просто

Nick писал(а) 23. Октября 2008 :: 05:57:


не понятно  ни чего. А зачем ФоксПро? я и на Акцесске построил такой же запрос. И он все нормально мне показал. То есть полные строки.

(0) а может попробовать через ODBC к Access лезть ?

Цитата:


Ага и кто виноват . Нужно чтоб кто нибудь из разработчиков сказал как там на самом деле дело с Ole DB

Z1 писал(а) 23. Октября 2008 :: 06:51:


нету хелпа, к сожалению... Ищу пока безуспешно.

Z1 писал(а) 23. Октября 2008 :: 08:30:


За строку соединения спасибо, но дело даже не соединении, а скорее с основой я этот объет в 1С++ еще не крутил, учуся я только . Вот OLEDBData уже знаю, и в своих разработках по мере надобности вставляю. Его разбира по хелпу Дополнения по работе с DBF, индексированной таблицей и журналом расчета, Ситникова Анатолий aka acsent спасибо ему большое. Вот бы что нить подобное по этому объекту!?

Z1 писал(а) 23. Октября 2008 :: 08:51:


ок, пробую

OnCheck писал(а) 23. Октября 2008 :: 08:55:


спасибо, помогло)

сделал так:

sql = СоздатьОбъект("ODBCDataBase");
Фл1=sql.Соединение("Driver={Microsoft Access Driver (*.mdb)}bq="+ВыборИмяФайла+";Uid=Admin;Pwd=;");
Если Фл1 = 0 Тогда
       Сообщить("ОШИБКА = " +  sql.ПолучитьОписаниеОшибки() );
       Возврат;
КонецЕсли;
Команда = СоздатьОбъект("ODBCRecordSet");
Команда.УстБД(sql);
тзПриходников1С=СоздатьОбъект("ТаблицаЗначений");
Команда.ВыполнитьИнструкцию("SELECT НОМ_ПРИХОДНЫЙ_ОРДЕР,АртикулПостащика,ВнутреннееПредставление FROM Приходники1С where (ID_ПРИХОДНЫЙ_ОРДЕР = '"+ДатаНомерСчетаФактуры+"')",тзПриходников1С);
тзПриходников1С.ВыбратьСтроку();