名前
題名
▼ Mr.XRAYさん > > やっている途中で， jgy さんのこの書き込み読みました．ハハハッ． > > この設定をしないと確かに日本語が表示されませんね．なるほど． > > ありがとうございます． > > > > FireDAC を使用すると簡単なんですね． > > Delphi XE5 をインストールしていてよかった ... (^^; > > 他の方の参考にコードと結果を掲載しておきます． > 動作確認は Windows 7 U64(SP1) + Delphi XE5(UP2) Prp です． > コードはほとんどオンラインヘルプの丸写しですが... > > > procedure TForm1.Button1Click(Sender: TObject); > var > LDBFileName : string; > LTableName : string; > begin > FDConnection1.Connected := False; > > LDBFileName := ExpandFileName('..\AddressBook_A.db3'); > LTableName := 'AddressTBL'; > > FDConnection1.LoginPrompt := False; > > FDConnection1.Params.Clear; > FDConnection1.Params.Add('DriverID=SQLite'); > FDConnection1.Params.Add('Database=' + LDBFileName); > FDConnection1.Params.Add('StringFormat= Unicode'); > > FDPhysSQLiteDriverLink1.VendorLib := ExpandFileName('..\sqlite3.dll'); > > FDQuery1.Close; > FDQuery1.Connection := FDConnection1; > > FDQuery1.SQL.Clear; > FDQuery1.SQL.Add('select * from ' + LTableName); > > FDQuery1.Open; > > DBGrid1.Columns[0].Width := 30; > DBGrid1.Columns[1].Width := 100; > DBGrid1.Columns[2].Width := 70; > end; > >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link