Jump to content

tobenschain

Members
  • Content Count

    43
  • Joined

  • Last visited

Everything posted by tobenschain

  1. tobenschain

    FireDAC open error

    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;
  2. tobenschain

    FireDAC open error

    backup worked
  3. tobenschain

    FireDAC open error

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

    corrupt primary key?

    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?
  5. tobenschain

    corrupt primary key?

    where is charset specified?
  6. tobenschain

    corrupt primary key?

    using the default
  7. tobenschain

    key is temporary

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

    key is temporary

    thanks i was calling CreateTable before defining index
  9. tobenschain

    Borland Database Engine

    I am unable to find download of BDE for XE7
  10. tobenschain

    delete record

    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;
  11. tobenschain

    delete record

    that worked thanks
  12. tobenschain

    FireDAC open error

    couldn't get it to work
  13. tobenschain

    FireDAC open error

    i got it to work and it's free
  14. tobenschain

    FireDAC open error

    I need to somehow reinstall the FireBird Data Explorer
  15. tobenschain

    FireDAC open error

    the colon appears in Data Explorer
  16. tobenschain

    FireDAC open error

    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
  17. tobenschain

    FireDAC open error

  18. tobenschain

    FireDAC open error

    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;
×