tobenschain

I'm getting "no such table" on the second.

I can't understand why this doesn't work Using FireDAC with SQLite and TFDTable, this returns RecNo of -1 findkeyw := '8F'; ABudSys_DB.IndexFieldNames := 'key'; ABudSys_DB.IndexName := 'KeyIdx'; ABudSys_DB.FindNearest([findkeyw]); This also returns RecNo of -1 findkeyw := '8F30'; ABudSys_DB.IndexFieldNames := 'key'; ABudSys_DB.IndexName := 'KeyIdx'; if ABudSys_DB.FindKey([findkeyw]) then File has for index 8A43 8F30 8F31

good to go thanks

KeyIdx is primary and unique other settings:

CachedUpdates false FetchOptions.Unidirectional false FetchOptions.CursorKind ckAutomatic FetchOptions.LiveWindowParanoic false

BudSys_DB.Params.RecordCountMode := cmTotal; doesn't help

I do not understand why I am getting [FireDAC][Stan][Def]-254. Definition [C:\Prog2\employee.fdb] is not found in [C:\WINDOWS\FDConnectionDefs.ini] This is C:\WINDOWS\FDConnectionDefs.ini [EMPLOYEE] DriverID=FB Protocol=TCPIP Database=C:\Prog2\employee.fdb User_Name=sysdba Password=masterkey CharacterSet= ExtendedMetadata=True I am using XE7. This is my code var out_Table: TFDTable; out_Connection: TFDConnection; begin out_Table := TFDTable.Create(Application); with out_Table, FieldDefs do begin Clear; Add('key',ftString, 51); Add('data',ftString, 32{000}); Add('control',ftString, 32{000}); TableName := out_Table.Name; Convert := TConvert.Create(Application); Connection := Convert.FDConnection1; Active := true; end;

backup worked

i can create a sqlite file in memory but I cannot save it to disk

Using FireDAC i created a Fire Bird table. I use Next command to go through the entire file of 6,000 records. The keys essentially go like this: 'B040' 'B060' 'B070' 'Xƒ0000' 'Xƒ0010' 'Xƒ0020' 'X‡62170' 'X‡62180' 'X‡62190' 'Xˆ001' 'Xˆ002' 'Xˆ003' For some reason the Next command pulls up 'Xƒ0000' for a second time after 'X‡62190'. Are extended ASCII codes allowed?

where is charset specified?

using the default

using FireDAC i am creating a table at runtime with a primary key. how do i make the key permanent ?

thanks i was calling CreateTable before defining index

I am unable to find download of BDE for XE7

I am unable to delete a record. I get '[FireDAC][Phys][FB]-312. Exact update affected [0] rows, while [1] was requested'. This is my code using TFDTable BudSys_DB.Active := true; BudSys_DB.RecNo := recnum; BudSys_DB.Delete; This gives the same error if BudSys_DB.Locate('KEY', sysp^.key, []) then begin BudSys_DB.Delete; del_sys := true; end;

that worked thanks

couldn't get it to work

i got it to work and it's free

I need to somehow reinstall the FireBird Data Explorer

the colon appears in Data Explorer

unit2.dfm: object Form2: TForm2 Left = 0 Top = 0 Caption = 'Form2' ClientHeight = 411 ClientWidth = 710 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object DBNavigator1: TDBNavigator Left = 68 Top = 39 Width = 240 Height = 25 TabOrder = 0 end object DBGrid1: TDBGrid Left = 18 Top = 83 Width = 675 Height = 311 DataSource = DataSource1 TabOrder = 1 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'Tahoma' TitleFont.Style = [] end object DataSource1: TDataSource DataSet = FDTable1 Left = 345 Top = 36 end object Cprog2employeefdbConnection: TFDConnection Params.Strings = ( 'ConnectionDef=EMPLOYEE') LoginPrompt = False Left = 103 Top = 159 end object FDTable1: TFDTable Connection = Cprog2employeefdbConnection Left = 244 Top = 163 end end

Now I get '[FireDAC][Phys][FB]I/O error during "CreateFile (open)" operation for file ":C:\Prog2\employee.fdb" Error while trying to open file The filename, directory name, or volume label syntax is incorrect. I set ConnectionDefName. I posted the wrong .pas code. It is now type TForm2 = class(TForm) DBNavigator1: TDBNavigator; DataSource1: TDataSource; Cprog2employeefdbConnection: TFDConnection; FDTable1: TFDTable; procedure FormCreate(Sender: TObject); end; procedure TForm2.FormCreate(Sender: TObject); begin with FDTable1, FieldDefs do begin Clear; Add('key',ftString, 10); Add('data',ftString, 32{000}); Add('control',ftString, 32{000}); end; Cprog2employeefdbConnection.Connected := true; end;