Hente data i en db ud fra et valg i en ListBox

Jeg har prøvet med nedenstående kode, men det giver følgende fejl:

********************************************************

Der er en syntaksfejl, fordi der mangler en operator. i forespørgselsudtrykket"Navn = Thomas s"

********************************************************
Koden:


procedure TAnsoeg.ListBox1DblClick(Sender: TObject);
var
  Q1: TADODataset;
begin
  Q1 := TADODataset.Create(self);
  Q1.Connection := ADOConnection1;

  Q1.Close;
  Q1.CommandText := 'SELECT * FROM Personer WHERE Navn = ' + ListBox1.Items.Strings[ListBox1.ItemIndex];
  Q1.Open;

  NavnTxt.Text := Q1.Parameters.ParamByName('Navn').Value;
  AdresseTxt.Text := Q1.Parameters.ParamByName('Adresse').Value;
  Q1.Free;
end;

Hvis jeg laver en anden der bare hedder Test får jeg følgende fejl:

Parameter Test har ingen standardværdi.

Er der slet ikke nogen der kan svare på dette?? :(

Der har været mange gode spm. om det emne:

F.x.: http://www.eksperten.dk/spm/409310

Det er iøvrigt ikke noget banalt spm., men du kan jo selv studere koden
i borrisholts eksempel sv.t. spm.et ovenfor, hvis det stadig ligger på
adressen, der angives.Meget fornøjelig programmering, der såvidt jeg husker
osse kunne udvides til det du efterspørger.

Det 'noget med' at du skal lave et itemindex og noget commandtxt der passer til

procedure TForm1.ListBox3MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  valgt := ListBox3.ItemIndex;
  Listbox1.ItemIndex := valgt;
  Listbox2.ItemIndex := valgt;
end;

commandtexten ku saa se såån ud:

if ListBox3.ItemIndex >= 0 then begin
    ADOCommand1.CommandText := 'select * FROM tabel WHERE phone = :phone';
    ADOCommand1.Parameters.ParamByName('phone').Value := ListBox3.Items.Strings[ListBox3.ItemIndex];
    ADOCommand1.Execute;
  end
  else
    Showmessage('Du har ikke valgt et item!');

Det er ikke afprøvet, men bare for at gi lidt ideer.

Fandt 'by the way' et eks. med det du søger.Husker ikke hvad spm. det stammer fra:


procedure TForm1.Button1Click(Sender: TObject);
var
  x:Integer;
begin
  for x:=0 to adotable1.Recordset.RecordCount -1 do begin
    listbox1.Items.Add(ADOTable1.FieldByName('sogeord').AsString);
    ADOTable1.Next;
  end;
  ADOTable1.First;
end;
procedure TForm1.ListBox1Click(Sender: TObject);
var
  AltOK: Boolean;
begin
  AltOK:=ADOTable1.Locate('sogeord',ListBox1.Items[Listbox1.ItemIndex],[loCaseInsensitive]);
end;


Her åbnes databasen altsaa med button1click, men den kan sikkert osse tages ind direkte.

soegeord er det field jeg tager ind i listboxen til at 'bladre' i db.en med.
Fungerer fremragende, men hvorfor det lige er så meget smartere end en
grid, hvor f.x. kun et field vises har jeg vist glemt i mellemtiden ?.

Svaret stammer fra
http://www.eksperten.dk/spm/464591

enten forstår jeg ikke helt svaret eller også snakker vi forbi hinanden. Kan jeg måske få et eksempel ud fra den kode jeg har i forvejen?? :)

Kommentar: visuel
04/04-2004 20:14:14
....................

Jeg har prøvet med nedenstående kode, men det giver følgende fejl:

********************************************************

Der er en syntaksfejl, fordi der mangler en operator. i forespørgselsudtrykket"Navn = Thomas s"

********************************************************
Koden:


procedure TAnsoeg.ListBox1DblClick(Sender: TObject);
var
  Q1: TADODataset;
begin
  Q1 := TADODataset.Create(self);
  Q1.Connection := ADOConnection1;

  Q1.Close;
  Q1.CommandText := 'SELECT * FROM Personer WHERE Navn = ' + ListBox1.Items.Strings[ListBox1.ItemIndex];
  Q1.Open;

  NavnTxt.Text := Q1.Parameters.ParamByName('Navn').Value;
  AdresseTxt.Text := Q1.Parameters.ParamByName('Adresse').Value;
  Q1.Free;
end;

.....................
Kommentar: visuel
04/04-2004 20:16:17
.....................

Hvis jeg laver en anden der bare hedder Test får jeg følgende fejl:

Parameter Test har ingen standardværdi.

Jeg har lavet et eksempel i 464591

Kære visual: du kan ikke få en mere komplet og flot foklaring til dit spm:

nrc skriver:

Jeg har lavet et lille forsøg:

procedure TForm1.Button1Click(Sender: TObject);
var
  x:Integer;
begin
  for x:=0 to adotable1.Recordset.RecordCount -1 do begin
    listbox1.Items.Add(ADOTable1.FieldByName('Navn').AsString);
    ADOTable1.Next;
  end;
  ADOTable1.First;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
var
  AltOK: Boolean;
begin
  AltOK:=ADOTable1.Locate('Navn',ListBox1.Items[Listbox1.ItemIndex],[loCaseInsensitive]);
end;

Forklaring:
Jeg har en ADOconnection, som peger på databasen.
Jeg har en ADOTable, som peger på navnetabellen i databasen
Jeg har en Datasource som har ADOTable som dataset
Jeg har en almindelig listboks.
Derudover har jeg det ønskede antal DBLabels, som alle har DataSource1 som datasource og som så har forskellige Datafields fra tabellen, fx. Navn
Ved et klik på Button1 får jeg fyldt alle navnene fra databasen ind i listboksen.
Sætter en OnClick event på listboksen.
Når jeg klikker på et navn i listboksen, bliver der lavet en søgning i databasen. Dette flytter den aktuelle pegepind i databasen og derved bliver også indholdet i de forskellige DBLabels opdateret.

Janbb (mig) har uddybet forklaringen med en lille kommentar:

Jeg vil bare give mit besyv med og udtrykke min begejstring for det smarte locate-trick i listboxe: flot og grundig forklaring nca.
Man kunne måske have uddybet at adotabellen:
"Jeg har en ADOTable, som peger på navnetabellen i databasen" -
gør dette via AdoConnectionen - for de helt jomfruelige database-entusiaster.

Den virker skal jeg hilse og sige..

VH
koden12

Jeg får altså en fejl:

Access violation at address 0048EE0A in module 'Ansoegning.exe'.Read of address 00000000

Fejlen opstår når jeg forsøger at hente dataene ind i ListBox

Den påstår at det er i denne linie:

for x:=0 to adotable1.Recordset.RecordCount -1 do begin

Nu ser det tilsyneladende ud til at noget virker ;)

Nu får jeg bare en >>Parameter 'Navn' not found<< når jeg forsøger at hente dem ind i mine edit felter.
Jeg henter dem ind med

      NavnTxt.Text := Q1.Parameters.ParamByName('Navn').Value;

Er det rigtigt?? eller hvad skal jeg gøre?

'Navn' er jo et feltnavn.Du kunne jo prøve med et af dine andre fields, var det 'adresse' du havde i din tabel osse ? så prøv med den.Hvis du har klikket
på din adotabel og derefter højreklikket får du en liste over feltnavne, hvis du
højreklikker i listen og vælger 'all fields' listes de.
Det er tit nødv. at lave denne manøvre,
selvom der vist er noget med at man kan bruge andre metoder.
Synd hvis du ikke får det til at virke.Har nylig fået øjnene op for at det er
mere nyttigt end jeg først havde troet.Fx. check spm 486295, der kombineret med
denne rutine giver et flot lille program.

Du skal osse sætte tabellens aktive-property til true, men det har du vel gjort.

Jeg går ud fra du har klaret det første punkt:

Forklaring:
Jeg har en ADOconnection, som peger på databasen.

idet du vistnok i dit eget eks. bruger kode til at lave denne.

Det kan man osse, men ellers dobbeltklik i feltet og følg anvisningerne,
som nca forslår man gør i dette eks.

Hvis du heller vil bruge kode så kig lidt på kommentarer i dette spm.

http://www.eksperten.dk/spm/373263

Under USES skal være DB og noget andet.

det er vel ikke det ?

VH
koden12

Hmm, jeg kan ikke vælge nogen fields til min ADOTable. Jeg kan heller ikke vælge nogen MasterSource. :/

Kan det ikke laves uden ADOTable?? Jeg synes ikke jeg har andet end problemer med det  ;)

Du er velkommen til at sende det hele til mig i en zipped fil. Husk også databasen.
Send til: nca@pmc.odense.dk

så det sendt ;)

Er der ikke mulighed for at man kan undgå at bruge dbNavigator, når jeg vil indsætte en ny post i db??

dvs. er det muligt at når man starter programmet op, kan indtaste nye data UDEN at den har hentet første element ind og herefter trykke på en knap "Tilføj" hvilket vil medføre, at dataene bliver gemt i db?

nca >> Har fået implementeret det i min EGEN kode og det virker ;) har dog stadig ovenstående problem.

>>visuel
Jeg er da ked af at du synes jeg har ødelagt din kode. Håber du kan bruge den del af min hjælp, som du synes er relevant.
Hvis du ikke vil bruge en navigator skal du bruge Open til at åbne dit dataset og bagefter Append for at tilføje din post.

nca>>
Du ka' tro jeg er taknemmelig for din hjælp og jeg kunne bruge den til meget. Det er altid meget lærerigt at se hvordan andre implementerer kode. Jeg kan dog ikke se at det du ændrede i programmet og i db'en var særlig brugbart, men nu har jeg da fået det implementeret i min egen kode og det virker.
hvis du lige smider et svar :)

1.000.000 tak for hjælpen

Man kan også bruge insert istedet for append. Hvad er forskellen egentlig??

:)

men HOV.....

Når jeg dobbeltklikker på et element i listBoxen og retter lidt i teksten og derefter klikker på et andet element i listBoxen, kan jeg ikke klikke tilbage på det første element igen?!!? Når jeg så genstarter programmet har den ændret dataene for det første element. Dataene må ikke blive ændret før der trykkes på en knap!!!

Hvordan??

Ok, nu er problemet afgrænset til, at man KUN skal kunne ændre data ved at klikke på en knap og IKKE når man dobbeltklikker på en ny i listBoxen.

:)

Her er et svar.
Det glæder mig at du kom videre.

Men er der nogen af jer der kan svare på ovenstående??

Nej, det virker fint hos mig.Man kan dog tilføje at man ved at lukke og åbne tabellen igen undgår at listningen bare fortsætter i listboxen.Desuden kan du ved at checke hjælpen/Help faa alle koder for navigator one-by-one First, last, edit, post
osv.Så det sku ik være noet probl..