Запрос update и условие where
UPDATE используется для того, чтобы изменить существующие значения или освободить поле в строке, поэтому новые значения должны соответствовать существующему типу данных и обеспечивать приемлемые значения. Если вы не хотите изменить значения во всех строках, то нужно использовать условие WHERE.
UPDATE table_name SET column1 = ‘data1’, column2 = ‘data2’ WHERE column3 = ‘data3’;
Вы можете использовать WHERE для любого столбца, включая тот, который хотите изменить. Это используется когда необходимо заменить одно определенное значение на другое.
UPDATE table_name SET FirstName = ‘Василий’ WHERE FirstName = ‘Василий’ AND LastName = ‘Пупкин’;
Будьте осторожны! Запрос delete удаляет целые строки
Запрос DELETE полность удаляет строку из базы данных. Если вы хотите удалить одно единственное поле, то нужно использовать запрос UPDATE и установить для этого поля значение, которое будет являться аналогом NULL в вашей программе. Будьте внимательны, и ограничивайте ваш запрос DELETE условием WHERE, иначе вы можете потерять все содержимое таблицы.
DELETE FROM table_name WHERE column1 = ‘data1’;
-
Код програми
unit MYBASE;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids, ExtCtrls;
type
TForm14 = class(TForm)
Query1: TQuery;
Memo1: TMemo;
Button1: TButton;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
Edit1: TEdit;
Query2: TQuery;
DataSource2: TDataSource;
DBGrid2: TDBGrid;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
Timer1: TTimer;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Edit1Click(Sender: TObject);
procedure Edit1Exit(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form14: TForm14;
s:string;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm14.Button1Click(Sender: TObject);
begin
Query1.Active := false;
s:=#39+'%'+edit1.Text+'%'+#39;
Memo1.Lines.Text:=' SELECT * FROM base WHERE Name LIKE '+s+' OR Klass LIKE '+s+' OR Kategoregy LIKE '+s+' OR Demo LIKE '+s+' OR PoddSopr LIKE '+s+' OR Testing LIKE '+s+' OR APO LIKE '+s+' OR Company LIKE '+s+';';
Query1.Active := false;
Query1.SQL.Text := Memo1.Text;
Query1.Active := true;
end;
procedure TForm14.Edit1Click(Sender: TObject);
begin
Edit1.Text:='';
Timer1.Enabled:=false;
end;
procedure TForm14.Edit1Exit(Sender: TObject);
begin
if Edit1.Text='' then
Timer1.Enabled:=true;
end;
procedure TForm14.FormCreate(Sender: TObject);
begin
Memo1.Text := Query1.SQL.Text;
Query1.Active := false;
Query1.SQL.Text := Memo1.Text;
Query1.Active := true;
Memo1.Text := Query2.SQL.Text;
Query2.Active := false;
Query2.SQL.Text := Memo1.Text;
Query2.Active := true;
end;
procedure TForm14.Timer1Timer(Sender: TObject);
begin
if Edit1.Text='' then
Edit1.Text:='Веведите слово для поиска' ;
end;
procedure TForm14.Button2Click(Sender: TObject);
begin
form1.QuickRep1.Preview;
end;
end.
