Valentina - RunRev

[william humphrey]

Hi Warren

This is from my stack again:


on DatabaseOpen
   put "" into field error_field  of card "Client Card" of stack "clients"
   put "" into field IsOpenField  of card "Client Card" of stack "clients"
   put "" into field "record ID"  of card "Client Card" of stack "clients"
   put "" into field "total records"  of card "Client Card" of stack "clients"

   get Valentina_InitClient( 10 * 1024 * 1024,"V4REV-frigging long
serial number",,)
   get Valentina_DebugLevel("kLogParams")
   put VConnection_Constructor("localhost", "sa", "sa", 15432) into gConnection
   --for use SSL just uncomment VConnection_UseSSL
   --get VConnection_UseSSL( gConnection )
   -- you don't need VConnection_Open so what is it????

   if  VConnection_Open( gDatabase ) contains "ERROR" then
      answer error Valentina_ErrString()
      exit DatabaseOpen
      --get Valentina_ShutDownClient()
      return empty
   else
      --get VConnection_Close( gConnection )
   end if
   put VDatabase_Constructor( gConnection ) into gDatabase
   get VDatabase_DateFormat(gDatabase, "kYMD")
-- setting the date format is a good idea but doesn't always work.
   get VDatabase_DateSep(gDatabase, "-")
   get VDatabase_Open( gDatabase, b_l_database.vdb )

   if it contains "ERROR" then
      answer "there was an error in DatabaseOpen"
   end if
end DatabaseOpen