Sql

hvis du inden du opretter den (måske) nye post søger efter det nye varenummer kan du finde ud af om du skal inserte eller update:

Q.SQL.Add(\'SELECT * FROM Table_Name WHERE varenummer = :pVareNr\');
Q.PAramByName(\'pVareNr\').AsString := \'VARE001\';
Q.Open;

if Q.RecordCount = 0 then
begin
  Q.Close;
  Q.SQL.Clear;
  Q.SQL.Add(\'INSERT INTO Table_Name.....\');
  Q.ExecSQL;
end
else
begin
  Q.Close;
  Q.SQL.Clear;
  Q.SQL.Add(\'UPDATE Table_Name SET... WHERE varenummer = :pVareNr\')
  Q.PAramByName(\'pVareNr\').AsString := \'VARE001\';
  Q.ExecSQL;
end;

...eller noget i den stil...

Vær opmærksom på at en søgning som tknudsen så rigtigt har foreslået, kan tage noget tid, afhængig af hvormange records der er i db\'en.

Desuden ville jeg nøjes med \"select varenummer from...\" og ikke select * from ...\" som tknudsen foreslår.

hva\' kan man si\'e :)

Jeg synes faktisk at det er underligt at der ikke findes en sql cmd som selv gør det-der. Feks kunne insert jo godt lige tage en parameter som feks hed updateifexists. Måske et forslag til næste ersion (hvis den nogensnde kommer i en ANSI udgave:-)

Okey det er jo meget fint men hvorfor virker det her så ikke :(

main.Query1.SQL.Add(\'SELECT * FROM produkt WHERE varenummer = :pVareNr\');
main.Query1.PAramByName(\'pVareNr\').AsString := \'VARE001\';
main.Query1.Open;
if main.Query1.RecordCount = 0 then
  begin
  with main.Query1 do
  begin;
    close;
    SQL.Clear;
    SQL.Add(\'insert into produkt(varenummer, varenavn, pris, Lagerbeholdning, varebeskrivelse)VALUES(:varenummer, :varenavn, :pris, :lagerbeholdning, :varebeskrivelse)\');
    Params[0].AsInteger := strtoint(nyvare.Edit1.Text);    //varenummer
    Params[1].AsString  := nyvare.Edit2.Text;              //varenavn
    Params[2].AsString :=  nyvare.Edit3.Text;              //pris
    Params[3].AsInteger := strtoint(nyvare.Edit4.Text);    //Lagerbeholdning
    Params[4].AsString  := nyvare.Memo1.Lines.Text;        //varebeskrivelse
    ExecSQL;
  end;
  end
else
  begin
  showmessage(\'bla\');
  end;
main.lagerRxQuery.Close;
main.lagerRxQuery.open;
close;

den siger \"type mismatch in expression\"

<MB>

er de 5 parametre (0-4) oprettet som parametre i TQuery komponenten (i params property) ?

og har de samme type som du har defineret ?

Hvis ja, så prøv at flytte de 5 params[x].as... linier op før sql.add linien

Hvor er det den siger \"type mismatch..\" ?

Prøv evt. med at sætte showmessage(\'1\'); (og 2, og 3 o.s.v.) ind som linier mellem de enkelte linier i koden. Så vil du kunne se hvad den sidste showmessage er inden du får fejlen.

Første fejl er lige før i linjen der heder if main.Query1.RecordCount = 0 then main.Query1.open;
type mismatch in expression igen :)

og ja der er params 0-4 :)

<MB>

Du kan med fordel køre Prepare inden du tilskriver dine params. også evt. bruge paramByName så er du sikker på at det er det rigtige param du har fat i og så skal du huske at hvis du tilskriver et parameter AsString tror Query\'en at det er en string og så skal der \'\' rundt om i SQL sætningen, så hvis varenummer er integer så konverter inden du tilskiver eller brug AsInteger, eller sæt Param.Datatype ( tilskrivning af datatype sletter indholdet at din param )

/Martin

PS. du kan også vælge at bygge dit SQL sætning op i en string i steddet for params.

well det med at den skal gemme dataen i databasen virker men den skal jo lige se efter om det varenummer er der en gang.

procedure Tnyvare.BitBtnWithColor1Click(Sender: TObject);
begin
main.Query1.SQL.Add(\'SELECT * FROM produkt WHERE varenummer = :pVareNr\');
main.Query1.PAramByName(\'pVareNr\').AsString := \'VARE001\';
main.Query1.open;
if main.Query1.RecordCount = 0 then
  begin
  with main.Query1 do
  begin;
    close;
    SQL.Clear;
    SQL.Add(\'insert into produkt(varenummer, varenavn, pris, Lagerbeholdning, varebeskrivelse)VALUES(:varenummer, :varenavn, :pris, :lagerbeholdning, :varebeskrivelse)\');
    Params[0].AsInteger := strtoint(nyvare.Edit1.Text);    //varenummer
    Params[1].AsString  := nyvare.Edit2.Text;              //varenavn
    Params[2].AsString  := nyvare.Edit3.Text;              //pris
    Params[3].AsInteger := strtoint(nyvare.Edit4.Text);    //Lagerbeholdning
    Params[4].AsString  := nyvare.Memo1.Lines.Text;        //varebeskrivelse
    ExecSQL;
  end;
  end
else
  begin
  showmessage(\'Varenummer findes\');
  end;
main.lagerRxQuery.Close;
main.lagerRxQuery.open;
close;
end;


tror det er i det her den melder fejl

main.Query1.SQL.Add(\'SELECT * FROM produkt WHERE varenummer = :pVareNr\');
main.Query1.PAramByName(\'pVareNr\').AsString := \'VARE001\';
main.Query1.open;
if main.Query1.RecordCount = 0 then

well det er hele den code den udføre håber i kan hjælpe mig

<MB>

Hvad er DataTypen på Varenummer ?? hvis det er en string så skal SQL se sådan ud :

\'SELECT * FROM produkt WHERE varenummer = \'\':pVareNr\'\'\');

/Martin

PS. Husk evt. Query.SQL.Clear; inden SQL.Add

Hvis du stadig har problemer, så mail en Lille base og din source til mig så skal jeg se på det

/Martin
arb@lind-sonne.dk

det som er skrevet er et eksempel - erstat evt. pVareNr med en anden datatype - feks hvis vare typen er integer:

main.Query1.SQL.Add(\'SELECT * FROM produkt WHERE varenummer = :pVareNr\'); main.Query1.PAramByName(\'pVareNr\').AsInteger := 1;

desuden skal der \'er uden om :pVareNr hvis data typen er en streng:
main.Query1.SQL.Add(\'SELECT * FROM produkt WHERE varenummer = \'\':pVareNr\'\'\');

good luck...

forpulede notes server...

sorry martinlind - det er ikke for at gi den som gymnasie elev - men jeg fik først lige opdateret siden nu :-|

godt svar iøvrigt :-)

tknudsen > Ok *S*

Soory jeg havde helt glemt dette spm :)
well er færdig med det projekt nu
mange tak for hjælpen

<MB>