Sql

Pladser en TQuery på din form, lav et SELECT * from db-filen, statment, og brug evt. DataAware Edit-Ctrl\'er, eller skriv :

Edit1.Text := Query1.FieldByName(\'FeltNavn\').AsString;

/Martin

fedt nok nu virker det :)

<MB>

Selv tak

PS. Jeg kan anbefale online hjælpen, den er OK, hvis man roder lidt rundt finder man som regl det man søger.

har du ikke et par gode link til noget online hjælpe :)
<MB>

www.undu.com

Takker

<MB>

hvorfor virker det her ikke :(

with main.Query1 do
    begin
    close;
    SQL.Clear;
    sql.add(\'SELECT * from kunder\');
    Edit1.Text := main.kunderxQuery.FieldByName(\'navn\').AsString;          //navn
    Edit2.Text := main.kunderxQuery.FieldByName(\'kontaktperson\').AsString;  //kontaktperson
    Edit3.Text := main.kunderxQuery.FieldByName(\'adresse\').AsString;        //adresse
    Edit4.Text := main.kunderxQuery.FieldByName(\'postnummer\').AsString;    //postnummer
    Edit5.Text := main.kunderxQuery.FieldByName(\'city\').AsString;          //city
    Edit6.Text := main.kunderxQuery.FieldByName(\'land\').AsString;          //land
    Edit7.Text := main.kunderxQuery.FieldByName(\'telefonnummer\').AsString;  //telefonnummer
    Edit8.Text := main.kunderxQuery.FieldByName(\'fax\').AsString;            //fax
    Edit9.Text := main.kunderxQuery.FieldByName(\'email\').AsString;          //email
    SQL.Add(\'Where kundenr = \'+#39+main.rxdbgrid1.selectedfield.AsString+#39);
    ExecSQL;
    end

Den siger \"type mismatch in expression\"

<MB>

Enten fordi du skal bruge Open når det er en SELECT du laver, ExecSQL er KUN hvis der ikke kommer noget \"retur\" en DB-cursor ( eks. Update ....) også skal du lige kigge på det en gang til, du kan ikke sætte edit-felter lig noget når du ikke har åbnet din query endnu.

Tip : ( en pascal string med \' i kan godt lade sig gøre du sætter bare 2 \'\', du kan se det på om string hightligth er rigtig, så har du sat nok \' ).

Jeg kan også anbefale at kigge i demos bib. hvor delphi er installeret, der en mange gode eksempler

with main.Query1 do
    begin
    close;
    SQL.Clear;
    sql.add(\'SELECT * from kunder\');
  // ExecSQL;
    SQL.Add(\'Where kundenr = \'+#39+main.rxdbgrid1.selectedfield.AsString+#39);
    Open;
      Edit1.Text := main.kunderxQuery.FieldByName(\'navn\').AsString;          //navn
    Edit2.Text := main.kunderxQuery.FieldByName(\'kontaktperson\').AsString;  //kontaktperson
    Edit3.Text := main.kunderxQuery.FieldByName(\'adresse\').AsString;        //adresse
    Edit4.Text := main.kunderxQuery.FieldByName(\'postnummer\').AsString;    //postnummer
    Edit5.Text := main.kunderxQuery.FieldByName(\'city\').AsString;          //city
    Edit6.Text := main.kunderxQuery.FieldByName(\'land\').AsString;          //land
    Edit7.Text := main.kunderxQuery.FieldByName(\'telefonnummer\').AsString;  //telefonnummer
    Edit8.Text := main.kunderxQuery.FieldByName(\'fax\').AsString;            //fax
    Edit9.Text := main.kunderxQuery.FieldByName(\'email\').AsString;          //email

    end;

Arhhh nu virker det jo
takker :)

<MB>