Sql->Close();
Sql->SQL->Clear();
String str="SELECT *FROM Othet WHERE DATE='"+date.DateString()+"'";
Sql->SQL->Add(str);
Sql->Open();

При запуске данного кода выдается ошибка. Может подскажите что делать

Здравствуйте, Аноним, Вы писали:

Sql->>Close();
Sql->>SQL->Clear();
А> String str="SELECT *FROM Othet WHERE DATE='"+date.DateString()+"'";
Sql->>SQL->Add(str);
Sql->>Open();

А>При запуске данного кода выдается ошибка. Может подскажите что делать

во-первых: какая именно ошибка?
во-ппервых, с половиной: какая БД используеться?
во-вторых:
SELECT *FROM
^ кажеться надо вставить пробел
в-третьих: формат даты котот\рый ты передаешь в запросе может не совпадать с форматом который используеться
в базе

Лучше сделать так (сорри что на Delphi)
string str := 'Select * from Otchet where Date = :Date'
^ может быть @ если используеться MS SQL
Sql.sql.add(str);
Sql.ParamByName('Date').AsDateTime := date;

А вообще можно предложить еще штуки 4 способа в зависимости от используемоей БД и т.д.

Здравствуйте, Аноним, Вы писали:

А>При запуске данного кода выдается ошибка.

Хм. Программируя в подобном стиле, тяжело обойтись без ошибок. Что стоит сделать вместо этого:

1) В дизайн-тайме присвоить свойству SQL значение 'SELECT * FROM Othet WHERE DATE=:date_report'
2) Зайти в свойство Params, присвоить параметру тип date
3) Установить Active=true и проверить, что запрос нормально открылся.
4) Написать код:

Query.Close ;
Query.ParamByName ( 'date_report' ).AsDateTime := Date ;
Query.Open ;