Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi Problem bei insert mit mssql (https://www.delphipraxis.net/110975-problem-bei-insert-mit-mssql.html)

emsländer 27. Mär 2008 15:18

Datenbank: MSSQL • Version: 2005 • Zugriff über: ADO

Problem bei insert mit mssql
 
Moin,

hab da so ein kleines Problem mit insert. (MS-SQL2005)

Ich bekomme immer den Hinweis, das das Feld Code nicht gefunden werden kann - es ist aber da (vchar(5)) und auch genau so geschrieben.

Delphi-Quellcode:
_stmp := 'select Jahre03 from finanzdesk.dbo.Firmenkonditionen_dsb where Code = '+QuotedStr(AktenManager.edt_firma_lizenzcode.text);
    _query := Tadoquery.Create(nil);
    with _query do begin
      connection := AktenManager.ADOConnFDD;
      try
        _query.sql.Text := _stmp;
        _query.open;
        if eof then begin
          insert;
          FieldValues['Code'].asstring := AktenManager.edt_firma_lizenzcode.text;
          post;  // HIER KOMMT DER FEHLER
          showmessage('Keine Daten vorhanden'+#10#13+'Neuer Datensatz wird angelegt');
        end else begin;
          edt_fk_03.value := fieldbyname('Jahre03').AsFloat;
          edt_fk_05.value := fieldbyname('Jahre05').AsFloat;
          edt_fk_06.value := fieldbyname('Jahre06').AsFloat;
          edt_fk_08.value := fieldbyname('Jahre08').AsFloat;
          edt_fk_10.value := fieldbyname('Jahre10').AsFloat;
          edt_fk_12.value := fieldbyname('Jahre12').AsFloat;
          edt_fk_15.value := fieldbyname('Jahre15').AsFloat;
          post;
        end;
        _query.Close;
      except
        showmessage('Fehler aufgetreten');
      end;

      freeandnil(_query);
    end;
Wer hat eine Idee?

Gruss

EL

mkinzler 27. Mär 2008 15:22

Re: Problem bei insert mit mssql
 
Du fragst auch das Feld Code nicht ab.

RavenIV 27. Mär 2008 15:24

Re: Problem bei insert mit mssql
 
Das Feld "Code" ist aber im SELECT nicht dabei.
Also kennt es die query auch nicht.

emsländer 27. Mär 2008 15:24

Re: Problem bei insert mit mssql
 
Zitat:

Zitat von mkinzler
Du fragst auch das Feld Code nicht ab.

doch: der Text steht in _stmp: _stmp := 'select Jahre03 from finanzdesk.dbo.Firmenkonditionen_dsb where Code = '+QuotedStr(AktenManager.edt_firma_lizenzcode.text );

und dann:

_query.sql.Text := _stmp;
_query.open;


Gruss

EL

mkinzler 27. Mär 2008 15:25

Re: Problem bei insert mit mssql
 
Nein, denn In der Feldliste steht nur Jahre03.

RavenIV 27. Mär 2008 15:26

Re: Problem bei insert mit mssql
 
Zitat:

Zitat von emsländer
Zitat:

Zitat von mkinzler
Du fragst auch das Feld Code nicht ab.

doch: der Text steht in _stmp: _stmp := 'select Jahre03 from finanzdesk.dbo.Firmenkonditionen_dsb where Code = '+QuotedStr(AktenManager.edt_firma_lizenzcode.text );

Nein.
Es muss heissen: 'SELECT Jahre03, Code FROM ...'

emsländer 27. Mär 2008 15:26

Re: Problem bei insert mit mssql
 
Zitat:

Zitat von mkinzler
Nein, denn In der Feldliste steht nur Jahre03.

Ja, stimmt (in der ursprünglichen steht noch mehr, aber Code fehlt) :wall: :wall: :wall:



Danke

das wars!


Gruss

EL


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:21 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz