Text til Paradox

Virkede det ikke det jeg ga\' dig

Hvorfor vil du konvetere den til en Paradox DB når du kan søge i den RÅ text mindst lige så huttigt ?

Jens B

Eller hvorfor konvertere det til en ParadoxDB når det allerede kommer fra en ParadoxDB.

Du kan bruge DataBase Desktop som følger med Delphi til at ændre på dine felt typer.

f.eks Char til Int osv.

endvidere kan du bruge samme program til at sætte et keyfield på DB\'en hvis det stadig er det du mangler

/Morten

Hvad er du ude i, det er jo paradox, og det er importeret, du fik eks. på det af mig og enda for 60 point, hvad er det præcis du gerne vil ????

De data der ligge i voice.txt skal lægges over i aqua.db // Det er såmen det!

Jamen det lavede jeg da et program der kunne, kunne du ikke få det til at virke ??

martinlind >> Nej!

Kan du ikke lige maile kode til mig, igen så skal jeg nok kigge på det martin@e-lind.dk, jeg har ikke delphi kode mere

/Martin

Her er Unit1.pas :
-----------------
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, DBTables, StdCtrls;

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    Table1: TTable;
    DBGrid1: TDBGrid;
    Table2: TTable;
    Button1: TButton;
    DBGrid2: TDBGrid;
    DataSource2: TDataSource;
    Table2Felt1: TIntegerField;
    Table2Felt2: TIntegerField;
    Table2Felt3: TIntegerField;
    Table2Felt4: TIntegerField;
    Table2Felt5: TIntegerField;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Table2.CreateTable;
  Table1.Active := TRUE;
  Table2.Open;
  Table2.BatchMove(Table1,batCopy);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Table1.Close;
  Table2.Close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Table1.DatabaseName := ExtractFilePath(Application.ExeName);
  Table2.DatabaseName := ExtractFilePath(Application.ExeName);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Table1.Open;
end;

end.
-----------------
og her er form filen som text :
-----------------
object Form1: TForm1
  Left = 277
  Top = 121
  Width = 747
  Height = 538
  Caption = \'Form1\'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = \'MS Sans Serif\'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 10
    Top = 10
    Width = 321
    Height = 441
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = \'MS Sans Serif\'
    TitleFont.Style = []
  end
  object Button1: TButton
    Left = 295
    Top = 465
    Width = 75
    Height = 25
    Caption = \'>>>\'
    TabOrder = 1
    OnClick = Button1Click
  end
  object DBGrid2: TDBGrid
    Left = 340
    Top = 10
    Width = 386
    Height = 441
    DataSource = DataSource2
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = \'MS Sans Serif\'
    TitleFont.Style = []
  end
  object Button2: TButton
    Left = 20
    Top = 460
    Width = 75
    Height = 25
    Caption = \'Åben TextFil\'
    TabOrder = 3
    OnClick = Button2Click
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 30
    Top = 55
  end
  object Table1: TTable
    DatabaseName = \'F:\\\'
    TableName = \'voice\'
    TableType = ttASCII
    Left = 70
    Top = 55
  end
  object Table2: TTable
    DatabaseName = \'F:\\txt2db\'
    TableName = \'AQUA\'
    TableType = ttParadox
    Left = 500
    Top = 45
    object Table2Felt1: TIntegerField
      FieldName = \'Felt1\'
    end
    object Table2Felt2: TIntegerField
      FieldName = \'Felt2\'
    end
    object Table2Felt3: TIntegerField
      FieldName = \'Felt3\'
    end
    object Table2Felt4: TIntegerField
      FieldName = \'Felt4\'
    end
    object Table2Felt5: TIntegerField
      FieldName = \'Felt5\'
    end
  end
  object DataSource2: TDataSource
    DataSet = Table2
    Left = 405
    Top = 120
  end
end
-----------------

Og det virker, har testet :)

/Martin

Det skulle også virke i D4

/Martin

martinlind >> Hvad er den letteste måde at få den ind i Delphi på??

Copy-paste, når du har pastet form kode ind i delphi editoren, højre-kliker du og siger \"view as form\" så skulle du få en alm form ud af det

Nej jeg sender sku lige lortet til dig :)

martinlind >> Jeg kan ikke åbne projektet, jeg får fejlen \"invalid stream format\"

Så må du bruge copy og paste, lav et nyt project
og kopier unit1 koden ind istedet for den der står, og højre klik på formen og sig \"view as text\" fjern koden og kopier min form kode ind i stedet for, højre klik og sig \"view as form\", så burde du for en form med min kode og noget du kan kompilere

/Martin

Det løser ikke mit problem, jeg skal have lagt voice.txt ind i en eksistrende database!

Fjern denne line fra knappen \'>>>>\'

// Table2.CreateTable;

Den overskriver den gamle database!

Så kan du ændre denne line til en mode der passer

Table2.BatchMove(Table1,batCopy);

Modes :

batAppend    Append all records from the source table to the end of destination table. The destination and source tables must not have records with duplicate keys.
batAppendUpdate    If a matching record exists in the destination table, replace it with the corresponding record from the source table. Otherwise, append records to the destination table. The destination table must have an index defined for matching records.
batCopy    Copy the structure and records from the source table into the destination table. If the destination table already exists,delete it, and replace it with the new copy of the source.

batDelete    Delete all records in the destination table that also appear in the source table.
batUpdate    If a matching record exists in the destination table, replace it with the corresponding record from the source table. The destination table must have an index defined for matching records.

du skal evt. bruge batAppend, eller batAppendUpdate

Batappend virker ikke ordenligt! Den ligger data\'en ind i de forkerte felter!

Det lyder mærkeligt, den virker fint hos mig

/Martin

Har du prøvet at lægge den ind i min database? (aqua.db)

Ja, det også det den kode jeg har givet dig gør.

object Table2: TTable
    DatabaseName = \'F:\\txt2db\'
>>> TableName = \'AQUA\' <<<<<
    TableType = ttParadox
   

/Martin

Du kan udvide det med en BatchMove comp. der kan du lave en Fieldmap liste

Felt1 -->> Felt3

osv.

/Martin

Er det den der hedder \"mappings\" og skal de stå lige som du har skrevet det \"-->>\"??

Hvad blev der af mit oprindelige spørgsmål om HVORFOR en DB ?

Jens B

Ja, og nej jeg mener det skal stå sådan :

Felt1=Felt3

/Martin

borrisholt >> Fordi jeg læser til og fra et gammelt stykke software!

martinlind >> Jeg kan ikke få skidtet til at virke, og jeg har siddet og bixet med det i flere dage.

Kan du lave programmet til mig inden kl.4?

Jeg kan lige kigge på det, hvordan skal feltmapningen se ud ??

/Martin

Hvis du henter filerne så kan du se det: http://www.spacecave.dk/chc/txt2db.zip

Jeg har fundet ud af det, og kigger lige på det *S*

Det lyder godt!

Hvad hvis Kontrolnummeret findes i forvejen, skal de andre værdier så opdateres eller skal det springes over

Så skla den opdatere

Ok, jeg har lavet en checkbox og sender det nu !

Ok der virker! men gider du at lave et par småting mere?

Hvad er det, og hvad siger point\'ne *S*

Det bliver ikke nu med mindre det er meget hurtigt

Nå så skidt...

Jeg vil installere Delphi 6 i morgen så kan jeg nok godt åbne projektet!

ok, så kan du selv lige rette, får du problemer kan du droppe en mail, ellers kan du tage koden fra unit1.pas så kan du se hvad jeg har gjort, jeg har droppe batchmove og gjort det manuelt

Tak for hjælpen (jeg føler mig fattig)

Op med humøret ( du må ind og svare på nogle spm så du kan få lidt flere point )

Tak