Changeset 70fd0e0 in tol

Timestamp:

Feb 15, 2011, 10:43:05 AM (16 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

978b431

Parents:

b7e6cec

Message:

more examples in order to find out what is happening with teradata

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@3197 be4846ae-f051-483a-831f-b64e7d08527f

Location:

tol/dbdrivers

Files:

• Jamfile (modified) (1 diff)
• libtolodbc.c (modified) (4 diffs)
• listDRV.c (added)
• listDSN.c (added)
• testOCnn.c (added)

tol/dbdrivers/Jamfile

@@ -42 +42 @@
         ;
 }
+
+exe listDSN : listDSN.c odbc : $(odbc_inc) ;
+exe testOCnn : testOCnn.c odbc : $(odbc_inc) ;
+
+explicit listDSN ;
+explicit testOCnn ;

tol/dbdrivers/libtolodbc.c

@@ -59 +59 @@
 #define MAX_TEXT_FIELD_LENGTH 2048
 
-//#define TRACE_DEEP 1
+#define TRACE_DEEP 1
 
 typedef struct odbcdx {
@@ -80 +80 @@
 static DBOutWriter stdOutWriter = 0;
 
+void extract_error(
+    char *fn,
+    SQLHANDLE handle,
+    SQLSMALLINT type)
+{
+    SQLINTEGER   i = 0;
+    SQLINTEGER   native;
+    SQLCHAR      state[ 7 ];
+    SQLCHAR      text[256];
+    SQLSMALLINT  len;
+    SQLRETURN    ret;
+
+    fprintf(stderr,
+            "\n"
+            "The driver reported the following diagnostics whilst running "
+            "%s\n\n",
+            fn);
+
+    do
+    {
+        ret = SQLGetDiagRec(type, handle, ++i, state, &native, text,
+                            sizeof(text), &len );
+        if (SQL_SUCCEEDED(ret))
+            printf("%s:%ld:%ld:%s\n", state, i, native, text);
+    }
+    while( ret == SQL_SUCCESS );
+}
+
+
 //-------------------------------------------------------------------
 void getDiagRec(odbcd *dbd, int diagType)
@@ -93 +122 @@
     handle = dbd->hstmt;
   } else if(diagType==GET_DIAG_DBC) {
+#ifdef TRACE_DEEP
+  printf( "Diagnostic for SQL_HANDLE_DBC" );
+#endif
     handleType = SQL_HANDLE_DBC;
     handle = dbd->hdbc;
   }
 
+#ifdef TRACE_DEEP
+  extract_error( "TRACE_DEEP", handle, handleType );
+#endif
   i = 1;
   while ((rc = SQLGetDiagRec(handleType, handle, i, SqlState, 
                              &NativeError, Msg, strlen((char*)Msg), 
                              &MsgLen)) != SQL_NO_DATA) 
-    {
+  {
       if(rc==SQL_SUCCESS) {
         char outmsg[SQL_MAX_MESSAGE_LENGTH + 50];
@@ -219 +254 @@
   printf( "1.2: SQLSetEnvAttr\n");
 #endif
+  //SQLSetEnvAttr(env, SQL_ATTR_ODBC_VERSION, (void *) SQL_OV_ODBC3, 0);
   status = SQLSetEnvAttr(dbd->henv, SQL_ATTR_ODBC_VERSION, 
-                         (long *)SQL_OV_ODBC2, 0);
+                         (void *)SQL_OV_ODBC3, 0);
   if(!checkSQLRet(status, dbd, __LINE__, NO_DIAG)) {
     closeODBC(dbd, 1); //"1" -> last step done: SQLAllocHandle SQLHENV