MAVConnect функция

[Andrew™]

расширена на один - третий параметр

Код: Выделить всё

 MAVCONNECT(STRING Name,*CSTRING ConnectString,LONG DefaultLogon=1),LONG,NAME('MAV$CONNECT')

при неправильных параметрах соединения при DefaultLogon=1 выскакивает штатное логин окошко odbc драйвера

при DefaultLogon=0 - такое окошко не выскакивает

данная настройка появилась и в кодовом шаблоне соединения с сервером

[Денис]

Вызываю MAVCONNECT следующим образом:

Код: Выделить всё

GSD:ConnectString = 'SERVER='&CLIP(GSD:Server)&';DATABASE='&CLIP(GSD:Database)&';UID='&CLIP(GSD:User)&';PWD='&CLIP(GSD:Password)
  GSD:ConnectString = 'DRIVER={{SQL Server};' & GSD:ConnectString

  IF MAVCONNECT('MSSQL',GSD:ConnectString,1) THEN
   ....

так вот если в переменных с именем сервера, базы ... ничего нет то MAVCONNECT необрабатывает ошибку

Версия MAV mav_c63_9051_060413a[/code]

[Andrew™]

Вызываю MAVCONNECT следующим образом:

Код: Выделить всё

GSD:ConnectString = 'SERVER='&CLIP(GSD:Server)&';DATABASE='&CLIP(GSD:Database)&';UID='&CLIP(GSD:User)&';PWD='&CLIP(GSD:Password)
  GSD:ConnectString = 'DRIVER={{SQL Server};' & GSD:ConnectString

  IF MAVCONNECT('MSSQL',GSD:ConnectString,1) THEN
   ....

так вот если в переменных с именем сервера, базы ... ничего нет то MAVCONNECT необрабатывает ошибку

Версия MAV mav_c63_9051_060413a[/code]

проверю

[And234]

Во фреймовском окне приложения в ветке
local object>this window>init>code после restore from ini file

Код: Выделить всё

       glo_DataSource='DRIVER={{' & Clip(LDriver) & '};SERVER=' & Clip(LServer) & ';DATABASE=' & Clip(LBase) & ';UID=' & Clip(LUser) & ';PWD=' & Clip(LPassword)
      if  LDriver = '' or LServer='' or LBase='' or LUser='' then
          MESSAGE('Ia ii?aaaeaiu ia?aiao?u enoi?ieea aaiiuo','Editor',ICON:NONE,'&Ok',3,0)
          FlarTemp=EditSourceBase()
      end
      glo_DataSource='driver={{' & clip(LDriver) & '};Server=' & clip(LServer) & ';database=' & clip(LBase) & ';uid=' & clip(LUser) & ';pwd=' & clip(LPassword)
      IF MAVCONNECT('SQL Server',glo_DataSource) then
          Message('Ioeaea niaaeiaiey | Aaaaeoa ia?aiao?u niaaeiaiey eee ia?aoeoanu e ?ac?aaio?eeo')
          FlarTemp=EditSourceBase()
      ELSE
      END

А в обработке нажатия на кнопку тест соединения в окне EditSourceBase

Код: Выделить всё

 glo_DataSource='driver={{' & clip(LDriver) & '};Server=' & clip(LServer) & ';database=' & clip(LDatabase) & ';uid=' & clip(LUser) & ';pwd=' & clip(LPassword)
 !message(glo_DataSource)
 !MAVDISCONNECT()
 IF MAVCONNECT('SQL Server',glo_DataSource) then
     Message('Oano ia i?ieaai') ! Тест не успешен
 ELSE
     Message('Oano oniaoai') ! Тест успешен
 END

Совет выше по поводу третьего параметра в Функцию MAVCONNECT
не прокатывает
Clarion 5ee

в описании функций
!Установить соединение с сервером БД
MAVCONNECT(STRING Name,*CSTRING ConnectString),BYTE,NAME('MAV$CONNECT')
[in]Name - условное имя соединения
[in]ConnectString - строка соединения в формате ODBC
Возвращает =0 в случае успешного соединения и =1 в случае ошибки соединения
! Рассоединение с сервером БД
MAVDISCONNECT(<STRING>),NAME('MAV$DISCONNECT')

[DimOn]

Если Вы хотите подавить штатное окно соединения ODBC драйвера, то следует MAVCONNECT вызывать следующим образом:

Код: Выделить всё

IF MAVCONNECT('SQL Server',glo_DataSource,0) then
    ......
END

а если хотите чтобы окно соединения появлялось, то

Код: Выделить всё

IF MAVCONNECT('SQL Server',glo_DataSource) then
    ......
END

или

Код: Выделить всё

IF MAVCONNECT('SQL Server',glo_DataSource,1) then
    ......
END

[And234]

А где такой МАВ можно скачать.
Использованный мной говорит что у функции коннект только 2 входных параметра.
Скачена на странице Андрея Мялина (бесплатная версия)
Clarion 5ee

[DimOn]

Последняя ознакомительная версия библиотеки лежит в файловом архиве http://www.clarionlife.net/component/op ... ,/gid,396/

[Admin]

Господа ... не забывайте что бибилиотека платная...