Форум программистов CodeGuru
17 Январь 2018, 22:11:29 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.

Войти
Новости:
 
   Начало   Помощь Войти Регистрация  
Страниц: [1]   Вниз
  Печать  
Автор Тема: Текущий проводник неподдерживает возврат,+Ошибка синтаксиса в инструкции UPDATE  (Прочитано 14721 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Первокурсница
Интересующийся
**
Офлайн Офлайн

Сообщений: 14



Просмотр профиля
« : 15 Октябрь 2010, 17:36:14 »

Добрый день! Пеффко !
На самостоятельное изучение дали тему "Применение параметров при реализации SQL-запросов". Программа должна реализовывать следующее:
* Добавлять записи в таблицу (INSERT)
* Удалять записи из таблицы (DELETE)
* Редактировать записи в таблице (UPDATE)
* Выдавать информацию о товарах из таблицы, которых на складе осталось меньше введённого количества.
И всё это исключительно с помощью параметров.
Таблица в БД у меня такая:
Поле IDCode (счётчик, первичный ключ)
Поле TovarName (текстовый)
Поле Price (числовой, двойное с плавающей точкой)
Поле Sklad (числовой, длинное целое)
Причём в методичке сказано что данные в неё вносить не нужно, это осуществится с помощью Дельфи, поэтому таблица пустая.
Ну а в Дельфи соответственно 4 ADOQuery, в каждом свои параметры.
Процедура INSERT работает корректно.
Но не работают процедуры DELETE и UPDATE Плачу
В процедуре DELETE нужно ввести ID_Code товара в Edit, нажать кнопку и товар должен исчезнуть. В ADOQuery отвечающем за эту процедуру SQL код:
Код:
DELETE FROM Table1
WHERE IDCode=:ID_Code;
Параметр в этом запросе один:
ID_Code:
DataType - ftInteger
Value - Integer

Процедура:
Код:
procedure TForm1.BitBtn2Click(Sender: TObject); {удалить запись}
begin
ADOQuery4.Active:=false;
ADOQuery4.Parameters.ParamByName('ID_Code').Value:=StrToInt(Edit5.Text);
ADOQuery4.Active:=true;
ADOQuery5.SQL.Text:='SELECT * FROM Table1';
ADOQuery5.Open;
end;
Но вылетает с ошибкой "Текущий проводник не поддерживает возврат нескольких наборов записей в результате одной операции". Злой
А в процедуре UPDATE нужно опять же ввести в Edit ID_Code товара, внести в соответствующие Edit'ы наименование товара, цену и количество его на складе, нажать кнопку "Изменить" и радоваться результатам. Но результатов-то как раз-таки и нету.
В ADOQuery отвечающем за эту процедуру SQL код:
Код:
UPDATE Table1 SET (:TName, :Price, :Sklad)
WHERE IDCode=:ID_Code;
Параметры в этом запросе:
ID_Code
DataType - ftInteger
Value - Integer

TName
DataType - ftString
Value - OleStr

Price
DataType - ftFloat
Value - Double

Sklad
DataType - ftInteger
Value - Integer

Процедура:
Код:
procedure TForm1.BitBtn3Click(Sender: TObject); {редактировать запись}
begin
ADOQuery3.Parameters.ParamByName('ID_Code').Value:=StrToInt(Edit5.Text);
ADOQuery3.Parameters.ParamByName('TName').Value:=Edit1.Text;
ADOQuery3.Parameters.ParamByName('Price').Value:=StrToFloat(Edit2.Text);
ADOQuery3.Parameters.ParamByName('Sklad').Value:=StrToInt(Edit3.Text);
ADOQuery3.ExecSQL;
ADOQuery5.SQL.Text:='SELECT * FROM Table1';
AdoQuery5.Open;
end;
Ошибка - "Ошибка синтаксиса в инструкции UPDATE". Злой
Вот текст всей программы:
Код:
unit LAB7Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids, DBGrids, DB, ADODB;

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label5: TLabel;
    Edit4: TEdit;
    BitBtn4: TBitBtn;
    ADOQuery2: TADOQuery;
    DataSource2: TDataSource;
    ADOQuery3: TADOQuery;
    DataSource3: TDataSource;
    ADOQuery4: TADOQuery;
    DataSource4: TDataSource;
    Edit5: TEdit;
    Label6: TLabel;
    ADOQuery5: TADOQuery;
    DataSource5: TDataSource;
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  X: integer;

implementation

{$R *.dfm}

procedure TForm1.BitBtn4Click(Sender: TObject); {инф-ия о товаре из табл.1, кот. на складе осталось меньше указанного кол-ва}
begin
ADOQuery1.Active:=false;
ADOQuery1.Parameters.ParamByName('NS').Value:=StrToInt(Edit4.Text);
ADOQuery1.Active:=true;
ADOQuery5.SQL.Text:='SELECT * FROM Table1';
AdoQuery5.Open;
end;

procedure TForm1.BitBtn1Click(Sender: TObject); {Добавить записи в табл.1}
begin
ADOQuery2.Parameters.ParamByName('TName').Value:=Edit1.Text;
ADOQuery2.Parameters.ParamByName('Price').Value:=StrToFloat(Edit2.Text);
ADOQuery2.Parameters.ParamByName('Sklad').Value:=StrToInt(Edit3.Text);
ADOQuery2.ExecSQL;
ADOQuery5.SQL.Text:='SELECT * FROM Table1';
AdoQuery5.Open;
end;

procedure TForm1.BitBtn3Click(Sender: TObject); {редактировать запись}
begin
ADOQuery3.Parameters.ParamByName('ID_Code').Value:=StrToInt(Edit5.Text);
ADOQuery3.Parameters.ParamByName('TName').Value:=Edit1.Text;
ADOQuery3.Parameters.ParamByName('Price').Value:=StrToFloat(Edit2.Text);
ADOQuery3.Parameters.ParamByName('Sklad').Value:=StrToInt(Edit3.Text);
ADOQuery3.ExecSQL;
ADOQuery5.SQL.Text:='SELECT * FROM Table1';
AdoQuery5.Open;
end;

procedure TForm1.BitBtn2Click(Sender: TObject); {удалить запись}
begin
ADOQuery4.Active:=false;
ADOQuery4.Parameters.ParamByName('ID_Code').Value:=StrToInt(Edit5.Text);
ADOQuery4.Active:=true;
ADOQuery5.SQL.Text:='SELECT * FROM Table1';
ADOQuery5.Open;
end;

procedure TForm1.FormCreate(Sender: TObject); {процедура просмотра содержимого всех полей таблицы}
begin
ADOQuery5.SQL.Text:='SELECT * FROM Table1';
end;
Помогите пожалуйста исправить ошибки! Грустный
Записан
3V
Администратор
Ветеран
*****
Офлайн Офлайн

Сообщений: 1347



Просмотр профиля WWW
« Ответ #1 : 15 Октябрь 2010, 20:32:32 »

Насколько я понимаю ADO, оно ругается из-за того, что возвращаются не наборы записей, а служебные сообщения от провайдера или SQL-сервера.

Сейчас пишу, абстрагируясь от делфи, поскольку в нем не силен.

Насчет DELETE. Тут можно использовать не recordset, а command: Execute Method (ADO Command), если охота удалять именно запросом типа "DELETE таблица WHERE ..." (можно удалять несколько записей сразу по условию).
В делфи тип будет, наверно TADOCommand.

Либо же, надо открыть recordset с параметром adOpenKeyset, либо adOpenDynamic и удалять записи средствами рекордсета. У него есть метод Delete, удаляющий текущую запись. Но тут - по одной записи.


Для UPDATE можно также использовать объект command (формировать запрос вида "UPDATE таблица SET поле1 = значение1, поле2 = значение2, ... where условие"), либо использовать recordset, открытый как adOpenKeyset, либо adOpenDynamic, заносить значения в объекты полей и вызывать метод рекордсета Update.
« Последнее редактирование: 15 Октябрь 2010, 20:34:29 от 3V » Записан

Первокурсница
Интересующийся
**
Офлайн Офлайн

Сообщений: 14



Просмотр профиля
« Ответ #2 : 15 Октябрь 2010, 22:22:46 »

Спасибо! =*
Записан
Страниц: [1]   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2015, Simple Machines Valid XHTML 1.0! Valid CSS!