I just tested this here and it worked fine for me and the connect returned sqlcode=0.

Did you use the ODBC Administrator 32-bit to create your DSN?

All I did was start the ODBC Administrator 32-bit:

Go to System DSN tab

Click Add

Select the Microsoft Access Driver (*.mdb) driver

Click Finish

Specify name as Library

click Select button and navigate to C:\\COBOLClass\\DataFiles and select Library.mdb

Click OK

That was it.

I followed the instructions above and it appears to have worked. However, when I run the SimpleAccess.cbl pgm again I get error SQL Error = IM001 -0000019703

Could not make connection.  

Open up the OpenESQL Assistant from under either the Tools-->Micro Focus menu or the View-->Micro Focus SQL tools menu, depending on the VC version you are using. Does your Library DSN show up in the list of available DSNs? If you click it can you see the two tables defined?

Only the name Library shows up not Library.mdb.  When I click on it  it goes to the select data source screen and Library shows up there, too,with a description of Patron/ Book DB that I think is correct. But they are not defined. When I use MDB viewer it shows both Patron and Book  as separate entities, though.

Only the name Library shows up not Library.mdb.  When I click on it  it goes to the select data source screen and Library shows up there, too,with a description of Patron/ Book DB that I think is correct. But they are not defined. When I use MDB viewer it shows both Patron and Book  as separate entities, though.

The DSN name is Library so that is what should show up in the list. Library.mdb is the database file that it should point to. If it is prompting for a data source then the Library.mdb file is not set correctly. When it prompts for the data source can you browse to Library.mdb and select it?

Using the openesql asst I now show book and patron underneath Library, but when I do a query on book and go to results tab it doesn't come out with anything. I don't see a submit button.

Sorry I found the run query button and it comes back with requested fields. However, when I try to run the program simpleaccessagain it comes back with cannot make connection.

From the OpenESQL Assistant with the query open please use the Auxiliary Code tab select Connect statement and copy and paste this into your program as a replacement of the connect statement that is already there. Do you still get the error?

I still get the same error, but i noticed something,the connect sql statement has the connect word in green and the to word is in blue as are other sql statement words, perform, exec sql, cursor,etc. Also, in the statement EXEC SQL INCLUDE SQLCA END-EXEC.include is in green exec sql is in blue. Can it be that these words are not being recognized?

I still get the same error, but i noticed something,the connect sql statement has the connect word in green and the to word is in blue as are other sql statement words, perform, exec sql, cursor,etc. Also, in the statement EXEC SQL INCLUDE SQLCA END-EXEC.include is in green exec sql is in blue. Can it be that these words are not being recognized?

What is the actual error message that is returned in the MFSQLMESSAGETEXT variable after the connect?

The coloring you describe is correct. COBOL reserved words are displayed in blue and non-reserved words like CONNECT are displayed in green.

If the words were not recognized you would get a compiler error and not a run-time error like you are experiencing.

Are you using Visual COBOL PE V2.3?

i get the error - Could not make connection.

i am using VC PE v2.3

I get MFSQLMESSAGETEX = Could not make connection.

I tested this with VC2.3 PE and it also worked for me. Since the OpenESQL Assistant can connect using this DSN it makes no sense that you cannot connect using the application.

I would like you to turn on ODBC tracing to see if it will give us any additional info.

From the SQL tab on the properties page please add the directive ODBCTRACE and set the option to always and then run it again.

This should generate the file MFSQLTRACE.LOG in the current directory.

Can you attach this to the post or copy and paste its contents?

Is there a way to get this to you in a formatted form?

SQLProject      3e58-3cd4 ENTER SQLAllocEnv

HENV *              0x0073FCD8

SQLProject      3e58-3cd4 EXIT  SQLAllocEnv  with return code 0 (SQL_SUCCESS)

HENV *              0x0073FCD8 ( 0x00F07C90)

SQLProject      3e58-3cd4 ENTER SQLAllocConnect

HENV                0x00F07C90

HDBC *              0x0072B12C

SQLProject      3e58-3cd4 EXIT  SQLAllocConnect  with return code 0 (SQL_SUCCESS)

HENV                0x00F07C90

HDBC *              0x0072B12C ( 0x00F07D10)

SQLProject      3e58-3cd4 ENTER SQLDataSourcesW

HENV                0x00F07C90

UWORD                        2 <SQL_FETCH_FIRST>

WCHAR *             0x00F004C0

SWORD                       32

SWORD *             0x0072B10C

WCHAR *             0x00F08058

SWORD                      256

SWORD *             0x0072B108

SQLProject      3e58-3cd4 EXIT  SQLDataSourcesW  with return code 0 (SQL_SUCCESS)

HENV                0x00F07C90

UWORD                        2 <SQL_FETCH_FIRST>

WCHAR *             0x00F004C0 [      18] "MS Access Database"

SWORD                       32

SWORD *             0x0072B10C (18)

WCHAR *             0x00F08058 [      40] "Microsoft Access Driver (*.mdb, *.accdb)"

SWORD                      256

SWORD *             0x0072B108 (40)

SQLProject      3e58-3cd4 ENTER SQLDataSourcesW

HENV                0x00F07C90

UWORD                        1 <SQL_FETCH_NEXT>

WCHAR *             0x00F004C0

SWORD                       32

SWORD *             0x0072B10C

WCHAR *             0x00F08058

SWORD                      256

SWORD *             0x0072B108

SQLProject      3e58-3cd4 EXIT  SQLDataSourcesW  with return code 0 (SQL_SUCCESS)

HENV                0x00F07C90

UWORD                        1 <SQL_FETCH_NEXT>

WCHAR *             0x00F004C0 [       8] "Library "

SWORD                       32

SWORD *             0x0072B10C (8)

WCHAR *             0x00F08058 [      31] "Microsoft Access Driver (*.mdb)"

SWORD                      256

SWORD *             0x0072B108 (31)

SQLProject      3e58-3cd4 ENTER SQLDataSourcesW

HENV                0x00F07C90

UWORD                        1 <SQL_FETCH_NEXT>

WCHAR *             0x00F004C0

SWORD                       32

SWORD *             0x0072B10C

WCHAR *             0x00F08058

SWORD                      256

SWORD *             0x0072B108

SQLProject      3e58-3cd4 EXIT  SQLDataSourcesW  with return code 0 (SQL_SUCCESS)

HENV                0x00F07C90

UWORD                        1 <SQL_FETCH_NEXT>

WCHAR *             0x00F004C0 [       7] "Library"

SWORD                       32

SWORD *             0x0072B10C (7)

WCHAR *             0x00F08058 [      31] "Microsoft Access Driver (*.mdb)"

SWORD                      256

SWORD *             0x0072B108 (31)

SQLProject      3e58-3cd4 ENTER SQLSetConnectOption

HDBC                0x00F07D10

SQLINTEGER                 110 <SQL_ODBC_CURSORS>

SQLPOINTER                 0 <SQL_CUR_USE_IF_NEEDED>

SQLProject      3e58-3cd4 EXIT  SQLSetConnectOption  with return code 0 (SQL_SUCCESS)

HDBC                0x00F07D10

SQLINTEGER                 110 <SQL_ODBC_CURSORS>

SQLPOINTER                 0 <SQL_CUR_USE_IF_NEEDED>

SQLProject      3e58-3cd4 ENTER SQLDriverConnectW

HDBC                0x00F07D10

HWND                0x00010010

WCHAR *             0x56FC2220 [      -3] "******\\ 0"

SWORD                       -3

WCHAR *             0x56FC2220

SWORD                       -3

SWORD *             0x00000000

UWORD                        0 <SQL_DRIVER_NOPROMPT>

SQLProject      3e58-3cd4 EXIT  SQLDriverConnectW  with return code 100 (SQL_NO_DATA_FOUND)

HDBC                0x00F07D10

HWND                0x00010010

WCHAR *             0x56FC2220 [      -3] "******\\ 0"

SWORD                       -3

WCHAR *             0x56FC2220

SWORD                       -3

SWORD *             0x00000000

UWORD                        0 <SQL_DRIVER_NOPROMPT>

SQLProject      3e58-3cd4 ENTER SQLFreeConnect

HDBC                0x00F07D10

SQLProject      3e58-3cd4 EXIT  SQLFreeConnect  with return code 0 (SQL_SUCCESS)

HDBC                0x00F07D10

Is there a way to get this to you in a formatted form?

SQLProject      3e58-3cd4 ENTER SQLAllocEnv

HENV *              0x0073FCD8

SQLProject      3e58-3cd4 EXIT  SQLAllocEnv  with return code 0 (SQL_SUCCESS)

HENV *              0x0073FCD8 ( 0x00F07C90)

SQLProject      3e58-3cd4 ENTER SQLAllocConnect

HENV                0x00F07C90

HDBC *              0x0072B12C

SQLProject      3e58-3cd4 EXIT  SQLAllocConnect  with return code 0 (SQL_SUCCESS)

HENV                0x00F07C90

HDBC *              0x0072B12C ( 0x00F07D10)

SQLProject      3e58-3cd4 ENTER SQLDataSourcesW

HENV                0x00F07C90

UWORD                        2 <SQL_FETCH_FIRST>

WCHAR *             0x00F004C0

SWORD                       32

SWORD *             0x0072B10C

WCHAR *             0x00F08058

SWORD                      256

SWORD *             0x0072B108

SQLProject      3e58-3cd4 EXIT  SQLDataSourcesW  with return code 0 (SQL_SUCCESS)

HENV                0x00F07C90

UWORD                        2 <SQL_FETCH_FIRST>

WCHAR *             0x00F004C0 [      18] "MS Access Database"

SWORD                       32

SWORD *             0x0072B10C (18)

WCHAR *             0x00F08058 [      40] "Microsoft Access Driver (*.mdb, *.accdb)"

SWORD                      256

SWORD *             0x0072B108 (40)

SQLProject      3e58-3cd4 ENTER SQLDataSourcesW

HENV                0x00F07C90

UWORD                        1 <SQL_FETCH_NEXT>

WCHAR *             0x00F004C0

SWORD                       32

SWORD *             0x0072B10C

WCHAR *             0x00F08058

SWORD                      256

SWORD *             0x0072B108

SQLProject      3e58-3cd4 EXIT  SQLDataSourcesW  with return code 0 (SQL_SUCCESS)

HENV                0x00F07C90

UWORD                        1 <SQL_FETCH_NEXT>

WCHAR *             0x00F004C0 [       8] "Library "

SWORD                       32

SWORD *             0x0072B10C (8)

WCHAR *             0x00F08058 [      31] "Microsoft Access Driver (*.mdb)"

SWORD                      256

SWORD *             0x0072B108 (31)

SQLProject      3e58-3cd4 ENTER SQLDataSourcesW

HENV                0x00F07C90

UWORD                        1 <SQL_FETCH_NEXT>

WCHAR *             0x00F004C0

SWORD                       32

SWORD *             0x0072B10C

WCHAR *             0x00F08058

SWORD                      256

SWORD *             0x0072B108

SQLProject      3e58-3cd4 EXIT  SQLDataSourcesW  with return code 0 (SQL_SUCCESS)

HENV                0x00F07C90

UWORD                        1 <SQL_FETCH_NEXT>

WCHAR *             0x00F004C0 [       7] "Library"

SWORD                       32

SWORD *             0x0072B10C (7)

WCHAR *             0x00F08058 [      31] "Microsoft Access Driver (*.mdb)"

SWORD                      256

SWORD *             0x0072B108 (31)

SQLProject      3e58-3cd4 ENTER SQLSetConnectOption

HDBC                0x00F07D10

SQLINTEGER                 110 <SQL_ODBC_CURSORS>

SQLPOINTER                 0 <SQL_CUR_USE_IF_NEEDED>

SQLProject      3e58-3cd4 EXIT  SQLSetConnectOption  with return code 0 (SQL_SUCCESS)

HDBC                0x00F07D10

SQLINTEGER                 110 <SQL_ODBC_CURSORS>

SQLPOINTER                 0 <SQL_CUR_USE_IF_NEEDED>

SQLProject      3e58-3cd4 ENTER SQLDriverConnectW

HDBC                0x00F07D10

HWND                0x00010010

WCHAR *             0x56FC2220 [      -3] "******\\ 0"

SWORD                       -3

WCHAR *             0x56FC2220

SWORD                       -3

SWORD *             0x00000000

UWORD                        0 <SQL_DRIVER_NOPROMPT>

SQLProject      3e58-3cd4 EXIT  SQLDriverConnectW  with return code 100 (SQL_NO_DATA_FOUND)

HDBC                0x00F07D10

HWND                0x00010010

WCHAR *             0x56FC2220 [      -3] "******\\ 0"

SWORD                       -3

WCHAR *             0x56FC2220

SWORD                       -3

SWORD *             0x00000000

UWORD                        0 <SQL_DRIVER_NOPROMPT>

SQLProject      3e58-3cd4 ENTER SQLFreeConnect

HDBC                0x00F07D10

SQLProject      3e58-3cd4 EXIT  SQLFreeConnect  with return code 0 (SQL_SUCCESS)

HDBC                0x00F07D10

This format is fine.

I see in the trace file that it is finding a DSN name of "Library " where there is a space after "Library". I am not sure if this is causing the problem or not.

Can you please create a new DSN again using the same Library.mdb file but use a completely different name like "Libconn" and then change the CONNECT in the program to use "Libconn as well?

Thanks.

Chris,

This solution worked! I am now getting output from the program. Thanks for your help,I appreciate it. Another one solved - John

Chris,

Problem Solved! The above solution worked. I am now getting output from the program.  Your help is appreciated!

Thanks - John