[artemavd]

Осваиваю SQL запросы). Помогите мне записать пожалуйста SQL-запрос. У меня есть БД, в которой хранитится мобильный номер какого-то человека, его фамилия и имя, которая называется nomera.db. Мне надо, чтобы по моему запросу выводилась фамилия, имя и мобильный номер нужного мне человека. Как мне правильно организовать работу компонента Query, чтобы он работал? Что мне надо прописать в его свойстве SQL strings? Напишите пожалуйста код, чтобы я понял как правильно составлять запросы) Заранее благодарю))

[AlexSku]

Во-первых, нужно привести пример своей логики (напр.: известны фамилия и имя, найти телефон; или известен телефон, найти фамилию и имя).
Во-вторых, куда выводить: в отдельные поля (часть данных уже известна и её можно не искать) или в таблицу? Что делать если ответ не единственный?
Вообще, лучше дать определение таблицы (какие поля, есть ли Primary Key).
Нужно ли использовать параметры?

[lmikle]

В общем случае:

SELECT * FROM nomera

далее, в зависимости от задачи к этому запросу добавляются модификаторы:
[LEFT|RIGHT|INNER] JOIN ON - соединение таблиц
WHERE - условия фильтрации
ORDER BY [ASC|DESC] - сортировка
GROU BY - группировка
остальные, типа HAVING, используются реже.

Если нужны не все поля таблицы (таблиц), то вместо '*' можно просто их перечислить через запятую.

А вообще в интернете есть вполне приличные учебники по SQL для новичков.

По поводу использования в Delphi.
Как ты введешь запрос в соотв. свойстве SQL никого, кроме тебя, не волнует. Главное, что бы он был синтаксически правильным, а как ты будешь бить его на строки все равно. TQuery работает абсолютно так же, как TTable за исключением того, что для все операций используются соотв. запросы, которые надо указать самому.

[artemavd]

AlexSKu, задача логики простая). Нужно зная фамилию (или имя) человека найти в БД его номер телефона. Выводить можно либо в Label, либо в DBEdit, либо в StringGrid, либо показывать просто messagebox с номером телефона. Как угодно. Поля в таблице следующие: Фамилия, Имя, Мобильный телефон. Первичного ключа нет. Imikle, а можно пожалуйста к моей задаче применительно написать? Задача: есть фамилия и имя, нужно узнать мобильный номер человека. И если можно, то напишите плиз куда прописывать: в свойство TStrings компонента Query или в процедуру кнопки?)

[lmikle]

прописывать в свойство SQL

Сведем задачу к такой:
Пользователь вводит строку, которая является именем или фамилией. Тогда в SQL надо прописать такую строку:

Код:

1	SELECT * FROM numbers WHERE firstname = :SearchString OR lastname = :SearchString

Далее при нажатии кнопки пишется что-то типа этого:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

var   S : String; begin   If InputQuery('Поиск','Кого ищем',S) Then     Begin       Query1.ParamByName('SearchString').AsString = S;       Query1.Open;       Query1.First;       If Query1.Eof         Then ShowMessage('Такой не найден!')         Else ShowMessage('Номер: ' + Query1.FieldByName('number'));       Query1.Close; ...

[artemavd]

А что здесь означает "*"?)

Код:

1	SELECT * FROM numbers WHERE firstname = :SearchString OR lastname = :SearchString

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

var   S : String; begin   If InputQuery('Поиск','Кого ищем',S) Then     Begin       Query1.ParamByName('SearchString').AsString = S;       Query1.Open;       Query1.First;       If Query1.Eof         Then ShowMessage('Такой не найден!')         Else ShowMessage('Номер: ' + Query1.FieldByName('number'));       Query1.Close; ...

Я записал процедуру, которую ты предложил. Но при компиляции компилятор не компилирует программу и выделяет строчку:

Код:

1	Else ShowMessage ('Номер: ' + Query1.FieldByName ('number'));

А внизу пишет ошибку типа:

Код:

1	Incompatible types: ‘String’ and ‘TField’

Что значит эта ошибка? Как с ней бороться? Если я комментирую строчку

Код:

1	Else ShowMessage ('Номер: ' + Query1.FieldByName ('number'));

и запускаю программу, то когда я ввожу фамилию или имя и нажимаю на кнопке "ОК" мне выдается такаю ошибка:

Код:

1	Query1: Parameter ‘SearchString’ not found

Что делать?)

[lmikle]

1) * означает - вернуть все поля таблицы.
2) По поводу ошибки, да, мысль убежала дпльше, чуть-чуть не дописал. Надо:

Код:

1	Else ShowMessage ('Номер: ' + Query1.FieldByName ('number').AsString);

3) Parameter not found. попробуй у TQuery щткрыть редактор свойства Params (как-то так). Должны появиться параметры. Ну и проверь сам запрос, что там есть эти параметры (начинаются с двоеточия (.

[artemavd]

Я открыл свойство Param компонента Query, выбрал строку "SearchString" и прописал так ее свойства:
DataType=ftString
Name=:SearchString
NumericScale=0
ParamType=ptInputOutput
Precision=0
Size=0
Value.Type=Строка
У второй строки, которая до изменения была "TParam" я поменял название на "ParamByName" и ее свойства прописал так:
DataType=ftString
Name=ParamByName
NumericScale=0
ParamType=ptInputOutput
Precision=0
Size=0
Value.Type=Unassigned
И если я запускаю программу и в строке поиска ничего не ввожу или ввожу какую-нибудь фамилию и имя (они имеются в БД), нажимаю на "ОК", то появляется ошибка:
"Invalid use of keyword.
Token:SearchString
Line Number: 1."
Может где-то я неправильно прописал в свойствах Query?

[AlexSku]

У меня всё работает после небольших исправлений:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

procedure TForm1.Button1Click(Sender: TObject); var   S : String; begin   if InputQuery('Поиск','Кого ищем',S) then   begin     Query1.ParamByName('SearchString').AsString:= S;     Query1.Open;     Query1.First;     if Query1.Eof then       ShowMessage('Такой не найден!')     else       ShowMessage('Номер: ' + Query1.FieldByName('number').AsString);       Query1.Close;   end; end;

Параметр "SearchString" :
DataType=ftString
( оставить без двоеточия: Name=SearchString)
ParamType=ptInput

[artemavd]

"Invalid use of keyword.
Token:SearchString
Line Number: 1."
Выдает все ту же ошибку((. AlexSku, не могли бы вы выложить исходник с примером, чтобы я мог посмотреть где я туплю?

[AlexSku]

Начало utit'а:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, DB, DBTables, StdCtrls;   type   TForm1 = class(TForm)     Button1: TButton;     Query1: TQuery;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;

Свойства Query1 и Params[0]:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45

object Form1: TForm1   Left = 263   Top = 103   Width = 507   Height = 395   Caption = 'Form1'   Color = clBtnFace   Font.Charset = DEFAULT_CHARSET   Font.Color = clWindowText   Font.Height = -11   Font.Name = 'MS Sans Serif'   Font.Style = []   OldCreateOrder = False   PixelsPerInch = 96   TextHeight = 13   object Button1: TButton     Left = 40     Top = 112     Width = 75     Height = 25     Caption = 'Button1'     TabOrder = 0     OnClick = Button1Click   end   object Query1: TQuery     DatabaseName = 'DBDEMOS'     SQL.Strings = (           'SELECT * FROM numbers WHERE firstname = :SearchString OR lastnam' +         'e = :SearchString')     Left = 40     Top = 24     ParamData = <       item         DataType = ftString         Name = 'SearchString'         ParamType = ptInput       end       item         DataType = ftString         Name = 'SearchString'         ParamType = ptInput       end>   end end

Params[1], видимо, заполнился сам, так как это тот же самый параметр.