29.07.2008, 16:19 | #1 |
Участник
|
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); |
|