Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi SQL Insert Into Problem (https://www.delphipraxis.net/63087-sql-insert-into-problem.html)

renekr 13. Feb 2006 22:28

Datenbank: SQL • Version: 2005 STD • Zugriff über: ADO

SQL Insert Into Problem
 
Liste der Anhänge anzeigen (Anzahl: 1)
Hallo,

Ich habe ein kleines Problem mit einem Insert string:
dieser Sieht so aus:

SQL-Code:
teststring:='schrauber steht bei Typ 7008.MEldung auf dem monitor:"Störung SPS-Fehler Betriebssystem".Danach Meldung:"Cannot connect JC24x to 172.16.46.36 Error:2000104C /OK" Nach Crash Neustart ( siehe weiter unten bei Maßnahme "...)';
ADOCommand1.CommandText:='insert into test values ('+QuotedStr(teststring)+')';
ADOCommand1.Execute;
Das komische ist:
Wenn ich alles lösche ausser ": kommt der Fehler immer noch.( siehe Bild )
Wenn ich dann ":: eingebe geht es unn er macht den insert?
Was ist an der Zeichen folge Falsch ??
Danke.

mkinzler 13. Feb 2006 22:31

Re: SQL Insert Into Problem
 
Besteht die Tabelle aus nur einem Feld? Weil die Feldliste beim insert fehlt, dann muß man alle Felder angeben.

Zitat:

Wenn ich alles lösche ausser ": kommt der Fehler immer noch.( siehe Bild )
: ist in Delphi bei embedded-SQL ein Prefix für einen Parameter, möglichweise interpretier er die : in deinem String falsch. Es könnte helfen die string vor dem Einfügen zu kodieren.

renekr 13. Feb 2006 22:39

Re: SQL Insert Into Problem
 
Hi,
das war eine Testtabelle um den Fehler schneller nachvollziehen zu können.

Aber ja 2 Felder 1 ID und das 2. ein NVArchar(max) SQL 2005.

Aber das kommt aufs gleiche raus.
an der länge liegts nciht.

Muß was mit "": usw. z utun haben.

Wie gesagt wenn ich ":: eingebe geht der insert.


Danke

mkinzler 13. Feb 2006 22:43

Re: SQL Insert Into Problem
 
Sie dazu mein editierter erster Beitrag

renekr 13. Feb 2006 23:07

Re: SQL Insert Into Problem
 
Danke.

Wie kann i das abfangen?
Aber das muß auch was mit " " zu tun haben.
Weil wenn ich alle : draussen lasse gehts nicht wenn i dann die " noch weg mache gehts.


Weil ich habe viele möglichkeiten getestet:
Wenn ich "": dan nfail mit : oder " geht ev. .

Gibts da wo eine Übersicht mit dem Zeichen?

mkinzler 14. Feb 2006 07:40

Re: SQL Insert Into Problem
 
Das sind die auf jedenfall die Zeich " ' ´ : . Versuch es mal über eine parametrisierte Abfrage:
SQL-Code:
insert into test values ( :str);
Delphi-Quellcode:
ADOCommand1.parameters.ParamByName('str').Value := teststring;
oder Codierung mit Bas64, UrlEncode.

jensw_2000 14. Feb 2006 09:28

Re: SQL Insert Into Problem
 
Mit Parameter sollte alles funktionieren. Den String musst du dann auch nicht Quoten.

Ein Hinweis aber noch...

Du sagst, das deine Tabelle 2 Felder hat (ID, Ein_NVARCHAR_Feld).

Mit
SQL-Code:
INSERT INTO test VALUES (EinText)
schreibst du die Werte in das ID Feld, insofern dies das erste Feld ist ...

Mach es stattdessen besser so
SQL-Code:
INSERT INTO test (Ein_NVARCHAR_Feld) VALUES (EinText)
oder so
SQL-Code:
INSERT INTO test (ID,Ein_NVARCHAR_Feld) VALUES (Eine_ID, EinText)



Schöne Grüße,
Jens
:hi:

renekr 14. Feb 2006 10:26

Re: SQL Insert Into Problem
 
Hi,
danke für eure Hilfe.
@ JensW_2000.
Das ID Feld ist ein Identity Field.Also wird automatisch gesetzte.

Ich habe es im dem Insert string nur als Bsp. gemacht um den Original Insert String, der über ca. 42 Spalten geht nicht posten zu müssen.

Vielen Dank werde es sofort testen.

Habe es getestet:
Delphi-Quellcode:
ADOCommand1.parameters.ParamByName('str').Value := teststring;
ADOCommand1.CommandText:='insert into test values ( :str)';
ADOCommand1.Execute;
Da bringt er mir aber Fehler schon beim Parameter setzen.
Parameter habe ich angelegt im Adocommand.
Fehler meldung:Application uses a value of the wrong type for the current operation

Danke.

mkinzler 14. Feb 2006 11:41

Re: SQL Insert Into Problem
 
Du mußt den Paramter nach der SQL-Eigenschaft setzen.

renekr 15. Feb 2006 00:30

Re: SQL Insert Into Problem
 
Danke werde ich morgen testen,bin grad von der Spätschicht gekommen.
Habe mit den Parametern noch nix gemacht,aber vielen Dank für die Hilfe.

mfg

renekr 15. Feb 2006 09:08

Re: SQL Insert Into Problem
 
Guten Morgen.
Also entweder bin ich zu dumm oder kapier es nicht.

Delphi-Quellcode:
ADOCommand1.CommandText:='insert into test values (:str )';
ADOCommand1.parameters.ParamByName('str').Value := teststring;
ADOCommand1.Execute;
da schmiert er mir ab beim Adocommand1.commandtext setzen ,mit:

Application uses a value of the wrong type for the current operation.


Ich habe den PArameter str im adocommand angelegt?
muß sonst noch was mache?


danke für eure Geduld.

mkinzler 15. Feb 2006 09:15

Re: SQL Insert Into Problem
 
Zitat:

Ich habe den PArameter str im adocommand angelegt?
Eigentlich ist das nicht nötig, da der Paramter automatisch erzeugt wird.

Versuchs mal mit:
1.
Delphi-Quellcode:
ADOCommand1.parameters.ParamByName('str').asString := teststring;
2. Lösche mal den händisch angelegten Parameter, setze die CommandText-Eigenschaft und überprüfe den Typ des automatisch angelegten Paramters und korigiere wenn nötig.

3. Feldliste im Insert setzen.

jensw_2000 15. Feb 2006 09:44

Re: SQL Insert Into Problem
 
Du kannst das ganze auch umkompliziert über eine Stored Procedure machen.
So kannst du auch gleich Daten-Updates mit realisieren.
Zudem hast du den Vorteil, das die SP deine Anwendung von der DB entkoppelt. Falls sich später Feldnamen ändern oder die Daten woanders gespeichert werden sollen, dann eine musst du nur die SP anpassen.

Hier ein kleines Beispiel:


auf dem SQL-Server einmalig eine SP erzeugen
SQL-Code:
CREATE PROCEDURE SET_Table1_Data
  @ID                  INT =NULL
  @NVARCHAR_VALUE      NVARCHAR(255) = NULL,
AS
BEGIN
  -- Parameter prüfen
 
  -- Daten aktualisieren, falls ID nicht NULL ist und existiert
  UPDATE Table1 SET Ein_VARCHAR_Feld = @NVARCHAR_VALUE
  WHERE ID = @ID AND ID IS NOT NULL

  IF @@ROWCOUNT = 0   -- (also kein Datensatz aktualisiert wurde (RowsAffected =0) )
  BEGIN
    INSERT INTO Table1 ( 
                         Ein_NVARCHAR_Feld
                       )
              VALUES  ( 
                         @NVARCHAR_VALUE
                       )
  END

END


In Delphi würde ich die SP so benutzen:

Delphi-Quellcode:
function SaveData:Boolean;
  var SP:TAdoStoredPoc;
begin
 
  Result:=False;
  SP:=TAdoStoredProc.create(nil);
  try
    SP.Connection:=Datamodule1.AdoConn;             // hier gehören noch ein paar Prüfungen hin
    SP.Procedurename='SET_Table1_Data';             // z.B. ist AdoConn.Connected=true ? 
    SP.Parameters.refresh;                          // 
    SP.Parameters[2].value:=Eine_ID_oder_NULL;
    SP.Parameters[3].value:=Ein_String_der_in_NVARCHAR_Feld_geschrieben_werden_soll;
    SP.ExecProc;
    Result:=true;
  finally
    FreeAndNil(SP);
  end;
end;


Schöne Grüße,
Jens
:hi:

renekr 15. Feb 2006 11:13

Re: SQL Insert Into Problem
 
Hi,
@ mkinzler.

Das ADOCommand1.parameters.ParamByName('str').asString := teststring; geht nicht.asstring gibt es nicht.

Habe sogar das Probiert:
ADOCommand1.CommandType:=cmdText;
.
ohne Erfolg.


Also i dummkopf.
Es muß so aussehn.
Delphi-Quellcode:
ADOCommand1.CommandText := 'insert into test (spalte1) values (:str)';//spaltenname angeben
ADOCommand1.Parameters.ParamByName('str').Value := teststring;
ADOCommand1.Execute;
mfg


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:37 Uhr.

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