Помогите переключить клаву программно.

28.07.2007, 17:46. **Показов** 1356. **Ответов** 11

Студворк — интернет-сервис помощи студентам

Привет всем кто откликнется!
В режиме проекта SQL запросы работают нормально, но стоит создать exe-file работает не понятно как.
Заранее всем благодарен.

@Леон · 28.07.2007, 17:55

Какая связь клавы с SQL запросами?
Уточни

28.07.2007, 19:05

Не правильно ищет данные, если они на русском.
Когда работаю с проектом, ищет всё нормально, а когда запускаю готовый EXE неправильно.
Обратил внимание, что вовремя работы с проектом,
если клава включена на русский всё хорошо, а когда запускаю EXE клава переключается на английский автоматически. Может я чего-то не понимаю, но мне кажется, если вписать при запуске в моей проге переключение клавы на русский, поможет.
Спасибо, что откликнулся.

@Alexey · 28.07.2007, 19:38

Пример есть здесь http://www.relib.com/code.asp?id=185 но тебе он врядли поможет, т.к. так не бывает, что раскладка клавиатуры влияет на работу приложения.

28.07.2007, 20:05

Попробовал этом пример вставить не помогло.
Может у кого ещё идеи или советы есть?
Заранее признателен.

@Alexey · 28.07.2007, 20:08

Так я ж тебе и говорю - не поможет. Что значит 'ведут не понятно как'? Приведи полный пример того, где у тебя проблема, тогда возможно станет яснее...

28.07.2007, 20:31

Вот полный пример.
Когда запускаю проект всё работает нормально.
Отбирает записи из базы как надо, хоть русские слова, хоть английские, а когда создаю EXE-file,
то начинает выкидывать лишние записи.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub txtName_Change()
    Dim lvwItem, cnt
    Dim db As Database, rs As Recordset
    Set db = OpenDatabase("C:\DataBase\Data\Data.mdb")
    
    Set rs = db.OpenRecordset("SELECT Name,Data1,Data2,Data3,Data4,Data5,Data6 FROM Films WHERE Name LIKE '' & txtName.Text & "*'')
    lvwData.ListItems.Clear
    cnt = 0
    With rs
       Do While Not .EOF
            cnt = cnt + 1
            Set lvwItem = lvwData.ListItems.Add(, , !Name)
            lvwItem.SubItems(1) = !Data1
            lvwItem.SubItems(2) = !Data2
            lvwItem.SubItems(3) = !Data3
            lvwItem.SubItems(4) = !Data4
            lvwItem.SubItems(5) = !Data5
            lvwItem.SubItems(6) = !Data6
            lblCount.Caption = cnt
            .MoveNext
        Loop
    End With
    
    rs.Close
    Set rs = Nothing
    db.Close
    Set db = Nothing
End Sub

А тот пример мне тоже пригодился, спасибо.

@Alexey · 28.07.2007, 20:42

Вроде бы все нормально на первый взгляд... Может кто-нибудь еще поглазастей попадется?

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

@borm · 29.07.2007, 11:47

А какие лишние записи находит? Может быть в этом есть какая-то зависимость?

@CyberSlider · 29.07.2007, 20:21

А кому ты запросы отсылаешь, SQL Server'у ?.. Если да, то у него есть тулза SQL Trace - ей можно посмотреть, что за запросы на сервер приходят...

29.07.2007, 21:32

Спасибо, что откликнулись.

1. Не, это не сервере всё ищет, просто в файле mdb.

2. В проекте работает, вводишь первую букву имени отбирает по ней все записи как надо, а когда создаю EXE-file ещё и лишние записи начинает показывать.

Может есть другой, какой способ отбора данных?
Если есть какие примерчики, может кто кинет.
Заранее благодарен.

06.08.2007, 12:56

SELECT DISTINCT .....
Попробуй, может поможет

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .

Vlad2

	Помогите переключить клаву программно. 28.07.2007, 17:46. Показов 1356. Ответов 11 Метки нет (Все метки) Привет всем кто откликнется! В режиме проекта SQL запросы работают нормально, но стоит создать exe-file работает не понятно как. Заранее всем благодарен.

@Леон 0 / 0 / 1 Регистрация: 28.07.2007 Сообщений: 177
	28.07.2007, 17:55
	Какая связь клавы с SQL запросами? Уточни 0

Vlad2
	28.07.2007, 19:05
	Не правильно ищет данные, если они на русском. Когда работаю с проектом, ищет всё нормально, а когда запускаю готовый EXE неправильно. Обратил внимание, что вовремя работы с проектом, если клава включена на русский всё хорошо, а когда запускаю EXE клава переключается на английский автоматически. Может я чего-то не понимаю, но мне кажется, если вписать при запуске в моей проге переключение клавы на русский, поможет. Спасибо, что откликнулся.

@Alexey 0 / 1 / 3 Регистрация: 27.03.2012
	28.07.2007, 19:38
	Пример есть здесь http://www.relib.com/code.asp?id=185 но тебе он врядли поможет, т.к. так не бывает, что раскладка клавиатуры влияет на работу приложения. 0

Vlad2
	28.07.2007, 20:05
	Попробовал этом пример вставить не помогло. Может у кого ещё идеи или советы есть? Заранее признателен.

@Alexey 0 / 1 / 3 Регистрация: 27.03.2012
	28.07.2007, 20:08
	Так я ж тебе и говорю - не поможет. Что значит 'ведут не понятно как'? Приведи полный пример того, где у тебя проблема, тогда возможно станет яснее... 0

@Alexey 0 / 1 / 3 Регистрация: 27.03.2012
	28.07.2007, 20:42
	Вроде бы все нормально на первый взгляд... Может кто-нибудь еще поглазастей попадется? По крайней мере, разницы между отладкой и откомпилированным приложением не должно быть. 0

@borm 0 / 0 / 0 Регистрация: 16.07.2007 Сообщений: 458
	29.07.2007, 11:47
	А какие лишние записи находит? Может быть в этом есть какая-то зависимость? 0

@CyberSlider 0 / 0 / 1 Регистрация: 16.04.2007 Сообщений: 50
	29.07.2007, 20:21
	А кому ты запросы отсылаешь, SQL Server'у ?.. Если да, то у него есть тулза SQL Trace - ей можно посмотреть, что за запросы на сервер приходят... 0

Vlad2
	29.07.2007, 21:32
	Спасибо, что откликнулись. 1. Не, это не сервере всё ищет, просто в файле mdb. 2. В проекте работает, вводишь первую букву имени отбирает по ней все записи как надо, а когда создаю EXE-file ещё и лишние записи начинает показывать. Может есть другой, какой способ отбора данных? Если есть какие примерчики, может кто кинет. Заранее благодарен.

Ghost
	06.08.2007, 12:56
	SELECT DISTINCT ..... Попробуй, может поможет