Topic: Переход базы на MySQL (ошибки в скрипте) (РЕШЕНО !)
Дмитрий, здравствуйте !
Столкнулся с проблемой перевода базы в MySQL.
Выводит ошибки:
1.При попытке вывести сообщение с именинником
Error message:
#42000You have an error in yor SQL syntax; chek the manual that corresponds to your MySQL server version for the
right syntax to use near ')' at line 1
Жалуется на данную строку кода
b := SQLExecute('SELECT group_concat(FIO, char(13)) FROM UserCO WHERE DATE_FORMAT(DataRoghd, ''%d.%m'')=DATE_FORMAT(''now'', ''%d.%m'',)');
if b <>'' then
begin
MessageDlg('Сегодня празднует День рождения:' +#13#10 +#13#10 +b, mtInformation, mbOK, 0 );
end;
2. При попытке залогиниться в базе
Cloud not convert variant of type (Null) into type (integer)
Ссылается на данный участок кода
procedure frmLogin_OK_OnClick (Sender: string; var Cancel: boolean);
var
s: string;
begin
// SQL запрос логина и пароля пользователя
s:= VarToStr( SQLExecute('SELECT password FROM UserCO WHERE (FIO_login = ''' + frmLogin.ComboBox1.Text + ''');') );
idUser:= SQLExecute('SELECT id FROM UserCO WHERE (FIO_Login = ''' + frmLogin.ComboBox1.Text + ''');');
idOtdel := SQLExecute ('SELECT id_StrukturnOtdelCO FROM UserCO WHERE id='+IntToStr(idUser));
// если логин и пароль найдены ////
if s= frmLogin.Edit1.Text then
begin
sUser := frmLogin.ComboBox1.Text;
// проверка прав администратора
s := VarToStr( SQLExecute('SELECT Admin FROM UserCO WHERE (FIO_Login = ''' + sUser + ''');') );
if s='0' then
Данный код без проблем работал на SQLite версии. Подскажите как исправить? За ранее спасибо!