SQLRETURN
MNDBSetConnectAttr(ODBCDbc *dbc,
SQLINTEGER Attribute,
SQLPOINTER ValuePtr,
SQLINTEGER StringLength)
{
(void) StringLength; /* Stefan: unused!? */
switch (Attribute) {
case SQL_ATTR_AUTOCOMMIT: /* SQLUINTEGER */
switch ((SQLUINTEGER) (uintptr_t) ValuePtr) {
case SQL_AUTOCOMMIT_ON:
case SQL_AUTOCOMMIT_OFF:
dbc->sql_attr_autocommit = (SQLUINTEGER) (uintptr_t) ValuePtr;
#ifdef ODBCDEBUG
ODBCLOG("SQLSetConnectAttr set autocommit %s\n",
dbc->sql_attr_autocommit == SQL_AUTOCOMMIT_ON ? "on" : "off");
#endif
if (dbc->mid)
mapi_setAutocommit(dbc->mid, dbc->sql_attr_autocommit == SQL_AUTOCOMMIT_ON);
break;
default:
/* Invalid attribute value */
addDbcError(dbc, "HY024", NULL, 0);
return SQL_ERROR;
}
return SQL_SUCCESS;
case SQL_ATTR_CURRENT_CATALOG: /* SQLCHAR* */
fixODBCstring(ValuePtr, StringLength, SQLINTEGER,
addDbcError, dbc, return SQL_ERROR);
if (dbc->Connected) {
/* Driver does not support this functions */
addDbcError(dbc, "IM001", NULL, 0);
return SQL_ERROR;
}
if (dbc->dbname)
free(dbc->dbname);
dbc->dbname = dupODBCstring(ValuePtr, StringLength);
if (dbc->dbname == NULL) {
/* Memory allocation error */
addDbcError(dbc, "HY001", NULL, 0);
return SQL_ERROR;
}
break;
case SQL_ATTR_CONNECTION_TIMEOUT: /* SQLUINTEGER */
dbc->sql_attr_connection_timeout = (SQLUINTEGER) (uintptr_t) ValuePtr;
if (dbc->mid)
mapi_timeout(dbc->mid, dbc->sql_attr_connection_timeout * 1000);
break;
case SQL_ATTR_METADATA_ID: /* SQLUINTEGER */
switch ((SQLUINTEGER) (uintptr_t) ValuePtr) {
case SQL_TRUE:
case SQL_FALSE:
dbc->sql_attr_metadata_id = (SQLUINTEGER) (uintptr_t) ValuePtr;
#ifdef ODBCDEBUG
ODBCLOG("SQLSetConnectAttr set metadata_id %s\n",
dbc->sql_attr_metadata_id == SQL_TRUE ? "true" : "false");
#endif
break;
default:
/* Invalid attribute value */
addDbcError(dbc, "HY024", NULL, 0);
return SQL_ERROR;
}
return SQL_SUCCESS;
case SQL_ATTR_TXN_ISOLATION: /* SQLUINTEGER */
/* nothing to change, we only do the highest level */
break;
/* TODO: implement connection attribute behavior */
case SQL_ATTR_ACCESS_MODE: /* SQLUINTEGER */
#ifdef SQL_ATTR_ASYNC_DBC_EVENT
case SQL_ATTR_ASYNC_DBC_EVENT: /* SQLPOINTER */
#endif
#ifdef SQL_ATTR_ASYNC_DBC_FUNCTIONS_ENABLE
case SQL_ATTR_ASYNC_DBC_FUNCTIONS_ENABLE: /* SQLUINTEGER */
#endif
#ifdef SQL_ATTR_ASYNC_DBC_PCALLBACK
case SQL_ATTR_ASYNC_DBC_PCALLBACK: /* SQLPOINTER */
#endif
#ifdef SQL_ATTR_ASYNC_DBC_PCONTEXT
case SQL_ATTR_ASYNC_DBC_PCONTEXT: /* SQLPOINTER */
#endif
case SQL_ATTR_ASYNC_ENABLE: /* SQLULEN */
#ifdef SQL_ATTR_DBC_INFO_TOKEN
case SQL_ATTR_DBC_INFO_TOKEN: /* SQLPOINTER */
#endif
case SQL_ATTR_ENLIST_IN_DTC: /* SQLPOINTER */
case SQL_ATTR_LOGIN_TIMEOUT: /* SQLUINTEGER */
case SQL_ATTR_ODBC_CURSORS: /* SQLULEN */
case SQL_ATTR_PACKET_SIZE: /* SQLUINTEGER */
case SQL_ATTR_QUIET_MODE: /* HWND (SQLPOINTER) */
case SQL_ATTR_TRACE: /* SQLUINTEGER */
case SQL_ATTR_TRACEFILE: /* SQLCHAR* */
case SQL_ATTR_TRANSLATE_LIB: /* SQLCHAR* */
case SQL_ATTR_TRANSLATE_OPTION: /* SQLUINTEGER */
/* Optional feature not implemented */
addDbcError(dbc, "HYC00", NULL, 0);
return SQL_ERROR;
case SQL_ATTR_AUTO_IPD: /* SQLUINTEGER */
case SQL_ATTR_CONNECTION_DEAD: /* SQLUINTEGER */
/* read-only attribute */
default:
/* Invalid attribute/option identifier */
addDbcError(dbc, "HY092", NULL, 0);
break;
}
return SQL_SUCCESS;
}
SQLRETURN
MNDBSetDescField(ODBCDesc *desc,
SQLSMALLINT RecNumber,
SQLSMALLINT FieldIdentifier,
SQLPOINTER ValuePtr,
SQLINTEGER BufferLength)
{
ODBCDescRec *rec;
struct sql_types *tp;
if (isAD(desc))
tp = ODBC_c_types;
else
tp = ODBC_sql_types;
switch (FieldIdentifier) {
case SQL_DESC_ALLOC_TYPE: /* SQLSMALLINT */
/* Invalid descriptor field identifier */
addDescError(desc, "HY091", NULL, 0);
return SQL_ERROR;
case SQL_DESC_ARRAY_SIZE: /* SQLULEN */
if ((SQLULEN) (uintptr_t) ValuePtr == 0) {
/* Invalid attribute/option identifier */
addDescError(desc, "HY092", NULL, 0);
return SQL_ERROR;
}
if (isAD(desc)) {
/* limit size to protect against bugs */
if ((SQLULEN) (uintptr_t) ValuePtr > 10000) {
/* Driver does not support this function */
addDescError(desc, "IM001", NULL, 0);
return SQL_ERROR;
}
desc->sql_desc_array_size = (SQLULEN) (uintptr_t) ValuePtr;
}
return SQL_SUCCESS;
case SQL_DESC_ARRAY_STATUS_PTR: /* SQLUSMALLINT * */
desc->sql_desc_array_status_ptr = (SQLUSMALLINT *) ValuePtr;
return SQL_SUCCESS;
case SQL_DESC_BIND_OFFSET_PTR: /* SQLLEN * */
if (isAD(desc))
desc->sql_desc_bind_offset_ptr = (SQLLEN *) ValuePtr;
return SQL_SUCCESS;
case SQL_DESC_BIND_TYPE: /* SQLINTEGER */
if (isAD(desc))
desc->sql_desc_bind_type = (SQLINTEGER) (intptr_t) ValuePtr;
return SQL_SUCCESS;
case SQL_DESC_COUNT: /* SQLSMALLINT */
if (isIRD(desc)) {
/* Invalid descriptor field identifier */
addDescError(desc, "HY091", NULL, 0);
return SQL_ERROR;
}
setODBCDescRecCount(desc, (int) (SQLSMALLINT) (intptr_t) ValuePtr);
return SQL_SUCCESS;
case SQL_DESC_ROWS_PROCESSED_PTR: /* SQLULEN * */
if (desc->Stmt)
desc->sql_desc_rows_processed_ptr = (SQLULEN *) ValuePtr;
return SQL_SUCCESS;
}
if (RecNumber <= 0) {
/* Invalid descriptor index */
addDescError(desc, "07009", NULL, 0);
return SQL_ERROR;
}
if (RecNumber > desc->sql_desc_count)
return SQL_NO_DATA;
if (isIRD(desc)) {
/* the Implementation Row Descriptor is read-only */
/* Invalid descriptor field identifier */
addDescError(desc, "HY091", NULL, 0);
return SQL_ERROR;
}
rec = &desc->descRec[RecNumber];
/* break for read-only fields since the error is the same as
unknown FieldIdentifier */
switch (FieldIdentifier) {
case SQL_DESC_AUTO_UNIQUE_VALUE: /* SQLINTEGER */
case SQL_DESC_BASE_COLUMN_NAME: /* SQLCHAR * */
case SQL_DESC_BASE_TABLE_NAME: /* SQLCHAR * */
case SQL_DESC_CASE_SENSITIVE: /* SQLINTEGER */
case SQL_DESC_CATALOG_NAME: /* SQLCHAR * */
case SQL_DESC_DISPLAY_SIZE: /* SQLLEN */
case SQL_DESC_FIXED_PREC_SCALE: /* SQLSMALLINT */
case SQL_DESC_LABEL: /* SQLCHAR * */
case SQL_DESC_LITERAL_PREFIX: /* SQLCHAR * */
case SQL_DESC_LITERAL_SUFFIX: /* SQLCHAR * */
case SQL_DESC_LOCAL_TYPE_NAME: /* SQLCHAR * */
case SQL_DESC_NULLABLE: /* SQLSMALLINT */
case SQL_DESC_ROWVER: /* SQLSMALLINT */
case SQL_DESC_SCHEMA_NAME: /* SQLCHAR * */
case SQL_DESC_SEARCHABLE: /* SQLSMALLINT */
case SQL_DESC_TABLE_NAME: /* SQLCHAR * */
case SQL_DESC_TYPE_NAME: /* SQLCHAR * */
case SQL_DESC_UNSIGNED: /* SQLSMALLINT */
case SQL_DESC_UPDATABLE: /* SQLSMALLINT */
break; /* read-only or unused */
case SQL_DESC_CONCISE_TYPE: /* SQLSMALLINT */
while (tp->concise_type != 0) {
if ((intptr_t) tp->concise_type == (intptr_t) ValuePtr) {
rec->sql_desc_concise_type = tp->concise_type;
rec->sql_desc_type = tp->type;
rec->sql_desc_datetime_interval_code = tp->code;
if (tp->precision != UNAFFECTED)
rec->sql_desc_precision = tp->precision;
if (tp->datetime_interval_precision != UNAFFECTED)
rec->sql_desc_datetime_interval_precision = tp->datetime_interval_precision;
if (tp->length != UNAFFECTED)
rec->sql_desc_length = tp->length;
if (tp->scale != UNAFFECTED)
rec->sql_desc_scale = tp->scale;
rec->sql_desc_fixed_prec_scale = tp->fixed;
rec->sql_desc_num_prec_radix = tp->radix;
return SQL_SUCCESS;
}
tp++;
}
/* Invalid attribute/option identifier */
addDescError(desc, "HY092", NULL, 0);
return SQL_ERROR;
case SQL_DESC_DATA_PTR: /* SQLPOINTER */
/* TODO: consistency check */
rec->sql_desc_data_ptr = ValuePtr;
return SQL_SUCCESS;
case SQL_DESC_DATETIME_INTERVAL_CODE: /* SQLSMALLINT */
while (tp->concise_type != 0) {
if ((intptr_t) tp->code == (intptr_t) ValuePtr &&
tp->type == rec->sql_desc_type) {
rec->sql_desc_concise_type = tp->concise_type;
rec->sql_desc_type = tp->type;
rec->sql_desc_datetime_interval_code = tp->code;
if (tp->precision != UNAFFECTED)
rec->sql_desc_precision = tp->precision;
if (tp->datetime_interval_precision != UNAFFECTED)
rec->sql_desc_datetime_interval_precision = tp->datetime_interval_precision;
if (tp->length != UNAFFECTED)
rec->sql_desc_length = tp->length;
if (tp->scale != UNAFFECTED)
rec->sql_desc_scale = tp->scale;
rec->sql_desc_fixed_prec_scale = tp->fixed;
rec->sql_desc_num_prec_radix = tp->radix;
return SQL_SUCCESS;
}
tp++;
}
/* Inconsistent descriptor information */
addDescError(desc, "HY021", NULL, 0);
return SQL_ERROR;
case SQL_DESC_DATETIME_INTERVAL_PRECISION: /* SQLINTEGER */
rec->sql_desc_datetime_interval_precision = (SQLINTEGER) (intptr_t) ValuePtr;
return SQL_SUCCESS;
case SQL_DESC_INDICATOR_PTR: /* SQLLEN * */
if (isAD(desc))
rec->sql_desc_indicator_ptr = (SQLLEN *) ValuePtr;
return SQL_SUCCESS;
case SQL_DESC_LENGTH: /* SQLULEN */
rec->sql_desc_length = (SQLULEN) (uintptr_t) ValuePtr;
return SQL_SUCCESS;
case SQL_DESC_NAME: /* SQLCHAR * */
if (isID(desc)) {
fixODBCstring(ValuePtr, BufferLength, SQLINTEGER,
addDescError, desc, return SQL_ERROR);
if (rec->sql_desc_name != NULL)
free(rec->sql_desc_name);
rec->sql_desc_name = (SQLCHAR *) dupODBCstring((SQLCHAR *) ValuePtr, (size_t) BufferLength);
if (rec->sql_desc_name == NULL) {
/* Memory allocation error */
addDescError(desc, "HY001", NULL, 0);
return SQL_ERROR;
}
rec->sql_desc_unnamed = *rec->sql_desc_name ? SQL_NAMED : SQL_UNNAMED;
}
return SQL_SUCCESS;
case SQL_DESC_NUM_PREC_RADIX:
rec->sql_desc_num_prec_radix = (SQLINTEGER) (intptr_t) ValuePtr;
return SQL_SUCCESS;
case SQL_DESC_OCTET_LENGTH: /* SQLLEN */
rec->sql_desc_octet_length = (SQLLEN) (intptr_t) ValuePtr;
return SQL_SUCCESS;
case SQL_DESC_OCTET_LENGTH_PTR: /* SQLLEN * */
if (isAD(desc))
rec->sql_desc_octet_length_ptr = (SQLLEN *) ValuePtr;
return SQL_SUCCESS;
case SQL_DESC_PARAMETER_TYPE: /* SQLSMALLINT */
switch ((SQLSMALLINT) (intptr_t) ValuePtr) {
case SQL_PARAM_INPUT:
break;
case SQL_PARAM_INPUT_OUTPUT:
case SQL_PARAM_OUTPUT:
/* Driver does not support this function */
addDescError(desc, "IM001", NULL, 0);
return SQL_ERROR;
default:
/* Invalid attribute/option identifier */
addDescError(desc, "HY092", NULL, 0);
return SQL_ERROR;
}
if (isIPD(desc))
rec->sql_desc_parameter_type = (SQLSMALLINT) (intptr_t) ValuePtr;
return SQL_SUCCESS;
case SQL_DESC_PRECISION: /* SQLSMALLINT */
rec->sql_desc_precision = (SQLSMALLINT) (intptr_t) ValuePtr;
return SQL_SUCCESS;
case SQL_DESC_SCALE: /* SQLSMALLINT */
rec->sql_desc_scale = (SQLSMALLINT) (intptr_t) ValuePtr;
return SQL_SUCCESS;
case SQL_DESC_TYPE: /* SQLSMALLINT */
while (tp->concise_type != 0) {
if ((SQLSMALLINT) (intptr_t) ValuePtr == tp->type &&
(((SQLSMALLINT) (intptr_t) ValuePtr != SQL_DATETIME &&
(SQLSMALLINT) (intptr_t) ValuePtr != SQL_INTERVAL) ||
tp->code == rec->sql_desc_datetime_interval_code)) {
rec->sql_desc_concise_type = tp->concise_type;
rec->sql_desc_type = tp->type;
rec->sql_desc_datetime_interval_code = tp->code;
if (tp->precision != UNAFFECTED)
rec->sql_desc_precision = tp->precision;
if (tp->datetime_interval_precision != UNAFFECTED)
rec->sql_desc_datetime_interval_precision = tp->datetime_interval_precision;
if (tp->length != UNAFFECTED)
rec->sql_desc_length = tp->length;
if (tp->scale != UNAFFECTED)
rec->sql_desc_scale = tp->scale;
rec->sql_desc_fixed_prec_scale = tp->fixed;
rec->sql_desc_num_prec_radix = tp->radix;
return SQL_SUCCESS;
}
tp++;
}
/* Inconsistent descriptor information */
addDescError(desc, "HY021", NULL, 0);
return SQL_ERROR;
case SQL_DESC_UNNAMED: /* SQLSMALLINT */
if ((SQLSMALLINT) (intptr_t) ValuePtr == SQL_NAMED) {
/* Invalid descriptor field identifier */
addDescError(desc, "HY091", NULL, 0);
return SQL_ERROR;
} else if ((SQLSMALLINT) (intptr_t) ValuePtr == SQL_UNNAMED && isIPD(desc)) {
rec->sql_desc_unnamed = SQL_UNNAMED;
if (rec->sql_desc_name)
free(rec->sql_desc_name);
rec->sql_desc_name = NULL;
return SQL_SUCCESS;
}
/* Inconsistent descriptor information */
addDescError(desc, "HY021", NULL, 0);
return SQL_ERROR;
}
/* Invalid descriptor field identifier */
addDescError(desc, "HY091", NULL, 0);
return SQL_ERROR;
}
