Метод "seek", на 1с8.0, примеров я не нашел, как на 7.7 не получается:

Табл.Seek("=", КодАО, КодПодр, КодИК, НомОб);

в таблице 4 ключевых поля
пишет, что
"Ошибка при вызове метода контекста (Seek): Неверное число параметров"

Кто знает подстажите приз какой у него синтаксис?

давай подробнее что и где ищешь

(0) нужно указать имя поля:
Табл.seek("FieldName="+<Значение>....
и если поле текстовое,то не забудь одинарную кавычку "'"

+2 и ваще,пользуйся Filter("ИмяПоля1=<Значение> AND ИмяПоля2=<Значение> AND...."

Ищу  запись по 4 члючевым полям

Табл.Seek("=", КодАО, КодПодр, КодИК, НомОб);

Табл.Filter("reg_nom_vi"=КодАО and .... ); - так надо?

Seek требует ключей,насколько я помню,Filter-нет.
Поэтому лучше юзать его...на первых порах....
Табл.Filter("reg_nom_vi='КодАО' and .... ");
если КодАО строковый,а если нет то без одинарной кавычки

КодАо -это реквизит

+ то есть Табл.Filter("reg_nom_vi='"+СокрЛП(КодАО)+"' AND...."); если строк. тип,иначе: Табл.Filter("reg_nom_vi="+Строка(КодАО)+" AND....");

(7) :)))) Неужели? тогда читай:"если тип реквизита строковый или другой"

Ясно спасибо большое, буду пробовать, целый день на 4 форумах никто и слова не сказал. ешё раз спасибо

(10) а в след раз,зайди MS Access и там....все-все есть и с примерами!
Ну дерзай :) да благо те будет! :))))

Упс.

Ошибка при вызове метода контекста (Filter): Неверное число параметров
               edit.Filter("reg_nom_vi"=5028 and "id_predpr"= поиск.ИмяПД and "id_ik"= поиск.ИмяИК and "id_zdan"=поиск.ИмяСчетчика);

У таблицы 4 ключевых поля:
NOM_REG_VI  число
id_predpr   число
id_ik       число
id_zdan     Счетчик

попробуй,для начала:
edit.Filter("reg_nom_vi=5028");

работает?

поле reg_nom_vi во внешней БД строковое?

edit=new COMobject("ADODB.RecordSet");    
   connectstring="Driver={Microsoft Access Driver (*.mdb)};Dbq="+"D:\Не фин капитал\5028_АО\nfin_АО5028.mdb" +";";
   edit.Open("zdania",connectstring,1,3);
   edit.Filter("reg_nom_vi"=5028 and "id_predpr"= поиск.ИмяПД and "id_ik"= поиск.ИмяИК and "id_zdan"=поиск.ИмяСчетчика);

//Вся картина

сейчас попробую

если строковое,тогда:
edit.Filter("reg_nom_vi='5028'");

обрати внимание на одинарную кавычку слева и справа!!!

{Форма.Форма(741)}: Преобразование значения к типу Булево не может быть выполнено
               edit.Filter("reg_nom_vi=5028" and "id_predpr=поиск.ИмяПД" and "id_ik= поиск.ИмяИК" and "id_zdan=поиск.ИмяСчетчика");

Начни с одного поля,
а в and "id_predpr=поиск.ИмяПД" and "id_ik= поиск.ИмяИК"  БРЕД!!
Буть внимательней! как это может быть? вот как надо,примерно:
"id_predpr="+поиск.ИмяПД+" AND "id_ik="+ поиск.ИмяИК);

ЕСЛИ ПОЛЯ в БД!!! СТРОКОВЫЕ не забудь одинарные кавычки после знака равенства и
после подстановки значения!
"id_predpr='"+поиск.ИмяПД+"' AND "id_ik='"+ поиск.ИмяИК+"'");

ну и про приведение к типу не забудь,если поля числовые,то приведи их к строковому значению!

А если попробовать через Seek:

М = Новый Массив;
М.Добавить(КодАО);
М.Добавить(КодПодр);
М.Добавить(КодИК);
М.Добавить(НомОб);
Табл.Seek(М,1);

Судя по: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/mdmthseek.asp

1) edit.Filter("reg_nom_vi="+строка(5028));
2) edit.Filter("reg_nom_vi=5028");
3) edit.Filter("reg_nom_vi="+строка(5028)+" and "+"id_predpr="+поиск.ИмяПД+" and "+"id_ik="+ поиск.ИмяИК+" and "+"id_zdan="+поиск.ИмяСчетчика);
   

Все реквизиты числовые

на все варианты один ответ "Ошибка при вызове метода контекста (Filter): Неверное число параметров"
Может дело в другом?

Ошибка при вызове метода контекста (Seek): Произошла исключительная ситуация (ADODB.Recordset): Текущий проводник не поддерживает необходимый интерфейс для функции Index.
edit.Seek(М,1);

Ошибка при установке значения атрибута контекста (Index): Произошла исключительная ситуация (ADODB.Recordset): Текущий проводник не поддерживает необходимый интерфейс для функции Index.
edit.Index = "PrimaryKey";
при Установке индекса ,  что за "Проводник"

попробуй строку инициализации св-ва Connect "DSN=<ODBC_NAME>;UID=<пользователь>;PWD=<пароль>;"
если пользователя и пароля нет,то "DSN=<ODBC_NAME>;UID=;PWD=;"

покажи код открытия коннекта к БД и код открытия таблицы и убери
edit.Index = "PrimaryKey"!

edit=new COMobject("ADODB.RecordSet");    
   connectstring="Driver={Microsoft Access Driver (*.mdb)};Dbq="+"D:\Не фин капитал\5028_АО\nfin_АО5028.mdb" +";";
   edit.Open("zdania",connectstring,1,3);

edit.Open("zdania",connectstring,1,3);

а что означают 3 и 4 параметр? (значения 1,3 взял из примера)


connection.Open ConnectionString, UserID, Password, Options

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/mdmthcnnexecute.asp

<ODBC_NAME>  - какое писать

Упс в (30) не то, вот что нужно:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/mdmthcnnexecute.asp

Index устанавливать не здесь а при открытии таблицы в свойстве CursorType,
например:
cur_name_table="SELECT * FROM <ИмяТаблицы>";
CursorType=adOpenDynamic; //или adOpenStatic или adOpenKeySet
LockType=adLockOptimistic;

cur_cnn=new COMobject("ADODB.Connection");
cur_rs=new COMobject("ADODB.Recordset");

cur_cnn.Open("DSN=<ODBC_NAME>;UID=;PWD=;");

cur_cnn.Open(cur_name_table, cur_cnn, CursorType, LockType);
//или cur_cnn.Open(cur_name_table, cur_cnn);

cur_rs.MoveLast
cur_rs.MoveFirst

cur_rs.Filter......

connectstring="Driver={Microsoft Access Driver (*.mdb)};DSN=ADODB;UID=;PWD=;Dbq="+"D:\Не фин капитал\5028_АО\nfin_АО5028.mdb" +";";

Если Filter, то:
Ошибка при вызове метода контекста (Filter): Неверное число параметров

Если Seek, то:
{Форма.Форма(587)}: Ошибка при вызове метода контекста (Seek): Произошла исключительная ситуация (ADODB.Recordset): Текущий проводник не поддерживает необходимый интерфейс для функции Index.
edit.Seek(М,1);

+33 пардон: после строки cur_cnn.Open,
след строку читать,как cur_rs

А точно поля проиндексированы?

А как это определить?, ну простите вы чайника

(33) а чему равны adOpenDynamic и adLockOptimistic?

CursorType и базы строковый параметр.

(33) а чему равны adOpenDynamic и adLockOptimistic?

CursorType у базы строковый параметр.

да не надо те думать о том:"какие поля проиндексированы?"

опусти их! попробуй: cur_rs.Open(cur_name_table, cur_cnn);

и не забудь после работы:
cur_rs.Close;
cur_cnn.Close;

connectstring="Driver={Microsoft Access Driver (*.mdb)};DSN=<ODBC_NAME>;UID=;PWD=;Dbq="+"D:\Не фин капитал\5028_АО\nfin_АО5028.mdb" +";";
cur_name_table="SELECT * FROM zdania";
cur_cnn=new COMobject("ADODB.Connection");
cur_rs=new COMobject("ADODB.Recordset");
cur_cnn.Open(connectstring);//   "DSN=<ODBC_NAME>;UID=;PWD=;"
cur_rs.Open("zdania", cur_cnn);
cur_rs.Filter("reg_nom_vi=5028");
   
Я правильно написал?

Ошибка при вызове метода контекста (Filter): Неверное число параметров
cur_rs.Filter("reg_nom_vi=5028");

DSN=<ODBC_NAME>;UID=;PWD=; я его вто место впихнул?

Хоть врубай перебором и оставляй наночь

сформируй ODBC_NAME: Панель управления,Администрирование,ODBC источники данных...задай новый источник:укажи его имя и выбери БД.mdb
connectstring="DSN=<ODBC_NAME>;UID=;PWD=;"

например ODBC_NAME ты задал mdb_source,тогда

connectstring="DSN=mdb_source;UID=;PWD=;"

cur_name_table="SELECT * FROM zdania";
cur_cnn=new COMobject("ADODB.Connection");

cur_rs=new COMobject("ADODB.Recordset");
cur_cnn.Open(connectstring);//   "DSN=<ODBC_NAME>;UID=;PWD=;"

cur_rs.Open(cur_name_table, cur_cnn); //<-----!!!!!!!!!!!!!!!!!!!!!!!!!!!!
cur_rs.Filter("reg_nom_vi=5028");

cur_rs.Close;
cur_cnn.Close;

Теже ошибки и с seek и с Filter, DSN привязал к моему файлику и пользовательский и системный

(48) перезагрузись

и на куа системный? достаточно было указать пользовательский DNS

cur_rs.Open(cur_name_table, cur_cnn);

у тебя так?

cur_name_table="SELECT * FROM zdania";
cur_cnn       =new COMobject("ADODB.Connection");
cur_rs        =new COMobject("ADODB.Recordset");
cur_cnn       .Open("DSN=new;UID=;PWD=;");
cur_rs        .Open(cur_name_table, cur_cnn);
cur_rs        .Filter("reg_nom_vi=5028");

Ладно Александр, пора домой вечером буду долбаться да и прощай воскресенье, что нибудь да придумаю, большое спасибо хоть буду знать в какой яме рыться.
Извини за надоедливость.

(53) да,ладно!
а вот точки,как понимать:
cur_cnn       .Open("DSN=new;UID=;PWD=;");
cur_rs        .Open(cur_name_table, cur_cnn);
cur_rs        .Filter("reg_nom_vi=5028");

Отфильтровать по ключам можно и посредством Where:
MyCon = Новый COMОбъект ("ADODB.Connection");
           MyCon.Open ("Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=D:\1c_common\Реальный_сектор\TEL_BASE2006.MDB");
           MyRst = Новый COMОбъект ("ADODB.Recordset");
           MyStr = "select * from zdania where NOM_REG_VI=1 and id_predpr=1 and id_ik=1 and id_zdan=1";
           MyRst.Open (MyStr, MyCon, 3, 1);
           MyStr = "select * from zdania where NOM_REG_VI=1 and id_predpr=1 and id_ik=1 and id_zdan=1";
           Пока НЕ MyRst.EOF Цикл
                   Сообщить(Строка(MyRst.Fields("NOM_REG_VI").Value) + "->" + Строка(MyRst.Fields("id_predpr").Value));    
                   MyRst.MoveNext();
           КонецЦикла;

Какой еще seek - SELECT в языке запросов SQL надо юзать...
Через ADO он рулит для всех источников данных (меняется только строка подключения).

Книга знаний: Пример работы с файлами DBF по интерфейсу ADO

(55) Да, вот именно!

(56) Парень бы не потянул. А ваще бывает нужда в seek и filter

Вся штучка в том что найти не проблема (с запросами у меня проблем нет) нужно потом изменить эту запись. Если есть способ аналогичный 1с8(получитьобъект()) в acceess подскажите.

Или нечто вроде: из найденной записи узнать её номер в таблице, а потом в отдельном объекте OLE, сказать нечто вроде "получить(Номстр)".

(59) тогда делай примерно так (только под 8.0 заточи чуток):


Функция ОтправитьДК(Connection) // возвращает список дат проводок
   Command = СоздатьОбъект("ADODB.Command");
   Command.ActiveConnection = Connection;
   
   
   Рег=СоздатьОбъект("Регистры");
   сп=СоздатьОбъект("Справочник.ДисконтныеКарты1");  
   сп.ВыбратьЭлементы();                        
   е1=0;
   Пока сп.ПолучитьЭлемент() = 1 Цикл  
       е1=е1+1;
   КонецЦикла;
   сп.ВыбратьЭлементы();                        
                                   
   е=0;
   Пока сп.ПолучитьЭлемент() = 1 Цикл  
       е=е+1;
       Состояние("Идет отправка ДК "  + глИндикатор(е,е1));                                                                                                                                  
       Код        = СокрЛП(сп.Код);
       Сумма    = Число(Рег.ДисконтныеКарты.Остаток(сп.ТекущийЭлемент(),"Сумма"));
       Процент    = Число(глПолучитьСкидкуПоДисконтнойКарте(0,сп.ТекущийЭлемент()));
       Если сп.СуммаОтправленная<>сумма Тогда
           Command.CommandType=1;  
           Command.CommandText="SELECT * FROM s_dk_ WHERE dk='"+ код + "'";
       
           Try
               Set=Command.Execute();
           Except
               Предупреждение(ОписаниеОшибки());
               Возврат -1;
           EndTry;  
       
           Если Set.EOF()<>-1 тогда
               Command.CommandText="UPDATE s_dk_ SET
               | dk='" + код + "',
               | price='" + Сумма + "',
               | pr='" + Процент + "'  
               | WHERE dk='"+ код + "'";
           Иначе
               Command.CommandText="INSERT s_dk_ (dk, price, pr) VALUES (
               | '" + код + "',
               | '" + сумма + "',
               | '" + Процент + "' ) ";
           КонецЕсли;  
           
           Try
               Set=Command.Execute();
               сп.СуммаОтправленная=сумма;
               сп.Записать();
           Except
               Предупреждение(ОписаниеОшибки());
               Возврат -1;
           EndTry;
       КонецЕсли;
       
   КонецЦикла;    
   

   Возврат 1;
КонецФункции

(59) что бы найти и обнавить запись лучше использовать command
с запросом типа Update table set tb1=1 where tb1=2
2. номер записи может зависить от сортировки или от  ее отсутсвия. если есть колонка номер записи то можно попробовать данные одного рекорсета присвоить новому и уже по новому фильтровать
MyRst = Новый COMОбъект ("ADODB.Recordset");
MyRst1 = Новый COMОбъект ("ADODB.Recordset");

после выборки по первому прописать

MyRst1=MyRst.Clone


MyRst1.Filter итд..

Изменять запись можно и через RecordSet, метод Update, поле Resultat:
           MyCon = Новый COMОбъект ("ADODB.Connection");
           MyCon.Open ("Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=D:\1c_common\Реальный_сектор\TEL_BASE2006.MDB");
           MyRst = Новый COMОбъект ("ADODB.Recordset");
           MyStr = "select * from zdania where NOM_REG_VI=1 and id_predpr=1 and id_ik=1 and id_zdan=1";
           MyRst.Open (MyStr, MyCon, 2, 3);//adOpenDynamic, adLockOptimistic
           Сообщить("До->"+Строка(MyRst.Fields("Resultat").Value));
           MyRst.Fields("Resultat").Value="Киргуду"; // Присвоение
           MyRst.Update(); //Запись
           Сообщить("После->"+Строка(MyRst.Fields("Resultat").Value));
           MyRst.Close();
           MyCon.Close();