Как присвоить текстовому полю код sql

[Незадача]

Проблема такая:
при выборе названия запроса из comboBox'a, в текстовое поле должен передаваться код запроса и затем уже реализовываться этот запрос
Возникает проблема, когда я пытаюсь текстовому полю присвоить код запроса, так как там в начале присутсвует слово select

 If combo1.List = "Oaiu ie?a 550" Then

 txtText1.Text = SELECT Oo?u.price, Oo?u.stranaFrom Oo?u Where (((Oo?u.price) < 550))
End If


как записать это грамотно?

[ymhuk]

Для начала можно без карябулек

[ymhuk]

Если это должно выглядеть так:
If combo1.List = "str ie?a 550" Then

 txtText1.Text = SELECT str.price, str.strana From str Where (((str.price) < 550))
End If

то, должно быть примерно так, не проверял Бейсик не установлен

dim str1 as string
.......
If combo1.List = "str ie?a 550" Then
str1=mid(combo1.text,1,3);
str1='select ' & str1 '.price, ' & .price, '.strana From ' & str1 ' Where (((' & '.price) < 550))
txtText1.Text = str1
End If

[Sla]

 я так пронимаю что нужно получить результат запроса

[Незадача]

Для начала можно без карябулек

ну я извиняюсь)) там просто русский текст)

[Незадача]

Если это должно выглядеть так:
If combo1.List = "str ie?a 550" Then

 txtText1.Text = SELECT str.price, str.strana From str Where (((str.price) < 550))
End If

то, должно быть примерно так, не проверял Бейсик не установлен

dim str1 as string
.......
If combo1.List = "str ie?a 550" Then
str1=mid(combo1.text,1,3);
str1='select ' & str1 '.price, ' & .price, '.strana From ' & str1 ' Where (((' & '.price) < 550))
txtText1.Text = str1
End If

Вот у меня проблема, когда делаешь выбор одного из вариантов в comboBox, то нужно как прописать
combo.Text?
или combo.List?

[Незадача]

я так пронимаю что нужно получить результат запроса

да ты правильно понимаешь. При выборе из списка названия запроса, код запроса должен показываться в текстовом окне, а потом при нажатии на кнопку выполняться сам запрос

[ymhuk]

Вот у меня проблема, когда делаешь выбор одного из вариантов в comboBox, то нужно как прописать
combo.Text?
или combo.List?

кажись combo.Text, потому что значение текущей записи в боксе

[Незадача]

кажись combo.Text, потому что значение текущей записи в боксе

Спасибо, ты прав) Теперь все получилось)

[ymhuk]

рад помочь

[Незадача]

А ты не подскажешь как правильно перенос строки делать если я вывожу длинный текст в текстовое поле и хочу чтобы он шел не в строчку, а разбился на несколько строчек......
Попробовала как в Си /n не прокатило.

[Sla]

chr(10)

[Незадача]

chr(10)

и как это правильно использовать?
просто вставлять в текст?

[Sla]

"text1" & chr(10) & "text2"