Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Нужна помощь новичку / 5 сообщений из 5, страница 1 из 1
12.01.2003, 19:34
    #32089304
DDD
DDD
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нужна помощь новичку
Помогите кто может ! Пишу маленькую программу на VB, которая
должна работать по принципу популярной игры "Журналист" или
"Соковыжималка", где из одного большого слово типа "барометр"
можно создать несколько других из составляющих букв этого
слова -бар, ром, метр,метро и т.д.
Есть база данных в Access(около 60000 слов), создал List
связанный с ним через ADO , но никак не справлюсь с SQL запросом,
который заполнил бы этот лист нужными словами,сопостовляя базу
с исходным словом,которое я собираюсь вводить в TextBox1.
Заранее извиняюсь за длинное послание, но я еще совсем новичок
в этом деле.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.01.2003, 13:33
    #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:34
    #32090246
Ej. Pulsar
Ej. Pulsar
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нужна помощь новичку
Блин, ну глюкаво получилось!!!!
Не надо было комментариев делать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.01.2003, 16:18
    #32092637
DDD
DDD
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нужна помощь новичку
Спасибо большое за отклик !
Сейчас попробую.
Только можно примерчик поподробнее ?
Где использовать InStr и как ?

Заранее благодарю
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.01.2003, 12:22
    #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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Нужна помощь новичку / 5 сообщений из 5, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 148ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2171475]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 50ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 37ms
get tp. blocked users:
 1ms
others: 14ms
total:  148ms
x
x
Закрыть


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