---

Hej NG.

Jeg vil gerne lave en fælles rutine til at eksportere data fra flere
forskellige databaser til en tekstfil.

Der er jeg stødt på et problem, som jeg ikke lige kan gennemskue:

Jeg har forestillet mig proceduren defineret således:
procedure GemDatabase(DbNavn, FieldArray : String);
Var S, TmpStr : String;

Her er DbNavn navnet på databasen, FieldArray er en kommasepareret streng
til at angive, hvilken datatype et felt indeholder (I=Integer, S=String,
D=DateTime og B=Blob). Ud fra bogstavet konverteres feltindholdet til en
streng, hvilket ikke er vist i det følgende.

Indholdet af DbNavn er 'EjendomsForm.tbAdresser'.
Hvordan får jeg ved hjælp af DbNavn lavet det sådan, at jeg kan få udført
følgende kommandoer:

EjendomsForm.tbAdresser.First;
While not EjendomsForm.tbAdresser.Eof do
Begin
S := EjendomsForm.tbAdresser['KommuneNr'];
//og flere lignende linier
Memo1.Lines.Add(S);
EjendomsForm.tbAdresser.Next;
End;

Jeg kan opbygge udsagnet ved hjælp af TmpStr, men hvordan får jeg denne
streng udført?

Mvh Kurt

---

Kurt G skrev:
> Hej NG.
>
> Jeg vil gerne lave en fælles rutine til at eksportere data fra flere
> forskellige databaser til en tekstfil.
>
> Der er jeg stødt på et problem, som jeg ikke lige kan gennemskue:
>
> Jeg har forestillet mig proceduren defineret således:
> procedure GemDatabase(DbNavn, FieldArray : String);
> Var S, TmpStr : String;
>
> Her er DbNavn navnet på databasen, FieldArray er en kommasepareret streng
> til at angive, hvilken datatype et felt indeholder (I=Integer, S=String,
> D=DateTime og B=Blob). Ud fra bogstavet konverteres feltindholdet til en
> streng, hvilket ikke er vist i det følgende.
>
> Indholdet af DbNavn er 'EjendomsForm.tbAdresser'.
> Hvordan får jeg ved hjælp af DbNavn lavet det sådan, at jeg kan få udført
> følgende kommandoer:
>
> EjendomsForm.tbAdresser.First;
> While not EjendomsForm.tbAdresser.Eof do
> Begin
> S := EjendomsForm.tbAdresser['KommuneNr'];
> //og flere lignende linier
> Memo1.Lines.Add(S);
> EjendomsForm.tbAdresser.Next;
> End;
>
> Jeg kan opbygge udsagnet ved hjælp af TmpStr, men hvordan får jeg denne
> streng udført?
>
> Mvh Kurt
>
>

Hej Kurt,

Du skal i funktionen/procrduren have en TTable.

code:
procedure doStuff
ATable : TDataSet;
begin
ATable := TDataSet.Create;
ATable := >>Din DBConnector<<
Atable = DbNavn;
ATable.Open;
ATable.First;
while not Atable.EOF Do Begin
S := ATable.Field[FieldName/Index].asString;
... (Flere data)
Memo1.Lines.Add(S);
end;
end;

Nu er det ikke ligefrem testet men noget i den stil ville jeg gøre.

---

"Toke Herkild" <th@concare.net> skrev i en meddelelse
news:46c0269f$0$93295$edfadb0f@dread16.news.tele.dk...
> Kurt G skrev:
----Klip-----
>> Mvh Kurt
>>
>>
>
> Hej Kurt,
>
> Du skal i funktionen/procrduren have en TTable.
>
> code:
> procedure doStuff
> ATable : TDataSet;
> begin
> ATable := TDataSet.Create;
> ATable := >>Din DBConnector<<
> Atable = DbNavn;
> ATable.Open;
> ATable.First;
> while not Atable.EOF Do Begin
> S := ATable.Field[FieldName/Index].asString;
> ... (Flere data)
> Memo1.Lines.Add(S);
> end;
> end;
>
> Nu er det ikke ligefrem testet men noget i den stil ville jeg gøre.
>
Tak for svaret. Jeg vil prøve det, når jeg igen har fundet mine ben efter
ferie!
Mvh Kurt

---

"Toke Herkild" <th@concare.net> skrev i en meddelelse
news:46c0269f$0$93295$edfadb0f@dread16.news.tele.dk...
> Kurt G skrev:
>> Hej NG.
>> Jeg vil gerne lave en fælles rutine til at eksportere data fra flere
>> forskellige databaser til en tekstfil.
---klippet---
>> Mvh Kurt
>
> Hej Kurt,
>
> Du skal i funktionen/procrduren have en TTable.
>
> code:
> procedure doStuff
> ATable : TDataSet;
> begin
> ATable := TDataSet.Create;

---- Her kommer compileren med en melding om, at den kræver flere parametre.
---- Jeg har kigget i hjælpen, men det har ikke bragt mig videre.
---- Hvilke parametre skal der yderligere med?

> ATable := >>Din DBConnector<<
> Atable = DbNavn;
> ATable.Open;
> ATable.First;
> while not Atable.EOF Do Begin
> S := ATable.Field[FieldName/Index].asString;
> ... (Flere data)
> Memo1.Lines.Add(S);
> end;
> end;
>
> Nu er det ikke ligefrem testet men noget i den stil ville jeg gøre.
>

Mvh Kurt

---

Kurt G skrev:
> "Toke Herkild" <th@concare.net> skrev i en meddelelse
> news:46c0269f$0$93295$edfadb0f@dread16.news.tele.dk...
>> Kurt G skrev:
>>> Hej NG.
>>> Jeg vil gerne lave en fælles rutine til at eksportere data fra flere
>>> forskellige databaser til en tekstfil.
> ---klippet---
>>> Mvh Kurt
>> Hej Kurt,
>>
>> Du skal i funktionen/procrduren have en TTable.
>>
>> code:
>> procedure doStuff
>> ATable : TDataSet;
>> begin
>> ATable := TDataSet.Create;
>
> ---- Her kommer compileren med en melding om, at den kræver flere parametre.
> ---- Jeg har kigget i hjælpen, men det har ikke bragt mig videre.
> ---- Hvilke parametre skal der yderligere med?
>
>> ATable := >>Din DBConnector<<
>> Atable = DbNavn;
>> ATable.Open;
>> ATable.First;
>> while not Atable.EOF Do Begin
>> S := ATable.Field[FieldName/Index].asString;
>> ... (Flere data)
>> Memo1.Lines.Add(S);
>> end;
>> end;
>>
>> Nu er det ikke ligefrem testet men noget i den stil ville jeg gøre.
>>
>
> Mvh Kurt
>
>
hmm.. prøv at skrive:
ATable := TDataSet.Create(
Og se hvilke parametre den beder om. Kan ikke lige huske om den skal
have en owner eller andre ting med.

---

>>> ATable := TDataSet.Create;
>>
>> ---- Her kommer compileren med en melding om, at den kræver flere
>> parametre.
>> ---- Jeg har kigget i hjælpen, men det har ikke bragt mig videre.
>> ---- Hvilke parametre skal der yderligere med?
>>

>> Mvh Kurt
>>
>>
> hmm.. prøv at skrive:
> ATable := TDataSet.Create(
> Og se hvilke parametre den beder om. Kan ikke lige huske om den skal have
> en owner eller andre ting med.

Joh, det vil den gerne. Men der er vist noget, jeg skal have læst på, for
det siger mig ikke rigtig noget. Jeg aner ikke, hvad jeg skal skrive!
/Kurt