IF ISCLEAR(ADOConnection) THEN BEGIN IF NOT CREATE(ADOConnection) THEN ERROR('Cannot create ADO Connection automation variable.'); END; IF ISCLEAR(ADORecSet) THEN BEGIN IF NOT CREATE(ADORecSet) THEN ERROR('Cannot create ADO Recordset automation variable.'); END; IF ISCLEAR(ADOCommand) THEN BEGIN IF NOT CREATE(ADOCommand) THEN ERROR('Cannot create ADO Command automation variable.'); END; IF ISCLEAR(ADOStream) THEN BEGIN IF NOT CREATE(ADOStream) THEN ERROR('Cannot create ADO Stream automation variable.'); END; ConnString := 'Provider=SQLOLEDB;Data Source=' + DbServer + ';' + 'Initial Catalog=' + DbName + ';User ID=' + DbUsername + ';Password=' + DbPassword + ';'; ADOConnection.ConnectionString(ConnString); ADOConnection.Open; ADOCommand.ActiveConnection := ConnString; ADOCommand.CommandText := STRSUBSTNO('UpdateAuctionStatusWithStock ''%1''',ItemNo); ADOCommand.Execute(); CloseConnection;
ADOMgmt.InsertItemNo(ItemLedgEntry."Item No.");
Comments
It is yeah. With much headscratching, it turns out that it was trying to access a table that was locked by navision as part of the posting process...
Thanks for the input, anyhow!