[civicuu]

В общем, чтобы не создавать каждый раз новую тему открыл тему про SQL запросы.
1)
При создании БД застрял на автоинкрементах.
таблица: dBase IV, поля: id, name (number и character)
требуется: увеличение значения id при вводе name и отображение внесенной записи.
в приложении организован диалог через Edit ("Введите имя") и Button ("ОК").

Код:

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

procedure TForm1.Button1Click(Sender: TObject); begin Query1.close; Query1.SQL.Clear; Query1.sql.Text:=('ALTER TABLE tbl.dbf MODIFY id not null auto_increment=#'); Query1.ExecSQL; Query1.SQL.Clear; Query1.SQL.Text:=('insert into tbl.dbf values(id,"'+edit1.text+'")'); Query1.ExecSQL; Query1.SQL.Clear; Query1.SQL.Text:=('select * from tbl.dbf'); Query1.open; end;

2) как организовать запрос на запрет ввода одинакового имени???
то есть, если в таблице имеется запись name1, то при вводе в edit`e имени name1 сообщало об ошибке???
как на счет такого пути: записываем в переменную val1 значение Edit1 и затем сравниваем с записью в таблице:

Код:

1 2 3 4 5 6 7 8 9 10 11

procedure TForm_edit_mag.Edit1KeyPress(Sender: TObject; var Key: Char); var val1:string; begin {repeat val1:=edit1.text until Edit1KeyPress('');} //не то :) val1:=edit1.text; query1.close; query1.sql.clear; query1.sql.text:=('<??????>');{вот тут хз пока не разобрался, с помощью чего сравнивать???} query1.execsql; end;

Admin: Пользуемся тегами!

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

Поскольку вы работаете с dbf, то мне кажеться вам лучше всего для запрета ввода повторов использовать запрос к таблице. Вот примерчик такой реализации:

Код:

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 46 47 48 49 50 51 52 53 54 55 56 57 58 59

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, DB, Grids, DBGrids, ADODB, StdCtrls;   type   TForm1 = class(TForm)     AppDB: TADOConnection;     Edit1: TEdit;     Button1: TButton;     procedure FormCreate(Sender: TObject);     procedure Button1Click(Sender: TObject);   end;   var   Form1: TForm1;   implementation   {$R *.dfm}   procedure TForm1.FormCreate(Sender: TObject); begin  AppDB.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;'+  'Data Source=%s;Mode=Share Deny None;Jet OLEDB:Database Password="";'+  'Jet OLEDB:Engine Type=17';  AppDB.ConnectionString := Format(AppDB.ConnectionString,[ExtractFilePath(Application.ExeName)]);  AppDB.Open; end;   procedure TForm1.Button1Click(Sender: TObject); Var Q: TAdoQuery;     MaxID: Integer; begin  Q := TAdoQuery.Create(nil);  Q.Connection := AppDB;  Q.SQL.Text := 'select * from test.dbf where name=:name';  Q.Parameters.ParamValues['name'] := Edit1.Text;  Q.Open;  if Q.IsEmpty  then begin       Q.SQL.Text := 'select max(id) as MaxID from test.dbf';       Q.Open;       if Q.FieldValues['MaxID'] = null       then MaxID := 1       else MaxID := Q.FieldValues['MaxID'] + 1;       Q.SQL.Text := 'insert into test.dbf (id,name) values(:id,:name)';       Q.Parameters.ParamValues['id'] := MaxID;       Q.Parameters.ParamValues['name'] := Edit1.Text;       Q.ExecSQL;       end;  Q.Close;  Q.Free; end;   end.

Код:

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

object Form1: TForm1   Left = 294   Top = 113   Width = 870   Height = 640   Caption = 'Form1'   Color = clBtnFace   Font.Charset = DEFAULT_CHARSET   Font.Color = clWindowText   Font.Height = -11   Font.Name = 'Tahoma'   Font.Style = []   OldCreateOrder = False   OnCreate = FormCreate   PixelsPerInch = 96   TextHeight = 13   object Edit1: TEdit     Left = 64     Top = 16     Width = 121     Height = 21     TabOrder = 0     Text = 'Edit1'   end   object Button1: TButton     Left = 192     Top = 16     Width = 41     Height = 25     Caption = 'Add'     TabOrder = 1     OnClick = Button1Click   end   object AppDB: TADOConnection     LoginPrompt = False     Mode = cmShareDenyNone     Provider = 'Microsoft.Jet.OLEDB.4.0'     Left = 16     Top = 16   end end

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

как то так

[civicuu]

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

В общем, чтобы не создавать каждый раз новую тему открыл тему про SQL запросы.
1)
При создании БД застрял на автоинкрементах.
таблица: dBase IV, поля: id, name (number и character)
требуется: увеличение значения id при вводе name и отображение внесенной записи.
в приложении организован диалог через Edit ("Введите имя") и Button ("ОК").

Код:

в чем тут трабла?
при обработке ссылался на 'modify':

Код:

1 2 3

Error.. Token: Modify in line 1

в виду сжатых сроков оставил эту затею, но все же хотелось узнать мнение более компетентных людей (так как все равно вернусь к етому "месту", но попозже)
альтернативный выход: при добавлении новой записи требуется указать номер, если номер существует, то "фейл".
Да и еще:

Код:

1	INSERT INTO table VALUES (col1,col2,...,colN)

возможно ли арифметические операции в св-ве VALUES. например, если col1 типа Numeric(Integer), что-то вроде этого ...VALUES (col1=col1+1,col2,...,colN). Если да, то как правильно это оформить?
в моем примере не получается:

Код:

1 2 3 4

INSERT INTO MyTable Values (id=id+1,name) //пробовал заключать в " " или "' '" или ' ', не выходит //через параметр также не получается, ругается на "+", хотя с умножением "*" все ОК //автоинкремент единственный выход?

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

1.Формат DBF насколько я помню неимеет автоинкриментных полей, поэтому ваша попытка воспользоваться этим счастьем для DBF, непрокатывает. Для реализации этого алгоритма смотрите мой пример который я дал в прошлом посте.
2.INSERT INTO MyTable Values (id=id+1,name) - это небудет работать по трем причинам, первая - вы не указали в какие поля помещать id=id+1 и name, вторая - вычислять можно, но без присвоения т.к. результат итак поместиться в (см.причину 1), третье - нельзя использовать в инсерте в качестве параметров имена полей этой-же таблицы. Переменные внешние пожалуйста, константы - ради бога, результат чужого запроса тоже можно.

[Aristarh Dark]

1. Нет в dbf счетчиков
2. Если хотите автоинкремент - ручками... только ручками... (как сделать - могу объяснить)

[civicuu]

2 Aristarh Dark: объясните, очень интересно
Какие типы таблиц поддерживают автоинкремент? Читал на sql(тчк)ру или в "королевстве делфи", что не всегда авто_инкременты в цене, когда дело доходит до удаления записей
И вообще какие таблицы щас в "моде" (напр., для предприятия нестесненного финансово и для бедной конторы)

добавлено:
назрел еще 1 вопрос:
интересует именно ORDER BY.
возможно ли использовать переменные в ORDER BY? или через параметры? Если да, то как?

Код:

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

procedure Tform_mag.sort_t(radio_by:integer); var sort_by:string; begin if radio_by=0 then sort_by:='name'; if radio_by=1 then sort_by:='gorod'; if radio_by=2 then sort_by:='id';   with Query1 do begin  Close;  SQL.Clear;  SQL.Add('SELECT id,name,gorod,ulica,dom,telefon FROM mag,adres');  SQL.Add('WHERE id=id_adres');  SQL.Add('ORDER BY <b>"sort_by"'</b>);    Open; end; end;

[civicuu]

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

Код:

ух все разобрался) с ORDER BY
забыл про '+<строка>+' (опыта мало, практически нету)

Код:

1 2 3 4 5

Close; SQL.Clear; SQL.Add('SELECT id,name,gorod,ulica,dom,telefon FROM mag,adres'); SQL.Add('WHERE id=id_adres'); SQL.Add('ORDER BY <b>'+sort_by+'</b>');