Читаем Программирование мобильных устройств на платформе .NET Compact Framework полностью

  VocabularyWord.WordGender.notApplicable, _

  VocabularyWord.WordFunction.Adverb)

 'Добавить другие слова.

 'Предлоги

  InsertEnglishGermanWordPair(cmd, "at the", "am", _

   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 ('" _