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

@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

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

В каком коде?

Новые блоги и статьи
Как настроить CI/CD с помощью Jenkins InfoMaster 15.01.2025 Введение в CI/ CD и Jenkins В современной разработке программного обеспечения непрерывная интеграция (CI) и непрерывная доставка (CD) стали неотъемлемыми элементами процесса создания качественных. . .	Как написать микросервис на Go/Golang с Kafka и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# с RabbitMQ, CQRS и CI/CD InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .
Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .	Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .	Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта в Gowin Eda. Восьмибитный счётчик из сумматора+ генератор сигнала. . .	UserScript для подсветки кнопок языков программирования в зависимости от текущего раздела volvo 13.01.2025 В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .	Введение в модели и алгоритмы машинного обучения InfoMaster 12.01.2025 Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .

@Пытливый 3760 / 2264 / 705 Регистрация: 29.05.2013 Сообщений: 9,616
	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 399 / 234 / 87 Регистрация: 28.04.2022 Сообщений: 1,177
	13.05.2022, 22:45	4
	Сообщение от OgoKakoiParen где я допускаю ошибку в коде? В каком коде? 0