AXForum  
Вернуться   AXForum > Microsoft Dynamics NAV > NAV: Функционал
All
Забыли пароль?
Зарегистрироваться Правила Справка Пользователи Сообщения за день Поиск

 
 
Опции темы Поиск в этой теме Опции просмотра
Старый 29.07.2008, 16:19   #1  
Nur1an is offline
Nur1an
Участник
 
9 / 10 (1) +
Регистрация: 25.10.2007
ADOConn Automation 'Microsoft ActiveX Data Objects 2.7 Library'.Connection
ADOrs Automation 'Microsoft ActiveX Data Objects 2.7 Library'.Recordset
ConnStr Text 200
AnzCount Text 30
OpenMethod Integer
LockMethod Integer
Name Text 200
Str Text 200

// Test ODBC-Connector
OpenMethod := 2; // 1=adOpenKeyset; 2=adOpenDynamic; 3= adOpenStatic
LockMethod := 3; // 1=dLockreadonly; 2=adLockPessimistic; 3=adLockOptimistic; 4=adLockBatchOptimistic
CREATE(ADOConn);
ConnStr := 'DSN=Navision;UID=Nurlan;PWD=*****;';
ADOConn.Open(ConnStr);

IF ADOConn.State = 1 THEN
MESSAGE('Welcome to Pubs!')
ELSE
MESSAGE('Sorry. No Pubs today.');



CREATE(ADOrs);

ADOrs := ADOConn.Execute('SELECT * FROM Клиент');

ADOrs.MoveFirst;
Name := ADOrs.Fields.Item('Название').Value;
Str := ADOrs.Fields.Item('Адрес').Value;

MESSAGE('Name %1 - Street %2', Name, Str);

ADOrs.MoveNext;
Name := ADOrs.Fields.Item('Название').Value;
Str := ADOrs.Fields.Item('Адрес').Value;

MESSAGE('Name %1 - Strasse %2', Name, Str);

// Update current data

ADOrs.Update('Название','ЮНИАРТ'); //<<<<<<<<<<<<<<<<<<< ВОТ ЭТА СТРОЧКА НЕ ВЫПОЛНЯЕТСЯ ! ! !

ADOrs.Close;
ADOConn.Close;
CLEAR(ADOrs);
CLEAR(ADOConn);
 


Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход

Рейтинг@Mail.ru
Часовой пояс GMT +3, время: 23:54.