scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed SQLDescribeCol (odbc-sql-describe-col)

This commit is contained in:
eknauel 2002-09-03 12:33:17 +00:00
parent 9772b62b54
commit a76fdbfe59
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scsh/odbc/odbc.c
View File

@ -2063,9 +2063,13 @@ s48_value struct_to_sql_timestamp_record(SQL_TIMESTAMP_STRUCT *ts)
void s48_init_odbc(void) void s48_init_odbc(void)
{ {
/* bindings for record types */
S48_GC_PROTECT_GLOBAL(odbc_diag_record_type); S48_GC_PROTECT_GLOBAL(odbc_diag_record_type);
odbc_diag_record_type = s48_get_imported_binding("odbc-diag"); odbc_diag_record_type = s48_get_imported_binding("odbc-diag");
S48_GC_PROTECT_GLOBAL(odbc_column_record_type);
odbc_column_record_type = s48_get_imported_binding("odbc-column");
/* PART 1 */ /* PART 1 */
S48_EXPORT_FUNCTION(odbc_alloc_environment_handle); S48_EXPORT_FUNCTION(odbc_alloc_environment_handle);
S48_EXPORT_FUNCTION(odbc_alloc_connection_handle); S48_EXPORT_FUNCTION(odbc_alloc_connection_handle);

2
scsh/odbc/odbc.h
View File

@ -317,7 +317,7 @@ s48_value struct_to_sql_time_record(SQL_TIME_STRUCT *ts);
/* convert Scheme sql-timestamp record to SQL_TIMESTAMP_STRUCT */ /* convert Scheme sql-timestamp record to SQL_TIMESTAMP_STRUCT */
void sql_timestamp_record_to_struct(s48_value sql_timestamp, void sql_timestamp_record_to_struct(s48_value sql_timestamp,
SQL_TIMESTAMP_STRUCT *ts); SQL_TIMESTAMP_STRUCT *ts);
void s48_init_odbc(void); void s48_init_odbc(void);