Question Connect to SQL Server DB in pf file - without DSN

[Chris Hughes]

Hi

I have in the back of my mind that I once came across an example of a pf file making a connection to SQL Server DB without having to add the DSN in Windows.

Progress Dataserver license still needed.
SQL driver still needed.
Just no DSN.

And now I can't find an example of it.

If it matters this is OE 11.7.

Any pointers appreciated.

Thanks

Chris.

 

[sw2000s]

we use dns file like sample.dsn

hope can help.. and this topic me be related programing ..

TKS

[ODBC]
DRIVER=SQL Server
UID=XXXX
Network=DBMSSOCN
DATABASE=SAMPLE_DATABASE
WSID=(USERID)
APP=Microsoft Data Access Components
SERVER=SAPLIE_SERVER

4GL_SAMPLE_CODE

DEF INPUT PARAM CONNECT1 AS LOG.                                                                  
DEF OUTPUT PARAM  msg    AS CHAR.                                                                 
DEF SHARED VAR OBJRECORDSET  AS COM-HANDLE NO-UNDO.                                               
DEF SHARED VAR OBJCONNECTION AS COM-HANDLE NO-UNDO.                                               
DEF SHARED VAR OBJCOMMAND    AS COM-HANDLE NO-UNDO.                                               
DEF SHARED VAR ODBC-DSN      AS CHARACTER NO-UNDO.                                                
DEF SHARED VAR ODBC-SERVER   AS CHARACTER NO-UNDO.                                                
DEF SHARED VAR ODBC-USERID   AS CHARACTER NO-UNDO.                                                
DEF SHARED VAR ODBC-PASSWD   AS CHARACTER NO-UNDO.                                                
DEF SHARED VAR ODBC-QUERY    AS CHARACTER NO-UNDO.                                                
DEF SHARED VAR ODBC-STATUS   AS CHARACTER NO-UNDO.                                                
DEF SHARED VAR ODBC-RECCOUNT AS INTEGER   NO-UNDO.                                                
DEF SHARED VAR ODBC-NULL     AS CHARACTER NO-UNDO.                                                
DEF SHARED VAR ODBC-CURSOR   AS INTEGER   NO-UNDO.                                                
                                                                                                  
CASE connect1 :                                                                                   
WHEN YES THEN DO:                                                                                
  CREATE "ADODB.CONNECTION" OBJCONNECTION NO-ERROR.                                               
  CREATE "ADODB.RECORDSET"  OBJRECORDSET.                                                         
  CREATE "ADODB.Command"  OBJCOMMAND.                                                             
                                                                                                  
  ASSIGN ODBC-DSN = 'sample.dsn'.                                                                           
                                                                                                  
  ASSIGN
         ODBC-CURSOR = 0.                                                                         
  OBJCONNECTION:OPEN ( "FILEDSN=" + ODBC-DSN ,"ID","PASSWORD", 0 ) NO-ERROR.               
  If ( error-status:num-messages > 0 ) THEN     /* CHECK FOR CONNECTION ERRORS */                 
     ODBC-STATUS = "Error: Could not establish connection.".                                      
  ELSE ODBC-STATUS = "ok".                                                                        
  ASSIGN msg =  ODBC-STATUS.                                                                      
END.                                                                                             
                                                                                                  
WHEN NO THEN DO:  /* DON'T FORGET TO RELEASE THE MEMORY!! */                                     
  RELEASE OBJECT OBJCONNECTION NO-ERROR.                                                          
  RELEASE OBJECT OBJCOMMAND    NO-ERROR.                                                          
  RELEASE OBJECT OBJRECORDSET  NO-ERROR.                                                          
  ASSIGN OBJCONNECTION = ? OBJCOMMAND = ? OBJRECORDSET = ?.                                       
END.                                                                                             
END.

 

[Rob Fitzpatrick]

Please enclose code within [ code ] [/ code ] tags (remove the spaces within the square brackets).