名前
題名
▼ Mr.XRAYさん > > 古い，つまり Ansi 版の Delphi にも 古いバージョンの ZeosLib をインストールできる． > > 以下，略 > とまあ，こう書いたのですが，個人的には悔しいわけです． > で，igy さんの foreign_keys の書き込みを読んで思ったのです． > そうだ，なるべく新しいバージョンの ZeosLib だ !! > 探しました．ありました．7.1.2 です． > Delphi 7 Pro にインストールできました !! (^o^) > 前のは 6.6.6 てす． > > Paradox の接続の時に > > ZConnection1.Properties.Clear; > ZConnection1.Properties.Add('AutoEncodeStrings=ON'); > ZConnection1.Properties.Add('controls_cp=CP_UTF16'); > > と言う処理をしているのですが， > これは，Paradox は Shift-JIS なわけです． > それで，コードページは自動検出，Paradox を使うアプリは Delphi XE ですから， > コードページはユニコードです． > > ところが，ZeosLib 6.6.6 ではこれが使えないのです． > ZeosLib 7.1.2 にはありました !! > ライブラリ (DLL) の場所も指定できます． > > やってみました．見事に表示できました !! > Windows 7 U64(SP1) + Delphi 7 Pro + ZeosLib 7.1.2 + SQLite 3.8.7 です． > > やったぜい ! ざまあみろ !! > > > //============================================================================= > // フォームを閉じる時の処理 > //============================================================================= > procedure TForm1.FormDestroy(Sender: TObject); > begin > ZQuery1.Close; > ZConnection1.Disconnect; > end; > > //============================================================================= > // ZeosLibを使用してSQLiteのデータベースに接続 > //============================================================================= > procedure TForm1.Button1Click(Sender: TObject); > var > FDBName : string; > FTableName : string; > begin > ZConnection1.LibraryLocation := ExpandFileName('..\sqlite3.dll'); > > //TDataSource,TDBGridの設定 > DataSource1.DataSet := ZQuery1; > DBGrid1.DataSource := DataSource1; > > > FDBName := ExpandFileName('..\AddressBook_A.db3'); > FTableName := 'AddressTBL'; > > //念のため接続を切断してから設定 > ZQuery1.Close; > ZConnection1.Disconnect; > ZConnection1.LoginPrompt := False; > > ZConnection1.Protocol := 'sqlite-3'; > ZConnection1.Database := FDBName; > > ZConnection1.Properties.Clear; > ZConnection1.Properties.Add('AutoEncodeStrings=ON'); > ZConnection1.Properties.Add('controls_cp=CP_20932'); > > //データベースへ接続 > ZConnection1.Connect; > > //TZQueryの設定 > ZQuery1.Connection := ZConnection1; > ZQuery1.Close; > ZQuery1.SQL.Clear; > ZQuery1.SQL.Add('select * from ' + FTableName); > > //クエリの実行 > ZQuery1.Open; > > //日付型は書式を設定してみる > (ZQuery1.FieldByName('生年月日') as TDateTimeField).DisplayFormat := 'ggee年mm月dd日'; > > DBGrid1.Columns[0].Width := 30; > DBGrid1.Columns[1].Width := 90; > DBGrid1.Columns[3].Width := 160; > end; > >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link