18. december 1999 - 14:33
Der er
1 kommentar og
1 løsning
DATABASE
Jeg har to små spørgsmål:
1) Når man bruger BDE til en MS Access database er det så muligt at slippe for at skulle trykke op hver gang man starter sin application (den spørger om brugernavn og password)?
2) Jeg vil gerne have et eksempel på hvordan man insætter en ny linje og putter informationer i den. via TTabel når man bruger en MS Access database!
Håber i kan hjælpe mig!
Kokoko
19. december 1999 - 13:38
#1
Jeg har to små spørgsmål:
1) Når man bruger BDE til en MS Access database er det så muligt at slippe for at skulle trykke op hver gang man starter sin application (den spørger om brugernavn og password)?
Brug en TDataBase component på dit DataModule.
Hook dets properties op, således at:
- 'AliasName' peger på dit Access Alias.
- 'DatabaseName' udfyldes med et passende navn, fx. 'Local'
- 'LoginPrompt' sættes til False.
I alle de tabeller, der skal connectes til denne database, sætter du 'DatabaseName' propertyen til 'Local' (Eller hvad du nu kaldte dit locale "alias" i TDatabase componenten.
2) Jeg vil gerne have et eksempel på hvordan man insætter en ny linje og putter informationer i den. via TTabel når man bruger en MS Access database!
På samme måde som med en Paradox tabel - der er ingen forskel på brugen af en Paradox eller Access tabel hvad dette angår.
Jeg har fx. en Access database, hvori der er en tabel kaldet 'Player'. Denne tabel indeholder bl.a. felterne 'PlayerNo', 'PlayerName' og 'Adresse'.
Hvis jeg ville lave en lille rutine, der indsætter en post i denne tabel, så kunne det fx. gøres således:
procedure TForm1.Button1Click(Sender: TObject);
begin
// Opret ny record/post og sæt tabel i insert mode.
Table1.Append;
// Indsæt de forskellige felters værdier i den nye post
Table1.FieldByName('PlayerNo').AsInteger := 100;
Table1.FieldByName('PlayerName').AsString := 'Anders And';
Table1.FieldByName('Adresse').AsString := 'Paradisæblevej 13';
// Alslut den nye post og gør ændringerne permanente.
Table1.Post;
end;
Normalt vil jeg dog benytte din tabellers Field editor (højre- eller dobbeltclick på din Ttable) for på den måde at oprette fields.
I ovenstående tilfælde ville linien:
Table1.FieldByName('PlayerName').AsString := 'Anders And';
således kunne erstattes med:
Table1PlayerName.AsString := 'Klaus Kludder';
NiP