Opdatering af en DBLookupListBox

Det dataset du bruger til at fylde listboxen med kan du prøve at lave en refresh på

Table1.Refresh;

Hvis det ikke virker er du nødt til at lave en Close; og Open; det er for de der er nogle databaser der ikke supporter Refresh ( som regl SQL db'er )

/Martin

PS : Vi har rigtig gang i prg udviklingen var *GG*

Det kan man vist godt sige. :) Det virker ikke.. der sker ikke noget når jeg trykker på knappen. Det er en access database jeg bruger, hvis det kan hjælpe.

Jeg er ikke helt med på hvad du skal ha' opdateret, men jeg kan sige at du skal prøve at lave en

<MyLookupDataSet>.Close;
<MyLookupDataSet>.Open;

på det du vil have opdateret, du skal selvfølgelig også huske at få "gemt" det du forventer at se, dvs. du skal huske at lave en Post på det dataset du har opdateret

<MyInputDataSet>.Post;

/Martin

Jeg har en ADOTable, DBLookupBox og et Datasource komponent. Så har jeg så også en knap, der hedder opdater. Når jeg trykker på opdater-knappen så vil jeg gerne have sådan at denopdatere forbindelsen til databasen, for at se om der er kommet en ny post.

Nu har jeg prøve at forklare det så godt jeg kan.. Håber det hjalp :|

Jamen hvis det er en liste ( oversigt ) over nogle poster du vil ha' skal du ikke bruge en lookuplistbox, så skal du bruge en DBGrid.

Men du burde kunne skrive

ADOTable1.Close;
ADOTable1.Open;

ellers så smid lige en kopi af noget kode

/Martin

Der er som ikke rigtigt noget kode.. Her er opdater knappen:

procedure TForm1.Image9Click(Sender: TObject);
begin
ADOTable1.Refresh;
end;

og så har jeg en DBLookupBox hvis navn er sat til DBLookupBox1

Mere er der ikke.

så prøv sådan :

procedure TForm1.Image9Click(Sender: TObject);
begin
  ADOTable1.Close;
  ADOTable1.Open;
end;

/Martin
PS: Kan anbefale at lave indryk ved begin end, det gør koden meget letere at fejl finde og overskue, og det er kun et spm om vane :)

Det virker sådan da.. man skal klikke en gang og så vente lidt og så klikke igen for at det virker.

Det lyder mærkeligt, Prøv at klikke en gang og vent og se hvad der sker

procedure TForm1.Image9Click(Sender: TObject);
begin
  screen.cursor := crHourGlass;
  try
    ADOTable1.Close;
    ADOTable1.Open;
    screen.cursor := crDefault;
  except
      screen.cursor := crDefault;
      ShowMessage('Fejl !!');
  end;
end;

med den kode du lige har skrevet, kommer den med det samme. Tak for hjælpen. :)

Selv tak :)