> VocabularyWord.WordGender.notApplicable, _
> VocabularyWord.WordFunction.Preposition)
> 'Имена прилагательные
> InsertEnglishGermanWordPair(cmd, "invited", "eingeladen", _
> VocabularyWord.WordGender.notApplicable, _
> VocabularyWord.WordFunction.Verb)
> InsertEnglishGermanWordPair(cmd, "yellow", "gelbe", _
> VocabularyWord.WordGender.notApplicable, _
> VocabularyWord.WordFunction.Adjective)
> InsertEnglishGermanWordPair(cmd, "one", "eins", _
> VocabularyWord.WordGender.notApplicable, _
> VocabularyWord.WordFunction.Adjective)
> InsertEnglishGermanWordPair(cmd, "two", "zwei", _
> VocabularyWord.WordGender.notApplicable, _
> VocabularyWord.WordFunction.Adjective)
> 'Имена существительные мужского рода
> InsertEnglishGermanWordPair(cmd, "Man", "Mann", _
> VocabularyWord.WordGender.Masculine, _
> VocabularyWord.WordFunction.Noun)
> InsertEnglishGermanWordPair(cmd, "Marketplace", "Marktplatz", _
> VocabularyWord.WordGender.Masculine, _
> VocabularyWord.WordFunction.Noun)
> InsertEnglishGermanWordPair(cmd, "Spoon", "Löffel", _
> VocabularyWord.WordGender.Masculine, _
> VocabularyWord.WordFunction.Noun)
> 'Имена существительные женского рода
> InsertEnglishGermanWordPair(cmd, "Woman", "Frau", _
> VocabularyWord.WordGender.Feminine, _
> VocabularyWord.WordFunction.Noun)
> InsertEnglishGermanWordPair(cmd, "Clock", "Uhr", _
> VocabularyWord.WordGender.Feminine, _
> VocabularyWord.WordFunction.Noun)
> InsertEnglishGermanWordPair(cmd, "Cat", "Katze", _
> VocabularyWord.WordGender.Feminine, _
> VocabularyWord.KordFunction.Noun)
> 'Имена существительные среднего рода
> InsertEnglishGermanWordPair(cmd, "Car", "Auto", _
> VocabularyWord.WordGender.Neuter, _
> VocabularyWord.WordFunction.Noun)
> InsertEnglishGermanWordPair(cmd, "Book", "Buch", _
> VocabularyWord.WordGender.Neuter, _
> VocabularyWord.WordFunction.Noun)
>End Sub
>'----------------------------
>'Помещает слово в базу данных
>'----------------------------
>Private Shared Sub InsertEnglishGermanWordPair( _
> ByVal cmd As System.Data.SqlServerCe.SqlCeCommand, _
> ByVal englishWord As String, ByVal germanWord As String, _
> ByVal germanWordGender As VocabularyWord.WordGender, _
> ByVal wordFunction As VocabularyWord.WordFunction)
> cmd.CommandText = "INSERT INTO " + TRANSLATIONTABLE NAME + _
> "(" + TRANSLATIONTABLE_ENGLISH_COLUMN + ", " + _
> TRANSLATIONTABLE_GERMAN_COLUMN + ", " + _
> TRANSLATIONTABLE_GERMANGENDER_COLUMN + ", " + _
> TRANSLATIONTABLE_WORDFUNCTION_COLUMN + _
> ") VALUES ('" _
> + englishWord + "', '" + germanWord + "', '" _
> + System.Convert.ToString(CType(germanWordGender, Integer)) + "', '"