まとまりのないブログ

something which something is something

交差運転日記

Delphi : DBGridのデータが(WIDEMEMO)と表示される場合の対処法

投稿日:

組み込みデータベースのsqliteをADOで接続してselectしたテーブルをDBGridにバインドしてみたら、sqliteのTextフィールドの値が表示されないのでかなりハマった。WIDEMEMOって何?とか思っていろいろググってみたが解決方法はわからず。さんざん調べてみて解決方法はどうも2つあるらしい。

  • OnGetTextイベントでテキストの値を変換する
  • OnDrawColumnCellイベントで値を変換する

OnGetTextイベントでやるのが一般的なようだけれど、いや、そのイベントどこのコンポーネントにあるのかわからないんだけど。しょうがないのOnDrawColumnCellイベントの方でやることにする(このイベントはDBGridのイベントでに存在する)。で、コードは適当に外国のサイトにあるのを参考にしてみた。

procedure TmainForm.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if Column.Field.FieldName = ‘comment’ then begin
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.Canvas.TextRect(Rect, Rect.Left, Rect.Top, Column.Field.Value);
end;
end;

コードの内容は、想像に任せる。sqliteのText型がダメなのか?それじゃあfirebirdで試してみたら上手く表示されるのかも・・・とか考えていたら別のDBでも同じようにWIDEMEMOで表示されませんとかそういうネタがあったのでsqlite固有の問題ではないのかもしれない。

delphiを使う限りにおいては、組み込みデータベースはsqliteよりfirebirdの方が相性はいいという情報がちらほらあるが、どうなんだろうか。firebirdはinterbaseが元になっていて、そのinterbaseはBorlandが開発していて、そのBorlandはdelphiを開発していた、だからdelphiとfirebirdは相性がいい、とか。速度の面ではsqliteの方が速いらしい。

念のためfirebirdも試してみる

調べてみると、DBGridに表示させるフィールドの型はvarchar型か、varhcarより大きな場合はmemo型として表示させることになる模様。long varchar型(text)だからこの表示の問題は発生しているので、text型しか扱えないsqliteは扱いにくい。試しにfirebirdでも同様にやってみることにする。

firebirdのインストール

Firebird日本ユーザー会
のダウンロードよりfirebirdのインストールタイプをダウンロード・実行する。バージョンは2.5を選択してみた。
64-bit Classic, Superclassic & Superserver
Firebird-2.5.1.26351_1_x64.exe

firebirdのユーザ作成

  1. firebirdをインストールしたらコマンドプロンプトを起動する。起動したらfirebirdのインストールディレクトリにcdコマンドで移動する
    C:Usersnakahira>cd "C:Program FilesFirebirdFirebird_2_5bin"

  2. binフォルダにあるgsec.exeを使用してfirebirdを利用するアカウントを作成する。
    C:Program FilesFirebirdFirebird_2_5bin>gsec -user sysdba -pass masterkey -add nakahira -pw test
    sysdbaはfirebirdで初期設定されている管理者アカウントで、masterkeyはそのパスワード。そして新しくnakahiraという名前のアカウントとそのアカウントパスワードをtestとして追加する、という意味。
  3. firebirdのデータベースファイルを作成する。スタートメニューのプログラムプログラムから先程インストールしたFirebird ISQL Toolを実行する。するとコマンドプロンプトみたいな画面が表示されるのでデータベースを作成するコマンドを入力する。
    SQL> create database 'C:test.fdb' page_size 8192 user 'nakahira' password 'test';
    これで、Cドライブ直下にtest.fdbというfirebirdのデータベースファイルが作成される。

firebirdにauto incrementが無い件

ここまでやってみて、今更ながらfirebirdにはフィールドにauto increment機能が無いことに気づいた。どうやって主キーとして設定したidの値をカウントアップするのか、と調べてみたらtriggerを設定してみんなやっているらしい。
How to create an autoincrement column?
テーブルが1つや2つならそれでいいかもしれないが、5つや6つやそれ以上の場合もtriggerを設定していかないといけないのだろうか。まいったな。

firebirdならvarchar型があるのでDBGridに問題無く表示させることができる

テストしてみたら問題無かった。ただ、firebirdっていろいろと面倒だ・・・。組み込みのデータベースならMicrosoftのAccessのmdbファイルを使った方が楽な気がしてきた。

-交差運転日記

執筆者:


comment

メールアドレスが公開されることはありません。 が付いている欄は必須項目です

日本語が含まれない投稿は無視されますのでご注意ください。(スパム対策)

関連記事

no image

Delphi : StringGrid使用時にセルの右寄せをすると2重表示などがされる問題

ウィンドウスタイルをカスタムスタイルに変更した場合に2重表示される。標準のWindowsスタイルなら2重表示はされない。 調べたこと 2重表示を回避するには、StringGridのプロパティのDefa …

no image

猫が寝てるところを盗撮

img_0829

no image

WD1601ABYS-18C0A0

Sequential Read : 59.850 MB/s Sequential Write : 35.996 MB/s Random Read 512KB : 17.431 MB/s Random …

no image

読了 戦闘妖精・雪風(改)

戦闘妖精・雪風(改) (ハヤカワ文庫JA) 評判通り,面白かった。他にもグッドラックとアンブロークンアローというのが出てるが,続編だろうか。近いうちにチェックしとかないといけないな。そういえばベタな死 …

no image

java.lang.NoClassDefFoundError: org/openid4java/OpenIDException

クラスが見つからない・・・だと?jarファイルを外部アーカイブとして追加していたのだけれど、参照元をデスクトップにしていたという横着をしているとこのエラーが発生した。tomcatのcommonのlib …