StringGridのデータ取得に関して (ID：34843)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

DBはSQLServerです。
procedure TForm1.TabControl1Change(Sender: TObject);
var
  INT : Integer;
  SQL1,SQL2 : String;
begin

SQLA := 'SELECT コード,'       +
        '        名称,'         +
        '        区分,'         +
        '   FROM テーブル’

case TabControl1.TabIndex of
    0://名称順
    begin
      ADOQuery1.SQL.Text := SQLA + 'ORDER BY カナ名'
    end;
    1:あ
    begin
      SQLB := 'WHERE LEFT(名称,1) BETWEEN ''ア'' AND ''オ''' +
              '  AND LEFT(名称,1) BETWEEN ''ァ'' AND ''ォ''';
      ADOQuery1.SQL.Text := SQLA + SQLB;
    end;
    2://か
    begin
      SQLB := 'WHERE LEFT(名称,1) BETWEEN ''カ'' AND ''コ''';
      ADOQuery1.SQL.Text := SQLA + SQLB;
    end;
    3://さ
    EN ''マ'' AND ''モ''';
      ADOQuery1.SQL.Text := SQLA + SQLB;
    end;
    ｛省略｝

end;

INT := 0;
  ADOQuery1.open;
  if ADOQuery1.eof = False then begin
     StringGrid1.RowCount := ADOQuery1.RecordCount + 1;
     end;
  while ADOQuery1.eof = False do begin
    Inc(INT);
    StringGrid1.Cells[ 1, INT ] := ADOQuery1.FieldByName('コード').AsString;
    StringGrid1.Cells[ 2, INT ] := ADOQuery1.FieldByName('名称').AsString;
    StringGrid1.Cells[ 3, INT ] := ADOQuery1.FieldByName('区分').AsString;
  ADOQuery1.next;
  end;
  ADOQuery1.close;

end;

といった感じなのですが・・・

←解決時は質問者本人がここをチェックしてください。

戻る