TranslationProject.UpdateDatabase

Updates the data for all changed source files in the project for the given target language.

Syntax:

UpdateDatabase ( Language As String, DeletedItems As Variant, NewItems As Variant, ChangedItems As Variant ) As Boolean

Return: Boolean. "True" if successful. Else "False".

Parameters:
Language: Language code (e.g. "en-US"). Target language data to be updated.
DeletedItems [out]: Number of deleted items to be returned.
NewItems [out]: Number of new items to be returned.
ChangedItems [out]: Number of changed items to be returned.

Example:
Dim Project As TranslationProject Dim RetVal As Boolean Dim DeletedItems As Variant Dim NewItems As Variant Dim ChangedItems As Variant Set Project = Application.ActiveProject if Not (Project Is Nothing) then RetVal = Project.UpdateDatabase( "fr", DeletedItems, NewItems, ChangedItems ) End if if Application.Errors.Count > 0 Then MsgBox ( Application.Errors.LastError ) End if

Syntax:	UpdateDatabase ( Language As String, DeletedItems As Variant, NewItems As Variant, ChangedItems As Variant ) As Boolean
Return:	Boolean. "True" if successful. Else "False".
Parameters:	Language: Language code (e.g. "en-US"). Target language data to be updated. DeletedItems [out]: Number of deleted items to be returned. NewItems [out]: Number of new items to be returned. ChangedItems [out]: Number of changed items to be returned.
Example:	Dim Project As TranslationProject Dim RetVal As Boolean Dim DeletedItems As Variant Dim NewItems As Variant Dim ChangedItems As Variant Set Project = Application.ActiveProject if Not (Project Is Nothing) then RetVal = Project.UpdateDatabase( "fr", DeletedItems, NewItems, ChangedItems ) End if if Application.Errors.Count > 0 Then MsgBox ( Application.Errors.LastError ) End if