28. september 2006 - 16:52Der er
3 kommentarer og 1 løsning
Flere af samme navn i et accessfelt, men ønsker et navn.
Måske virker mit spørgsmål lidt kryptisk, men det, det går ud på er, at jeg har 2 felter i en accessdb. Det ene er NAME og det andet er FILE. Nogle navne opstår flere gange i NAME fordi at den samme person har flere filer som står i FILE. Jeg ønsker at vise de personer der findes i NAME, men ikke alle af samme navn.
Jeg har gjort dette, men her får jeg alt hvad der er i feltet NAME:
procedure TForm1.FormCreate(Sender: TObject); ADOTable1.Open; while not ADOTable1.Eof do begin ComboBox1.Items.Add(ADOTable1NAME.AsString); ADOTable1.Next; end; ADOTable1.Close; end;
Måske er det let jeg ved det ikke, men hvis nogen har en hurtig løsning vil det være super.
Mød en af Nordens fremmeste eksperter i adfærdsdesign – Morten Münster, der bl.a. har skrevet ” Jytte fra marketing er desværre gået for i dag” – på Computerworld Cloud & AI Festival.
Jeg fandt ud af det, men jeg synes at det går lidt langsom. Måske gør jeg noget forkert.
procedure TForm1.FormCreate(Sender: TObject); StringList : TStringList; I : integer; begin StringList := TStringList.Create; ADOTable1.Open; StringList.Sorted := true; StringList.Duplicates := dupIgnore; while not ADOTable1.Eof do begin StringList.Add(ADOTAble1NAME.AsString); ADOTable1.Next; end; ADOTable1.Close; for I := 0 to StringList.Count - 1 do ComboBox1.Items.Add(StringList.Strings[I]); StringList.Free; end;
Kan du sige hvordan jeg skal gøre det? Jeg har prøvet sådan her, men det giver mig kun 1 record.
ADOQuery1.SQL.Text := 'SELECT DISTINCT NAME FROM DATALOG'; ADOQuery1.Open; try if not ADOQuery1.Eof then ComboBox1.Items.Add(ADOQuery1.FieldByName('NAME').AsString); finally ADOQuery1.Close; end;
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.