DBLookupComboBox virker ikke med BDE/ADO?

**ADO

Kan du forklare nærmere hvordan du 'prøver at fylde nogle nye i'

procedure FyldInd;
begin
  with BDEQuery1 do
  begin
    close;
    SQL.Clear;
    SQL.Add('select childtypenr, name, quantity');
    SQL.Add('from machsparecomb, sparepart');
    SQL.Add('where machinenr = ' + QuotedStr(EdProject.Text));
    SQL.Add('and childtypenr = typenr');
    open;
  end;

  with BDEQuery do
  begin
    close;
    SQL.Clear;
    SQL.Add('select childtypenr, name, quantity');
    SQL.Add('from machsparecomb, sparepart');
    SQL.Add('where machinenr = ' + QuotedStr(EdProject.Text));
    SQL.Add('and childtypenr = typenr');
    open;
    while not EOF do
    begin
      SelectedFields.CompChild := FieldByname('childtypenr').AsString;
      SelectedFields.CompName := FieldByname('name').AsString;
      CompDBLCB.DataSource := CompDS;
      CompDBLCB.ListSource := CompDS1;
      CompDBLCB.DataField := 'childtypenr';
      CompDBLCB.KeyField := 'childtypenr';
      CompDBLCB.ListField := 'childtypenr;name';
      CompDBLCB.DropDown;
      CompDBLCB.CloseUp(True);
      Next;
    end;
  end;
end;

Gir det nogen mening...?

BDEQuery står både for ADO og BDE....

Prøv at smide et dataset på din form.

sæt lookupcomboboxens Lookuptable til datasetet og skriv din SQL forespørgsel i datasetets commandText, med Edproject.text som parameter.

Vælg derefter lookupcomboboxens lookupfield til det felt, som du ønsker at vise i comboboxen.

Hvordan ser dine tabeller ud?

Jeg har nu prøvet det du skrev, men den reagerer på samme måde...

Prøv at slette nedenstående:

SelectedFields.CompChild := FieldByname('childtypenr').AsString;
SelectedFields.CompName := FieldByname('name').AsString;
CompDBLCB.DataField := 'childtypenr';
CompDBLCB.KeyField := 'childtypenr';
CompDBLCB.ListField := 'childtypenr;name';
CompDBLCB.DropDown;
CompDBLCB.CloseUp(True);

Det virker ikke heller..

Jeg har prøvet at lave en helt ny koden følger:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, DBCtrls, StdCtrls, ADODB, ExtCtrls;

type
  TForm1 = class(TForm)
    DBLookupComboBox1: TDBLookupComboBox;
    Query1: TQuery;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    Query2: TQuery;
    Edit1: TEdit;
    Database1: TDatabase;
    Button2: TButton;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  with Query1 do
  begin
    close;
    ParamByName('EdProjekt').AsString := edit1.Text;
    open;
  end;

  with Query2 do
  begin
    close;
    ParamByName('EdProjekt').AsString := edit1.Text;
    open;
  end;
end;

end.

**Query.SQL:

select childtypenr, name, quantity
from machsparecomb, sparepart
where machinenr =:EdProjekt
and childtypenr = typenr


**DBLookupComboBox
DataSource = DataSource1
DataField = ChildTypeNr

ListSource = DataSource2
KeyField = ChildTypeNr
ListField = ChildTypeNr;Name

Hvad kan der være galt?

Hvordan ser din database ud??

Hvad mener du med hvordan den ser ud?

Hvilke felter er der i tabellerne:
machsparecomb, sparepart

**machsparecomb:

MaschineNr    <PK, FK1>
ChildTypeNr    <PK, FK2>
Quantity


**Sparepart:

TypeNr        <PK>
Name
EAN
Supplier
Price
Unit
PackSize
PriceUpdate
DrawPath
PicPath
Key

Ændre din SQL-forespørgsel til:

SELECT M.childtypenr, M.quantity, S.name
FROM machsparecomb M
INNER JOIN sparepart S ON (M.childTypeNr = S.TypeNr)
WHERE machinenr =:EdProjekt

Oki jeg prøver lige :-)

Der er en fejl i SQL strengen som jeg ikke umiddelbart kan finde, har ikke arbejdet særligt meget med INNER Joins..

Hvilken fejl får du?

du har defineret EdProjekt som parameter?

ORA-00933 SQL kommando er ikke korrekt afsluttet

Jeg har defineret den

Den sidste linie skal være:

WHERE M.machinenr =:EdProjekt

Jeg får stadig den samme fejl...

får du fejlen design eller runtime?

Prøv at ændre datasource active til true og tilbage igen til false - får du fejlen der?

Ja både der og når jeg kører programmet...

Er det en SQL-database, som du bruger.

Nej Jeg bruger Oracle

Har fået løst problemet..

Jeg fylder følgende i ADOQuery:

ADOQuery.SQL =
select childtypenr, name, quantity
from machsparecomb, sparepart
where machinenr = 'xxx'
and childtypenr = typenr

Så finder den ikke noget men følgende kan blive sat på DBLookupComboBox.

**DBLookupComboBox
DataSource = DataSource1
DataField = ChildTypeNr

ListSource = DataSource2
KeyField = ChildTypeNr
ListField = ChildTypeNr;Name

Og så virker det :-) men ellers tak for hjælpen

Tak selv.