2 Naghual
та я здеся. Просто времени - не особо мно...

2 M.E.G.U.S
Спасибо, но это чуть не то

2 Flotskiy
Спасибо, я попробую так

Добавлено @ 10:47
2 Naghual
ну с ";" - это я погорячился

2 Akina

Цитата

Чудеса, аднака... код - в студию. С указанием места и номера ошибки или неправильной выборки.

Блин, я протупил...
код смогу запостить только вечером, так как с работы это нереально.
Прошу у всех прощенья и терпения

Короче, факамаза раз эдак 35 с половиной а потом ещё, до упора и по самое не балУйся!!!

нет слов и даже букв, одни выражения....

ВБ даже после переустановки категорически отказывается работать с СУБД (аксес 2000, кому интересно - идти на мой топик "траблы с эктивХ" http://forum.vingrad.ru/index.php?showtopic=39043)

запостить код из дому не вышло по причине неоткрывания браузером ИМЕННО ЭТОГО топика.

в общем, по памяти код выглядит примерно так:

Код

Do Until rsAllPoints.EOF = True      SqlText = "SELECT * FROM TableName WHERE points like" &      rsAllPoints.Fields("Points")      Set rsIllness = db1.OpenRecordset(SqlText, dbOpenDynaset)      'и вот то ли здесь For i = 0 To MyDct.Count - 1      If MyDct.Keys(i) = rsAllPoints.Fields("Points") Then            '... то ли здесь начинается всякая хня. Код ошибки не помню, но   вроде   бы "нет такого метода"      OutputBox.Text =rsIllness.Fields("Illness") &vbTab& MyDct.Keys(i) & vbTab & MyDct.Items(i) & vbCrLf & OutputBox.Text      End If Next i rsAllPoints.MoveNext Loop

Добрый вечер всем!
Не верно

Код

SqlText = "SELECT * FROM TableName WHERE points like" &      rsAllPoints.Fields("Points")

Нужно

Код

SqlText = "SELECT * FROM TableName WHERE points like'*" &      rsAllPoints.Fields("Points") & "*'"

С уважением

Это сообщение отредактировал(а) Flotskiy - 19.1.2005, 15:10

Извините за вопрос. Прочитал все что тут написано но так ничего и не смог реализовать.
По сути мне нужно тоже самое. Из БД выбрать одно значение и записть его в текстовое поле.
Может ли мне ктонибудь толком объяснить как выбрать чтолибо из таблицы! Или хотябы на метериалы где это можно почитать.
Работа естественно с Access

ЗЫ: должен заметить что с VB второй раз в жизни стыкаюсь но очень нужно сделать.  

krulik, лучше вместо этого привязать текстовое поле к полю таблицы:

налепи на форму Data1, в свойстве DatabaseName пропиши например: "C:\Visual Studio 6\VB98\BIBLIO.MDB" (или другую БД какая там у тебя). Выбери RecordSource - поле, например "Авторы".
Налепи ТекстБокс - укажи ДатаСорс - Data1, затем ДатаФилд (поле данных) - "Авторы" (или чего ты там хочешь). Все. Если хочешь SQL, то сделай тип РекодрСета динамический (1-Dynaset). В РекордСорс вставляй: Select <поле1, 2, .... , n> from <таблица> where <поле1, 2, .... , n> = <условие>


Без разницы с каким типом БД ты работаешь - просто меняешь драйвер/поставщика данных.
 

Еще вопросик, а если у меня запрос типа UPDATE.
Как надо писать?