Подскажите ошибку в коде

@OgoKakoiParen · Регистрация: 30.05.2016

Author24 — интернет-сервис помощи студентам

Здравствуйте! Не могли бы Вы подсказать, где я допускаю ошибку в коде? Заранее благодарен)

Delphi

unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ADODB, DB, Grids, DBGrids, DateUtils;
 
type
  TForm2 = class(TForm)
    con1: TADOConnection;
    ds1: TADODataSet;
    dbgrd1: TDBGrid;
    ds2: TDataSource;
    qry1: TADOQuery;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
  aperiod: Integer;
  adate: TDateTime;
 
implementation
 
{$R *.dfm}
 
procedure TForm2.FormCreate(Sender: TObject);
begin
qry1.Parameters.ParamByName('adate').asTDateTime:=Today();
qry1.Parameters.ParamByName('aperiod').asInteger:=7;
qry1.Open
 
end;
 
end.

@Пытливый · 13.05.2022, 17:21

OgoKakoiParen не надо нарушать правил форума, залезая в чужую тему со своим вопросом. Сделайте свою тему и там задайте вопрос.
А по вашему коду, совершенно не видно, что же у вас лежит в qry1.SQL, какая ошибка возникает и в какой строке.
ПС: Задача в теме визуально решается несколько иначе.

@Grossmeister · 13.05.2022, 17:40

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

где я допускаю ошибку в коде?

Сначала отлаживай свой запрос без Delphi, и только потом пихай в программу. Сильно облегчает жизнь. В любой СУБД есть программы, которые позволяют послать запрос и получить ответ

@Gluck99 · 13.05.2022, 22:45

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

где я допускаю ошибку в коде?

В каком коде?

@Пытливый 3759 / 2263 / 705 Регистрация: 29.05.2013 Сообщений: 9,613
	13.05.2022, 17:21	2
	OgoKakoiParen не надо нарушать правил форума, залезая в чужую тему со своим вопросом. Сделайте свою тему и там задайте вопрос. А по вашему коду, совершенно не видно, что же у вас лежит в qry1.SQL, какая ошибка возникает и в какой строке. ПС: Задача в теме визуально решается несколько иначе. 0

@Grossmeister 4217 / 3058 / 583 Регистрация: 21.01.2011 Сообщений: 13,205
	13.05.2022, 17:40	3
	Сообщение от OgoKakoiParen где я допускаю ошибку в коде? Сначала отлаживай свой запрос без Delphi, и только потом пихай в программу. Сильно облегчает жизнь. В любой СУБД есть программы, которые позволяют послать запрос и получить ответ 0

@Gluck99 395 / 231 / 86 Регистрация: 28.04.2022 Сообщений: 1,166
	13.05.2022, 22:45	4
	Сообщение от OgoKakoiParen где я допускаю ошибку в коде? В каком коде? 0