Проблема с ADOQuery

[Аватар]

А если запрос засунуть в ADOQuery в design-time какая реакция?
Еще вариант - чистить старые параметры перед присвоением в SQL. Попытка не пытка. Там должен быть метод для этого

[ReportCube]

Скорее всего Вы выкладываете не весь SQL-код. Такое обычно бывает, если без параметров используется строковое значение, которое содержит внутри себя двоеточие.

[Muramidaza]

[QUOTE=ReportCube;1342369]Скорее всего Вы выкладываете не весь SQL-код. Такое обычно бывает, если без параметров используется строковое значение, которое содержит внутри себя двоеточие.[/QUOTE

В общем психанул и создал еще одну базу данных из 1 таблицы про книги. Создал новое приложение и получил ту же ошибку.

Вот весь код нового приложения с той же самой ошибкой:

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, ComCtrls, DB, ADODB, StdCtrls, ExtCtrls, DBCtrls,
  Mask;

type
  TForm1 = class(TForm)
    ADOConnection2: TADOConnection;
    DataSource2: TDataSource;
    ADOQuery2: TADOQuery;
    Button2: TButton;
    DBGrid2: TDBGrid;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin


  try
    ADOConnection2.Connected := False;
    ADOConnection2.ConnectionString := 'Provider=MSDASQL.1;Persist Security Info=False;User ID=root;Extended Properties="Driver=MySQL ODBC 5.1 Driver;SERVER=localhost;UID=root;DATABASE=biblioteka;PORT=3306;COLUMN_SIZE_S32=1"';
    ADOConnection2.Connected := True;
  except
    On e : EDatabaseError do
      MessageDlg('Error of connect to MySQL: ' + e.Message, mtError, [mbOK],0);
  end;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin

  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('Select * from books while name = :fn');
  ADOQuery2.Parameters.ParamByName('fn').Value := Edit1.Text;
  ADOQuery2.Active:=True;
end;

end.

Не знаю уже что придумать

[Аватар]

Почти уверен, что name одно из зарезервированных слов в MySql. Или провайдеру не нравится. Что на это скажет, проверьте

Select * from `books` while `name` = :fn

[Muramidaza]

Сообщение от Аватар

Почти уверен, что name одно из зарезервированных слов в MySql. Или провайдеру не нравится. Что на это скажет, проверьте

Select * from `books` while `name` = :fn

Поменял на другое - то же самое. Такое ощущение что натыкается на двоеточие

[Аватар]

Только не WHILE а WHERE

[Muramidaza]

Сообщение от Аватар

Только не WHILE а WHERE

Да - уже исправил. Спотыкается именно об строку с двоеточием

[Yurk@]

Сообщение от Muramidaza

СУБД MySQL 5.5 ...

а если так:

SQL.Add('INSERT INTO firm (FirmName, Address, JurAddress, Phone1, Phone2, Fax, Email, Site, OGRN, INN, OKPO, Bank, RS, KS, BIK)');
SQL.Add(' VALUES(?fm, ?adr, ?jadr, ?ph1, ?ph2, ?fx, ?em, ?st, ?ogrn, ?inn, ?okpo, ?bk, ?rs, ?ks, ?bik)');

[Muramidaza]

Вопросы вместо двоеточий тоже не катят.
Создал отдельное приложение и базу данных с одной таблицей - код приводил выше. Вылезала та же самая ошибка.

Очень много чего перерыл и пришел к тому что если в строке инициализации АДОконнектион вставить вначале User ID=root то ошибка пропадает и параметры принимаются нормально.

Т. е. было
ConnectionString =
'Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="Driver=MySQL ODBC 5.1 Driver;SERVER=localhost;UID=root;DA TABASE=biblioteka;PORT=3306"'

Стало:
ConnectionString =
'Provider=MSDASQL.1;Persist Security Info=False;User ID=root;Extended Properties="Driver=MySQL ODBC 5.1 Driver;SERVER=localhost;UID=root;DA TABASE=biblioteka;PORT=3306"'

Подтвердил это несколько раз добавляя и убирая этот параметр - ошибка появлялась и исчезала.

Обычные запросы к базе данных работали в том и другом случае!!!

Почему то не получается этот фокус с основной базой данных.

Что это за параметр и где он настраивается в самой СУБД?

Этот параметр не формировался при сборке строки. И в основной базе данных его тоже не было сначала. Когда вручную добавил с экспериментальной базой данных - все заработало. Когда попробовал с основной - ничего не получилось...

[Аватар]

С MySQL не работаю, но одно время предполагалось использование, но кануло в лето. Короче, когда консультировался со спецами категорически не рекомендовали использовать для доступа ADO. В основном по причине возможного геморроя, возможно в том числе и аналогичного этому случаю. Посмотрите в сторону MyDAC, UniDAC, Zeos. Наверно и другие есть