ReSQL.ru
     
powered by simpleCommunicator - 2.0.36     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Нужна помощь новичку
5 сообщений из 5, страница 1 из 1
Нужна помощь новичку
    #32089304
DDD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DDD
Гость
Помогите кто может ! Пишу маленькую программу на VB, которая
должна работать по принципу популярной игры "Журналист" или
"Соковыжималка", где из одного большого слово типа "барометр"
можно создать несколько других из составляющих букв этого
слова -бар, ром, метр,метро и т.д.
Есть база данных в Access(около 60000 слов), создал List
связанный с ним через ADO , но никак не справлюсь с SQL запросом,
который заполнил бы этот лист нужными словами,сопостовляя базу
с исходным словом,которое я собираюсь вводить в TextBox1.
Заранее извиняюсь за длинное послание, но я еще совсем новичок
в этом деле.
...
Рейтинг: 0 / 0
12.01.2003, 19:34
| Ответить | Цитировать | Написать  
Нужна помощь новичку
    #32090242
Ej. Pulsar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ej. Pulsar
Гость
Пользуйся фнкцией InStr в VB. Она ищет вхождение подстроки в строке и возвращает челое число, соответствующее позиции первого символа вхождения (если он не найден - возвращается 0).

Вообще я приверженец новых технологий, но тебе советую воспользоваться DAO (входит в поставку VB). Это древняя технология, но её модель проста - есть объекты Database и Recordset (а чёго ещё нужно - свести использование свойств Connection к простому указанию файла БД, а также получать значение полей таблицы способом strField1.Text = rstWord![words])

Заполнить ListBox можно по разному. 60 тыс. записей считать только Recordset (память если экономно расходовать).
При работе с DAO это выглядит так... (извини с ADO мало работал - сразу перешёл с DAO на ADO .NET)

1. Подключаем библиотеку DAO 3.6 (св-во References в меню Project вроде)
потом пишем код
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
'в разделе объявления глобальных переменных
Dim db as Database
Dim rst as Recordset

private sub Form1_Load() 'Form1 Меняем на имя нашей формы
Din i as Integer '(привыкай всегда объявлять переменные)
  set db = OpenDatabase("c:\blablabla\mydatabase.mdb")
  set rst = db.OpenRecordset("SELECT Field FROM Table",doOpenDynamic)
'SQL - запрос на выборку формируется:
'SELECT <Поле1>,<Поле2>...<Полеn> 
'FROM <Таблица1, <Таблица2>...<Таблицаn>
'[ORDER BY <Поля через запятую>] 
Do Until rst.Eof
  listbox1.Add(rst![Field])
loop
end sub


Может в приведённом коде есть ошибки - не исключаю: на VB прогу писал год назад.
...
Рейтинг: 0 / 0
14.01.2003, 13:33
| Ответить | Цитировать | Написать  
Нужна помощь новичку
    #32090246
Ej. Pulsar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ej. Pulsar
Гость
Блин, ну глюкаво получилось!!!!
Не надо было комментариев делать
...
Рейтинг: 0 / 0
14.01.2003, 13:34
| Ответить | Цитировать | Написать  
Нужна помощь новичку
    #32092637
DDD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DDD
Гость
Спасибо большое за отклик !
Сейчас попробую.
Только можно примерчик поподробнее ?
Где использовать InStr и как ?

Заранее благодарю
...
Рейтинг: 0 / 0
17.01.2003, 16:18
| Ответить | Цитировать | Написать  
Нужна помощь новичку
    #32092904
Ej. Pulsar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ej. Pulsar
Гость
Про InStr

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
InStr([start],str1,str2,[vbCompareMethod])

'start - С какого символа начинать поиск
 str1 - строка в которой ищем
 str2 - строка, котрую ищем в str1 (хотя может быть и наоборот - не помню)
 vbCompareMethod - константы как сравнивать строки (с учётом регистра или  нет)
'


в случае с твоей программой я подумал и пришёл к выводу, что тебе необходимо просто хватать слово, бить его по буквам, потом хватать слово из списка слов в БД и проверять, все ли его буквы входят в в заданное вначале (так гарантируется поиск любого "знакомого" слова в любом порядке расположения его букв в исходном)
-------------------
Best Regards ej_pulsar@mail.ru
P.S. Лучше на мыло пиши если чего непонятно - здесь я нечасто бываю...
...
Рейтинг: 0 / 0
18.01.2003, 12:22
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Нужна помощь новичку
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=32090242&tid=2171475]:
 0ms
get settings:
 12ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 31ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 34ms
get tp. blocked users:
 1ms
others: 262ms
total:  375ms
созд. / загр.: 375ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]