Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Informix Новый топик    Ответить
 ODBC и пустые названия колонок  [new]
ga
Member

Откуда: из шварц шильда
Сообщений: 54
У меня есть старая программа. Работает на BDE (Borland Db Engine) используя "native Informix driver". Теперь же хочу, что бы работала через ODBC. Настроил подключение. Всё работает. Но до тех пор пока не происходит вызов хранимой процедуры. А дело всё в том, что возвращаемые процедурой колонки не имеют имён. Сделал трассировку. По ней видно, что виной всему функция SQLDescribeCol из интерфейса ODBC, которая возвращает пустое название колонки если не задан псевдоним для выражения.

......   114-fdc	ENTER SQLDescribeCol 
		HSTMT               037DB530
		UWORD                        1 
		UCHAR *             0x0205101E 
		SWORD                       32 
		SWORD *             0x0012F822
		SWORD *             0x0012F7DA
		SQLULEN *           0x0012F7D4
		SWORD *             0x02051044
		SWORD *             0x0012F820

......   114-fdc	EXIT  SQLDescribeCol  with return code 0 (SQL_SUCCESS)
		HSTMT               037DB530
		UWORD                        1 
		UCHAR *             0x0205101E        <---- Вот суда кладётся пусто
		SWORD                       32 
		SWORD *             0x0012F822 (0)
		SWORD *             0x0012F7DA (4)
		SQLULEN *           0x0012F7D4 (10)
		SWORD *             0x02051044 (0)
		SWORD *             0x0012F820 (1)


Вот здесь нашел, что раньше вроде, как можно было воспользоваться опцией WorkArounds=64 и тогда драйвер придумает название для пустых колонок. Но с моим драйвером ODBC v 3.50 TC7DE это не работает.

Вопрос: как заставить ODBC драйвер давать имена пустым колонкам ?

Informix v11
13 апр 17, 11:17    [20397556]     Ответить | Цитировать Сообщить модератору
 Re: ODBC и пустые названия колонок  [new]
bk0010
Member

Откуда:
Сообщений: 3401
По номеру (Fields[0].asInteger) не хотите обращаться?
13 апр 17, 22:50    [20400716]     Ответить | Цитировать Сообщить модератору
 Re: ODBC и пустые названия колонок  [new]
ga
Member

Откуда: из шварц шильда
Сообщений: 54
По номеру похоже не получится. Программа уже скомпиленная, а исходников у меня нет.
Покопавшись в exe-шнике редактором ресурсов выяснил, что в коде примерно так написано:
dbEdit.DataField := "(expression)_1";

И как я понял компонент этот только по названию может к полю обращаться. По номеру он не умеет.

Попробовать хочу в драйвере функцию SQLDescribeCol переписать. Обернуть ODBC dll-ку из CSDK своей. И всё, что в исходной экспортировать на прямую, а SQLDescribeCol переопределить.
14 апр 17, 19:47    [20403319]     Ответить | Цитировать Сообщить модератору
 Re: ODBC и пустые названия колонок  [new]
ga
Member

Откуда: из шварц шильда
Сообщений: 54
В общем то способ обернуть dll c ODBC драйвером в другую dll и переписать в ней часть функции сработал. А в Informix CSDK есть всё, что для этого нужно:
  • Заголовочные файлы (INFORMIXDIR/lib)
  • Библиотеки импорта (INFORMIXDIR/incl)
    DEF файл. Можно сделать с помощью утилиты DUMPBIN из состава VS

    код получился примерно такой:
    #include "stdafx.h"
    #include "sqltypes.h"
    #include <string>
    
    extern "C" {
    
    
    	__declspec(dllexport) SQLRETURN SQL_API SQLDescribeColW
    	(
    		SQLHSTMT            hstmt,
    		SQLUSMALLINT        icol,
    		_Out_writes_opt_(cchColNameMax) SQLWCHAR* szColName,
    		SQLSMALLINT         cchColNameMax,
    		_Out_opt_
    		SQLSMALLINT*        pcchColName,
    		_Out_opt_
    		SQLSMALLINT*        pfSqlType,
    		_Out_opt_
    		SQLULEN*            pcbColDef,
    		_Out_opt_
    		SQLSMALLINT*        pibScale,
    		_Out_opt_
    		SQLSMALLINT*        pfNullable
    	){
    
    		HMODULE ICLIT09BDLL = GetModuleHandle(L"ICLIT09B.DLL");
    
    		if (NULL != ICLIT09BDLL) {
    
    			SQLRETURN (__stdcall *SQLDescribeColWOld)
    			(
    				SQLHSTMT,
    				SQLUSMALLINT,
    				_Out_writes_opt_(cchColNameMax) SQLWCHAR*,
    				SQLSMALLINT,
    				_Out_opt_
    				SQLSMALLINT*,
    				_Out_opt_
    				SQLSMALLINT*,
    				_Out_opt_
    				SQLULEN*,
    				_Out_opt_
    				SQLSMALLINT*,
    				_Out_opt_
    				SQLSMALLINT*
    			) = (SQLRETURN(__stdcall*)
    				(
    					SQLHSTMT,
    					SQLUSMALLINT,
    					_Out_writes_opt_(cchColNameMax) SQLWCHAR*,
    					SQLSMALLINT,
    					_Out_opt_
    					SQLSMALLINT*,
    					_Out_opt_
    					SQLSMALLINT*,
    					_Out_opt_
    					SQLULEN*,
    					_Out_opt_
    					SQLSMALLINT*,
    					_Out_opt_
    					SQLSMALLINT*
    					)) GetProcAddress(ICLIT09BDLL, "SQLDescribeColW");
    
    
    			SQLRETURN res =
    				
    				SQLDescribeColWOld(
    						hstmt,
    						icol,
    						szColName,
    						cchColNameMax,
    						pcchColName,
    						pfSqlType,
    						pcbColDef,
    						pibScale,
    						pfNullable);
    
    
    //После исполнения исходной функции, обрабатываем входные переменные
    
    			return res;
    		}
    	}
    }
    
  • 17 май 17, 16:31    [20490463]     Ответить | Цитировать Сообщить модератору
    Все форумы / Informix Ответить