Back to getting vServer Office to execute in LiveCode Server Scripts on my IIS 5.1 web server

[Mike Bonner]

Ok, so thats the wrong one too. *cough*  Somebody needs more sleep!  Will
get bck to a full working revision and post it once I have the thing solid
again.

(for 1, you can't really check the gclient of the stack like I show in the
script) DOH

On Fri, Mar 9, 2012 at 7:15 AM, Mike Bonner <bonnmike at gmail.com> wrote:

> I've been messing around so much I don't recall which version of the
> livecode-server script I sent you.  Looking at the one you posted I think I
> sent the wrong one!
>
> The order is wrong, you'll want to declare all the commands and functions
> FIRST and then actually call them, otherwise they don't yet exist in memory
> yet and this can cause issues. (at least so it seems to me.
>
> The revised script is here. It doesn't do much, just tries to connect,
> determines if the open failed, if it did, creates the db and structure
> instead, then closes itself out.
>
>
> --declare all handlers first
> on DatabaseCreate
> if the gClient of this stack is true then
>     put VConnection_Constructor( "localhost", "sa", "sa") into mConn
>     get VConnection_Open( mConn )
>    get ShowError()
>     put VDatabase_Constructor( mConn ) into mDatabase
>   else
>     put VDatabase_Constructor() into mDatabase
>   end if
>
>   get VDatabase_Open( mDatabase, "database1" )
>    get ShowError()
>   if VDatabase_ErrNumber( mDatabase ) is not "0" then
>     if VDatabase_ErrNumber( mDatabase ) is not "532480" then
>       get VDatabase_Create( mDatabase, "Database1", "kDscDatBlbInd" )
>       get showError()
>       CreateStructure
>     else
>       answer VDatabase_ErrString( mDatabase )
>       close the defaultStack
>     end if
>   end if
>
>   put VDatabase_Table( mDatabase, "Person" ) into mPerson
>   put VTable_Field( mPerson, "FirstName" )  into mFirstName
>   put VTable_Field( mPerson, "LastName" )  into mLastName
>   put VTable_Field( mPerson, "BirthDate" )  into mBirthDate
>
> end DatabaseCreate
>
>
> on DatabaseClose
>     get VDatabase_Close( mDatabase )
>     put VDatabase_Destructor( mDatabase ) into mDatabase
> end DatabaseClose
>
> on CreateStructure
>    put VDatabase_CreateTable(mDatabase, "Person") into pTable
>
>    get VTable_CreateVarcharField( pTable, "Name", 1022, "fIndexed" )
>    get VTable_CreateVarcharField( pTable, "LName", 1022, "fIndexed" )
>    get VTable_CreateDateField( pTable, "BirthDate", "fIndexed" )
> end CreateStructure
>
> function ShowError
>   put Valentina_ErrNumber() into errCode
>   put Valentina_ErrString() into errString
>
>   if errCode <> 0 then
>     show message box
>     put errString into message
>   end if
> end ShowError
>
> -- then go through the steps.  init, then check for error (using the
> showError function)
>    get valentina_initclient()
>    get showError()
>
> -- call the databasecreate handler
>    databasecreate
> -- a curiosity check of the current contents of mDatabase && mConn
> -- could do a showError here also
>    put mDatabase && mConn
>
> -- call the databaseclose handler and shutdown, then put the result of the
> shutdown. (should be 0)
>    databaseClose
>    get valentina_shutdown
>    put it && the result
> -- I think I mentioned, but I have vserver running in manual mode from the
> --command line so I can watch the connection establish do its thing
> -- and disconnect, live on the console.
> ?>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macserve.net/pipermail/valentina/attachments/20120309/2a02e5c5/attachment.html>