Платные хостинги     Раскрутка сайта     Книги по программированию

Загрузка SQL-запроса из текстового файла, Как загрузить в VB запрос из txt или doc

- Добрый день всем!На форме имеется индексированное меню примерно такого типа (данный код взят из топика "Переключатели в меню". написан Naqual, большое ему спасибо) :Код Вид(mnuKatalog)---Автор(mnuKatalog,0)---Соавтор(mnuKatalog,1)---Под_Ред(mnuKatalog,2)В скобках указаны Имя и Индекс элементов. Private Sub mnuKatalog_Click(Index As Integer)   Dim SelectedItem As Integer   Dim sqlName As String   Dim sName(3) As StringsName(0) = "(Autor1 & ', ' & Title )"sName(1) = "(SoAutor & ', ' & Title )"sName(2) = "(PodRed & ', ' & Title )"   SelectedItem = Index   Me.mnuKatalog(0).Checked = False   Me.mnuKatalog(1).Checked = False   Me.mnuKatalog(2).Checked = False   Me.mnuViewMode(SelectedItem).Checked = True      Select Case SelectedItem       Case 0 'Автор             sqlName = sName(0)       Case 1 'Соавтор             sqlName = sName(1)       Case 2 'Под_Ред             sqlName = sName(2)   End SelectsSqlString = "SELECT "  & sqlName & "Illustrat, ContTitle, Isdanie, InventNumber " & _        "FROM Titles WHERE InventNumber =" & Text2.TextEnd SubhighlightSyntax('vbMWYyM2','vb');Данным запросом формируется выборка, которая загружается в xls-файл.Все работает, только если нужно изменить sName(I) (при смене ГОСТов), приходится распаковывать прогу, редактировать и т.д.Так вот вопрос:Нельзя ли формировать в txt или doc -файле что-то примерно вот так, Код строка.1   sName(0) = "(SoAutor & ', ' & Title )" строка.2   sName(1) = "(Autor1 & ', ' & Title )" строка.3   sName(2) = "(PodRed & ', ' & Title )" highlightSyntax('vbjE0M2Y','vb');а при запуске проги их оттуда читать и если надо, то в файле и корректировать, чтобы не трогать прогу.С уважением Это сообщение отредактировал Flotskiy - 25.3.2005, 16:35

-

- Akina, благодарю за помощь. Сию буду проверять.С уважением

- Akina, проверил на проге, все отлично. Тебе "+".С наилучшими всем пожеланиями.

- FlotskiyТеперь забудь. Счас я пьян в дым и не соображаю. В понедельник отпишу как надо правильно.

- Теперь как бы я делал.1) Дефолтные настройки сохранил бы в реестре. Использовал исключительно их и обязательно их.2) Сделал бы процедуру (вернее форму), позволяющую считать новые строки запросов из файла (или там ввести с клавиатуры) и занести в реестр. Ессссно там же кноп "Restore defaults".

- Доррый вечер всем!Akina, то что ты советуешь, для меня темный лес. Если поможешь в решении данного вопроса, буду благодарен.С уважением Это сообщение отредактировал Flotskiy - 28.3.2005, 12:31

- См. хелп по GetSetting/SaveSetting

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD