[Volt177]

Здраствуйте и спасибо тем кто откликнулся.
Пишу курсовой проект по базам данных.
При создании субд на делфи встрял с ошибкой при использовании sql запросов. Пытаюсь выполнить поиск по табличке но возникает ошибка: Invalid column name '"%тут в веденое мной фамилия в окно Edit%"'
текст программы:

Код:

With AdoQuery1 do
begin
Sql.Add('Select *');
Sql.Add('From имя таблицы');
Sql.Add('Where fam Like "%'+Edit1.text+'%"');
end;

И подскажите плиз как изменить текст программы чтобы после того как он найдет фаилию вывести в окно dbgrin нетолько Фамилию и данные из 1 таблички а из всех связанных с ней таблиц.

[Asinkrit]

Что у вас за запрос получается, ошибка в неправильном указании названии колонки, или неправильно составленном запросе.

Код:

With AdoQuery1 do
begin
Sql.Add('Select *');
Sql.Add('From имя таблицы');
Sql.Add('Where fam Like '+QuotedStr('%'+Edit1.text+'%'));
ShowMessage(Sql.text);
end;

[Volt177]

Название колонки указано верно, возможно ошибка в синтаксисе давот толь она всплывает не при запуски программ а после , когда уже непосредственно нажимаю на кнопу которая отвечает за поиск.
Попробовал изменить так как ты привел в примере, тож неробит=(

[Страдалецъ]

У вас так и написано в программе?
Sql.Add('From имя таблицы');

[Asinkrit]

Покажите что дает ShowMessage(Sql.text);

[Страдалецъ]

Выводит на экран окошко с текстом вашего запроса.

[Asinkrit]

Страдалецъ, будь по внимательнее, ShowMessage я посоветовал использовать что бы узнать, что за запрос получается на стадии исполнения, и ему же и вопрос задал, что бы он сюда отписал, что у него выходит..

[Volt177]

Спс тем кто откликнулся проблему с ошибкой я решил.
Только проверить правельность работы немагу.
Ребят подскажите пожалосто как организовать "вывод найденной информации" через окно DBGrind

Код:

With AdoQuery1 do
begin
Close;
SQL.clear;
Sql.Add('Select * '+' From Klient '+' Where fam Like ''%'+Edit1.text+'%''');
open;
end;

lmikle: пользуемся тегами!!!

[lmikle]

Подключаешь данный запрос к DBGrid через DataSource и радуешься.

[Volt177]

А можно расписать поподромней а то мне как нубу это всервано что горох об стенку

[stil]

Код:

DataSource1.DataSet:=ADOQuery1;
DBGrid1.DataSource:=DataSource1;

Можно и в свойствах при разработке задать

[Volt177]

СПС всем !!!

[Volt177]

Я уже поблагоарил всех за помощ, но помогите еще немного
Как вывести данные в excel из субд на delphi связанной с бд в sql server 2000
и вапрос а нет никаких проблем с выводом данных из delphi в 2007 офис?

[Страдалецъ]

Без разницы какой офис 97 или 2010 все так-же:
В эксель обычно выводят примерно так:

Код:

Uses ComObj;
...
Const
  xlContinuous = 1;
  xlLandscape = 2;
  xlEdgeLeft = 7;
  xlEdgeTop = 8;
  xlEdgeBottom = 9;
  xlEdgeRight = 10;
  xlCenter = -4108;

Var
    Excel, WorkBook, WorkSheet: Variant;
...
  Excel := CreateOLEObject('Excel.Application');
  Excel.Visible := True;
  WorkBook := Excel.WorkBooks.Add;
  WorkSheet := WorkBook.WorkSheets[1];

  WorkSheet.Range['A1:I1'].Merge;
  WorkSheet.Range['A1'].Font.Bold := True;
  WorkSheet.Range['A1'].Font.Size := 14;
  WorkSheet.Range['A1'].HorizontalAlignment := xlCenter;
  WorkSheet.Range['A1'] := 'Журнал';
...