Страница 1 из 1
MAVConnect функция
Добавлено: 07 Март 2006, 11:08
Andrew™
расширена на один - третий параметр
Код: Выделить всё
MAVCONNECT(STRING Name,*CSTRING ConnectString,LONG DefaultLogon=1),LONG,NAME('MAV$CONNECT')
при неправильных параметрах соединения при DefaultLogon=1 выскакивает штатное логин окошко odbc драйвера
при DefaultLogon=0 - такое окошко не выскакивает
данная настройка появилась и в кодовом шаблоне соединения с сервером
Добавлено: 21 Апрель 2006, 3:58
Денис
Вызываю 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]
Добавлено: 21 Апрель 2006, 8:18
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]
проверю
Кусок кода
Добавлено: 25 Август 2006, 8:37
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')
Добавлено: 25 Август 2006, 9:20
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
Добавлено: 25 Август 2006, 9:32
And234
А где такой МАВ можно скачать.
Использованный мной говорит что у функции коннект только 2 входных параметра.
Скачена на странице Андрея Мялина (бесплатная версия)
Clarion 5ee
Добавлено: 25 Август 2006, 10:02
DimOn
Последняя
ознакомительная версия библиотеки лежит в файловом архиве
http://www.clarionlife.net/component/op ... ,/gid,396/
Добавлено: 25 Август 2006, 11:55
Admin
Господа ... не забывайте что бибилиотека платная...
