Skip to main content

Hi,

Can someone provide a link to Chris Glazier's video 'Database Access Using ODBC with Visual COBOL'.

I believe there are other videos in the same series, but I am not able to find them.

 

Thanks,

Luis

Hi,

Can someone provide a link to Chris Glazier's video 'Database Access Using ODBC with Visual COBOL'.

I believe there are other videos in the same series, but I am not able to find them.

 

Thanks,

Luis

what trouble do you have?

it is so easy to use this using ODBC-Driver

01  sql-connectstring     pic x(512).
01  datenbank               pic x(40).
01  run-flag                    pic 9(01).

*> this string must be a part of your defined odbc-drivers
move 'Driver=SQL Server;server=sql-ip-address;database=database-name;uid=username;pwd=userpassword;' to sql-connectstring

main section.
initialize sqlcode run-flag
perform sql-connect
if run-flag <> 0
   stop run
end-if
.

sql-connect section.
    EXEC SQL
       connect using :sql-connectstring as :datenbank
    END-EXEC
   if sqlcode <> 0
      move 1 to run-flag
   end-if
.

for more information send me a private message, thanks


Hi,

Can someone provide a link to Chris Glazier's video 'Database Access Using ODBC with Visual COBOL'.

I believe there are other videos in the same series, but I am not able to find them.

 

Thanks,

Luis

Hi Luis,

This YouTube playlist contains a link to the video you mentioned; it includes the videos Chris has created related to using Visual COBOL for Visual Studio.

Hope this helps,

Blair


Hi Luis,

This YouTube playlist contains a link to the video you mentioned; it includes the videos Chris has created related to using Visual COBOL for Visual Studio.

Hope this helps,

Blair

Thanks Blair.

This is perfect!


what trouble do you have?

it is so easy to use this using ODBC-Driver

01  sql-connectstring     pic x(512).
01  datenbank               pic x(40).
01  run-flag                    pic 9(01).

*> this string must be a part of your defined odbc-drivers
move 'Driver=SQL Server;server=sql-ip-address;database=database-name;uid=username;pwd=userpassword;' to sql-connectstring

main section.
initialize sqlcode run-flag
perform sql-connect
if run-flag <> 0
   stop run
end-if
.

sql-connect section.
    EXEC SQL
       connect using :sql-connectstring as :datenbank
    END-EXEC
   if sqlcode <> 0
      move 1 to run-flag
   end-if
.

for more information send me a private message, thanks

Hi Greiner,

I am at a very early stage in this project.

I guess you'll be hearing from me again as I get deeper.

Thanks for your help.