#6839
Support 1a
Participant

Mike,

We generally do all our database access in Formativ using Microsoft’s ADO. While I haven’t personally called a stored procedure, I can’t imaging why it couldn’t be done. If you are not familiar with ADO do a search on Microsoft’s web site for the appropriate reference material.

Here’s some example applet code that creates a ADO session and executes some SQL. This example accesses an Access database, but you only need to change the connection string in order to connect to any SQL database supported by ADO:

sub UpdateAcceptedSupportIssue(iMsg, iEvent, iEngineer)

  dim iADOObj
  dim iRST 
  
  ' create a new instance of an ADO Connection object 
  set iADOObj = CreateObject("ADODB.Connection")
  
  ' Did we get a handle to the ADO connection  
  if not isobject(iADOObj) then
    call msgbox("Failed to create ADODB.Connection object.", vbCritical, "Support Example")
  else
  
    ' open the test data source with the Connection object  
    iConnnectString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & SUPPORT_DATABASE  
    iADOObj.Open iConnnectString
      
    ' Are we connected to the database?
    if err.number = 0 then
      
      ' Connected to the database - what do we want to do?  We currently support
      ' accepting a new support incident, and completing (closing) an incident.
      select case iEvent
      
        ' Accept - Add a new record the SQL database
        case "GW#C#ACCEPT"
          iSQLString = "INSERT INTO Support(Incident,RequestedBy,Subject,ResponsibleEngineer,RequestedDate) VALUES ('"& iMsg.MessageID &"','"& iMsg.FromText& "','"& iMsg.Subject&"','" & iEngineer & "','"&SQLDate(Date)&"')"
          iADOObj.Execute(iSQLString)

        ' Complete (close) - Update the existing record in the SQL database        
        case "GW#C#COMPLETE"
          iSQLString = "UPDATE Support SET CompletedDate='" & SQLDate(Date + 5) & "' WHERE Incident='" & iMsg.MessageID &"'"
          iADOObj.Execute(iSQLString)
          
      end select 

      ' close and remove the Recordset object from memory  
      iRST.Close
      set iRST = Nothing  
      
    else
      msgbox err.description, vbCritical, IDS_CAPTION
    end if
    
    ' Close and remove the Connection object from memory
    iADOObj.Close
      
  end if   
  
  set iADOObj = Nothing 

end sub

I hope this helps.

Advansys Support