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.
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.
