Login ProductsSalesSupportDownloadsAbout |
Home » Technical Support » DBISAM Technical Support » Incident Reports » Incident Reports Reported for Version 4.27 » View Incident Report |
Serious |
Reported By: Gary Shipley Reported On: 5/19/2009 For: Version 4.27 Build 5 |
Unit Unit2; Interface Uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, dbisamtb, Grids, DBGrids, StdCtrls; Const sesName = 'mySession'; dbmName = 'myDB'; Type TForm2 = Class(TForm) theTable: TDBISAMTable; theDB: TDBISAMDatabase; dSession: TDBISAMSession; DataSource1: TDataSource; Button1: TButton; DBGrid1: TDBGrid; Procedure Button1Click(Sender: TObject); Private { Private declarations } Public { Public declarations } End; Var Form2: TForm2; Implementation {$R *.dfm} Procedure TForm2.Button1Click(Sender: TObject); Begin With dSession Do Begin PrivateDir := 'C:\Temp\scratch\'; SessionName := sesName; SessionType := stLocal; Active := True; AddPassword('3674ECEA180C45928276DFAFBACEA917B8598304A'+ '69D49BC8887DA0CA084BAAE7DD4DEEAF16E4BA59B81'+ 5A4EC94792B614E46BA31960410DBABDB329D9613DE5'); End; With theDB Do Begin KeepConnection := False; KeepTablesOpen := False; DatabaseName := dbmName; SessionName := sesName; Directory := 'C:\Temp\'; Connected := True; End; With theTable Do Begin DatabaseName := dbmName; SessionName := sesName; IndexName := 'idxDescription'; TableName := 'LibList'; Open; End; End; End.
This web page was last updated on Tuesday, April 23, 2024 at 08:39 AM | Privacy PolicySite Map © 2024 Elevate Software, Inc. All Rights Reserved Questions or comments ? E-mail us at info@elevatesoft.com |