Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Базы данных
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 04.02.2024, 12:14
Aibekkoke Aibekkoke вне форума
Прохожий
 
Регистрация: 18.12.2009
Адрес: Казахстан, Шалкар
Сообщения: 12
Репутация: 10
По умолчанию Проблема с кодировками

Здравствуйте. Помогите пожалуйста очень прощу.
При добавлений записи в таблицу вместо казахских букв отображается вопросительный знак. Таблица в Mysql. Подключаюсь к базе через fdconnection. Запись добавляю через fdquery.
Вот такой код использую для добавление записи:
Код:
if Assigned(GlavFrm) then
    begin
      GlavFrm.FDQuery1.SQL.Text := 'INSERT INTO Malimet (tabel, name, birthday, citizenship, nationality, gender, military_rank, photo, password) VALUES (:tabel, :name, :birthday, :citizenship, :nationality, :gender, :military_rank, :photo, :password)';
      GlavFrm.FDQuery1.ParamByName('tabel').AsString := Edit1.Text;
      GlavFrm.FDQuery1.ParamByName('name').AsString := UTF8Encode(Edit2.Text);
      GlavFrm.FDQuery1.ParamByName('birthday').Value := DateTimePicker1.Date;
      GlavFrm.FDQuery1.ParamByName('citizenship').AsString := ComboBox1.Text;
      GlavFrm.FDQuery1.ParamByName('nationality').AsString := ComboBox2.Text;
      GlavFrm.FDQuery1.ParamByName('gender').AsString := ComboBox3.Text;
      GlavFrm.FDQuery1.ParamByName('military_rank').AsString := ComboBox4.Text;
      GlavFrm.FDQuery1.ParamByName('photo').AsString := label8.Caption;
      GlavFrm.FDQuery1.ParamByName('password').AsString := Edit3.Text;
      GlavFrm.FDQuery1.ExecSQL;
    end;
При созданий формы установливаю кодировку:
Код:
GlavFrm.FDQuery1.SQL.Clear;
  // Выполняем запрос для выборки данных
        GlavFrm.FDConnection1.Connected := True; // Подключаемся к базе данных
        GlavFrm.FDConnection1.Params.Values['CharacterSet'] := 'utf8';
        GlavFrm.FDQuery1.SQL.Text := 'SELECT * FROM malimet';
        GlavFrm.FDQuery1.Open;
Изображения
Тип файла: jpg Screenshot_2.jpg (76.1 Кбайт, 3 просмотров)
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 04:46.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter