На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
Дорогие друзья! Поздравляем вас с днём Победы!
msm.ru
! ПРАВИЛА РАЗДЕЛА · FAQ раздела Delphi
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Обязательно указание:
1) типа базы данных (Paradox/Oracle/Interbase и т.п.)
2) способа доступа к базе данных (ODBC/ADO/DAO/BDE и т.п.)
Например: Paradox/BDE, MS Access/ADO

Наиболее часто задаваемые вопросы:
Базы даных для начинающих. Первые шаги. Понятие о BDE.
Переход на клиент-сервер и начала ADO
Приёмы работы с BLOB (OLE/Memo) полями
Запросы и параметры или как избавиться от многих проблем. Проблемы с датами в запросах.
Нужели мне нужно устанавливать BDE? (или почему не работает программа на другом компьютере)
Модераторы: Bas, Rouse_
Страницы: (2) 1 [2]  все  ( Перейти к последнему сообщению )  
> не работает Like , SQLite3
    В общем дело обстоит так: те файлы которые в аттаче не робят с моей дллкой скульлайта... версии разные и вылетает ошибка чтения по адресу и т.д.

    НО попробовал работать с конвертацией анси в утф8 и наоборот... и о чудо... все работает как надо! :yes:
    ExpandedWrap disabled
      //выборка данных из базы
        sldb.AddSystemCollate;
        sltb := slDb.GetTable('SELECT * FROM telephons WHERE Upper(Name) LIKE "%'+ UpperCase(AnsiToUtf8(LabeledEdit2.Text)) +'%"'); //выборку делаем с переменной в утф8
         if sltb.Count > 0 then begin   //вывод данных в таблицу
           for i:=1 to sltb.Count do begin
            StringGrid1.Cells[0,i] := Utf8ToAnsi(sltb.FieldAsString(sltb.FieldIndex['ID'])); //возвращаем из базы в анси
            StringGrid1.Cells[1,i] := Utf8ToAnsi(sltb.FieldAsString(sltb.FieldIndex['Number']));
            StringGrid1.Cells[2,i] := Utf8ToAnsi(sltb.FieldAsString(sltb.FieldIndex['Name']));
            StringGrid1.Cells[3,i] := Utf8ToAnsi(sltb.FieldAsString(sltb.FieldIndex['Adress']));
            sltb.Next;
            StringGrid1.RowCount := i+1;
           end;
         end;
        sltb.Free;
    0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
    0 пользователей:


    Рейтинг@Mail.ru
    [ Script execution time: 0,0222 ]   [ 16 queries used ]   [ Generated: 12.05.24, 10:50 GMT ]