| Вопрос: SQL запрос....? | Добавлено: 09.01.06 16:53 |
Автор вопроса:  Andrey999 | Web-сайт: www.radio-device.narod.ru | ICQ: 30852361 |
|
Скажите почему этот запрос выолняется только при полном соответствии искомому значению
Private Sub Text1_Change() SQL = "SELECT Name, Description, Delivery, Koeff, Email FROM Distributors WHERE Distributors.Description LIKE '" & Text1.Text & "*'" Adodc1.RecordSource = SQL Adodc1.Refresh End Sub То есть, если я пишу в TEXT1 "ик" он не находит совпадения, хотя в базе есть слова начинающиеся на ИК, а если я пишу "ИККАР" он четко отображает в TDBGrid запись. |
| Ответы | Всего ответов: 9 |
|
Номер ответа: 1 Автор ответа:  GSerg Вопросов: 0 Ответов: 1876 
|
Профиль | | #1 | Добавлено: 09.01.06 17:01 |
|
Во-первых, нафиг ADODC, без него лучше.
Во-вторых, в ADO вместо звёздочки %, а вместо вопроса _. |
||
|
Номер ответа: 2 Автор ответа: Andrey999 ICQ: 30852361 Вопросов: 73 Ответов: 168 |
Web-сайт: Профиль | | #2 | Добавлено: 09.01.06 17:29 |
| Какого вопроса??? | ||
|
Номер ответа: 3 Автор ответа: Andrey999ICQ: 30852361 Вопросов: 73 Ответов: 168 |
Web-сайт: Профиль | | #3 | Добавлено: 09.01.06 17:31 |
| А за % огромное спасибо, два дня мучаюсь | ||
|
Номер ответа: 4 Автор ответа: GSergВопросов: 0 Ответов: 1876
|
Профиль | | #4 | Добавлено: 09.01.06 18:30 |
|
Какого вопроса???
* - любое количество любых символов. ? - один любой символ. |
||
|
Номер ответа: 5 Автор ответа: Andrey999ICQ: 30852361 Вопросов: 73 Ответов: 168 |
Web-сайт: Профиль | | #5 | Добавлено: 09.01.06 22:28 |
|
Во-первых, нафиг ADODC, без него лучше.
А как без него? |
||
|
Номер ответа: 6 Автор ответа: GSergВопросов: 0 Ответов: 1876
|
Профиль | | #6 | Добавлено: 10.01.06 05:17 |
| Project - References - Microsoft ActiveX Data Objects 2.X Library | ||
|
Номер ответа: 7 Автор ответа: Andrey999ICQ: 30852361 Вопросов: 73 Ответов: 168 |
Web-сайт: Профиль | | #7 | Добавлено: 10.01.06 20:41 |
| А как это использовать? | ||
|
Номер ответа: 8 Автор ответа: GSergВопросов: 0 Ответов: 1876
|
Профиль | | #8 | Добавлено: 11.01.06 03:28 |
|
dim c as adodb.connection, r as adodb.recordset
set c=new adodb.connection c.open "Provider=Microsoft.Jet.OLEDB.4.0; Data source=c:\1.mdb" set r=new adodb.recordset r.open "SELECT Name, Description, Delivery, Koeff, Email FROM Distributors WHERE Distributors.Description LIKE '" & Text1.Text & "%'", c, adopenstatic, adlockreadonly, adcmdtext if not (r.bof and r.eof) then r.movefirst msgbox r!Delivery end if r.close c.close |
||
|
Номер ответа: 9 Автор ответа: Andrey999ICQ: 30852361 Вопросов: 73 Ответов: 168 |
Web-сайт: Профиль | | #9 | Добавлено: 11.01.06 10:54 |
| Огромное спасибо. | ||
Страница: 1 |