Avatar billede agree21 Nybegynder
07. december 2005 - 20:12 Der er 9 kommentarer og
1 løsning

Data fra ClientDataSet/DBGrid til Labels

Jeg er lige begyndt at rode lidt med ClientDataSet for at lave en lille lokal DB hvor jeg gerne vil vise data på en anden måde end i en DBGrid. Jeg kan godt oprette records i DBGrid, gemme og hente data igen, men kan ikke finde ud af at læse (og senere skrive) data ind i et antal labels.

Nogen der kan hjælpe med en lille kode der viser hvordan man læser/skriver data fra en label til ClientDataSet/DBGrid ?
Avatar billede vallemanden Nybegynder
07. december 2005 - 20:37 #1
du mener edits og ikke labels ikke?
Avatar billede agree21 Nybegynder
07. december 2005 - 20:40 #2
Jo , faktisk begge dele:
Fra ClientDataSet til Label:
Label1.Caption := ClientDataSet. ????
Fra Edits til ClientDataSet:
ClientDataSet. ???? := Edit1.Text;
Avatar billede vallemanden Nybegynder
07. december 2005 - 21:47 #3
nu har jeg ikke prøvet med dataset men måske

Edit1.text:=dataset1.fieldbyname('xxxxyyyy').asstring;
label1.text:=dataset1.fieldbyname('xxxxyyyy').asstring;
og omvendt
Avatar billede agree21 Nybegynder
07. december 2005 - 22:05 #4
Det virker godt nok til en Label:
Label1.Caption := ClientDataSet1.FieldByName('Ny').AsString;

Men

ClientDataSet1.FieldByName('Ny').AsString := Edit1.Text;

kan jeg ikke lige få til at virke
Avatar billede agree21 Nybegynder
07. december 2005 - 22:16 #5
Så fik jeg det til at virke, skulle lige i edit mode først ;-) 
 
ClientDataSet1.Edit;
ClientDataSet1.FieldByName('Ny').Text := '0000';
Avatar billede agree21 Nybegynder
07. december 2005 - 22:21 #6
Hvis du ligger et svar, får du points
Avatar billede vallemanden Nybegynder
08. december 2005 - 09:37 #7
:-)
Avatar billede vallemanden Nybegynder
08. december 2005 - 09:38 #8
ClientDataSet1.Edit;
ClientDataSet1.FieldByName('Ny').AsString := Edit1.Text;
ClientDataSet1.Post;
Avatar billede vallemanden Nybegynder
08. december 2005 - 09:40 #9
for at indsætte en ny post

ClientDataSet1.Insert;
ClientDataSet1.FieldByName('Ny').AsString := Edit1.Text;
ClientDataSet1.FieldByName('Ny2').AsString := Edit2.Text;
ClientDataSet1.FieldByName('Ny3').AsString := Edit3.Text;
ClientDataSet1.FieldByName('Ny4').AsString := Edit4.Text;
ClientDataSet1.Post;
Avatar billede agree21 Nybegynder
11. december 2005 - 19:50 #10
Takker
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester