VPF::SQLConnection1.Execute -> StringGrid1 - Форум программистов

xoslv

Дата 22.12.2007, 19:39 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 195
Регистрация: 12.1.2007

Репутация: нет
Всего: нет

Уважаемые програмисты!
Огромнейшая просьба помоч.
Изучил DRKB 3, не помогает....

Нужно разложить полученные данные в StringGrid или в DBGrid.
Вот мой код.

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBXpress, DB, SqlExpr, StdCtrls, FMTBcd, DBClient, Grids,
  DBGrids, Calendar, CRGrid, DBTables;

type
  TForm1 = class(TForm)
    SQLConnection1: TSQLConnection;
    Button1: TButton;
    Button2: TButton;
    Calendar1: TCalendar;
    Button3: TButton;
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  connected: Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  SQLConnection1.Connected := True;
  SQLConnection1.ConnectionName := 'SQL';
  SQLConnection1.Execute('SELECT * FROM users', nil, StringGrid1);
//  StringGrid1.Create(Self);
end;

end.

Как надо расписать StringGrid, чтобы он заработал?
Любой помощи буду благодарен!
smile

--------------------

Не всё то маздай, что синее!

Anark1

Дата 22.12.2007, 23:14 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 622
Регистрация: 15.12.2006
Где: RF -> Moscow

Репутация: 1
Всего: 11

А почему нельзя выполнить запрос через квери ?

Код


Str, fld1, fld2, fld3 : String;
...
Str := 'SELECT field1, field2, field3 FROM mytable';
ADOQuery1.SQL.Add(Str);
ADOQuery1.Open;
...

А дальше можно читать записи или из датасета, или конкретную запись из грида.

Код


...
fld1 := DBGrid1.Columns.Items[0].Field.CurValue;
fld2 := DBGrid1.Columns.Items[1].Field.CurValue;
fld3 := DBGrid1.Columns.Items[2].Field.CurValue;
...

или

Код


...
fld1 := ADOQuery1.FieldByName('field1');
fld2 := ADOQuery1.FieldByName('field2');
fld3 := ADOQuery1.FieldByName('field3');
...

Просто не совсем понял что требуется.

--------------------

Enjoy yourself, still you can...;)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »