Brug af Combobox og ADO

hmmm længe siden jeg har arbejdet med det men har lige et eksempel:::

du har 4 index som er tilknyttet en combobox, så er det bare at kunne skifte imellem de 4 index og få vist resultatet i din dbgrid


Kode indsættes i dbcombobox (onclick) (ondropdown) (onkeypress)

procedure TADODBTest.MasterTableNameClick(Sender: TObject);
begin
  with Sender as TComboBox do
  if not DroppedDown then
  begin
    DetailTableName.Text := '';
    OpenTable.Execute;
  end;
end;

procedure TADODBTest.MasterTableNameDropDown(Sender: TObject);
begin
  try
    CheckConnection(False);
    with Sender as TComboBox do
      if Items.Count < 1 then
        Connection.GetTableNames(Items);
  except
    { Eat any exceptions so the combobox doesn't paint funny }
  end;
end;

procedure TADODBTest.MasterTableNameKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    with Sender as TComboBox do
    if DroppedDown then DroppedDown := False;
    OpenTable.Execute;
    Key := #0;
  end;
end;


Ellers er der ado eksempler i delphi\demos omkring brug af Ado

jeg er ikke sikker på jeg overhovedet forstår det du har skrevet ... men min simple tankegang var noget med af (husk jeg er total nybegynder til delphi of alt hvad der hedder og lave programmer):

if
form2.combobox1:=01
  begin
  form2.aodtable1.tabelname:=01
  end
if
form2.combobox1:=02
  begin
  form2.aodtable1.tabelname:=02
  end
osv....
mine tabeller i databasen hedder 01, 02, 03 og 04
de har alle den samme designvisning eller havd det nu hedder

men jeg ahr virkelig ingen ide om hvordan jeg skal gribe det an ... det er meget muligt det du ahr skrevet virker men jeg forstår det ikke helt kan du måske forklare det?

dit index som du skal skifte imellem er navnene på det du har skrevet i din combobox

ud fra den text(Index navn)

eksempel:

1: name
2: company
3: land
4: organisation

de navne repræsenterer de index som du skal skifte imellem

Men jeg anbefaler dig at kigge på de demos der er i din delphi, før vil du ikke kunne forstå mit eksempel...

Jeg har været ved at se lidt i mine demoer men forstår stadig intet. men skidt med det jeg har bare valgt at bruge knapper i steder

procedure TForm2.Button1Click(Sender: TObject);
begin
  ADOtable1.Active:=false;
  ADOtable1.TableName:='01';
  ADOtable1.Active:=true;
end;

skriv et svar og du skal få point

ok.....