AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Delphi MS SQL CHAR(300) Feld übernehmen
Thema durchsuchen
Ansicht
Themen-Optionen

MS SQL CHAR(300) Feld übernehmen

Ein Thema von rokli · begonnen am 25. Okt 2012 · letzter Beitrag vom 25. Okt 2012
Antwort Antwort
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#1

AW: MS SQL CHAR(300) Feld übernehmen

  Alt 25. Okt 2012, 12:12
Das Problem ist nicht wegen AsVariant und lässt sich auch mit AsString nicht beheben.
Denn das daraus resultierende Statement lautet so:
Code:
INSERT INTO tblMS (chrFeld300) VALUES (010014422006620121026000000045135066105329500006000010012000000010605965670)
Für dieses Statement wird der Wert als Zahl interpretiert und diese Umwandlung schlägt eben fehl (genau das sagt ja auch die Fehlermeldung).
Da SQL etwas tolerant ist, kann es auch eine Zahl in ein Char-Feld speichern.

Hier soll aber keine Zahl, sondern eine Ziffernfolge gespeicht werden und das ist ein String/Char/Varchar.

Dann sollte man dem Statement dieses auch mitteilen: "Hallo, das ist bitte als Zeichenfolge zu verstehen."
Code:
INSERT INTO tblMS (chrFeld300) VALUES ("010014422006620121026000000045135066105329500006000010012000000010605965670")
Und damit alles im Leben einfacher, schneller - und viel wichtiger sicherer - wird, sind Parameter hier unbedingt zu empfehlen.
Code:
INSERT INTO tblMS (chrFeld300) VALUES ( :chrFeld300 )
oder in Delphi
Delphi-Quellcode:
qryIns.SQL.Text := 'INSERT INTO tblMS (chrFeld300) VALUES ( :chrFeld300 )';
// teilweise gibt es auch noch eine spezielle Methode zum Vorbereiten
// hängt aber von der Zugriffskomponente ab

// qryIns.Prepare;

while not qryDB2.EOF do
begin
  qryIns.ParamByName( 'chrFeld300' ).Value := qryDB2.FieldByName('FELD300').AsVariant;
  qryIns.ExecSQL;
  qryDB2.Next;
end;

// qryIns.Unprepare;
Das ist dann nicht nur sicherer, einfacher sondern vor allem erheblich schneller, da der Server jetzt schon weiß, was er machen soll und kann sich darauf vorbereiten (prepare). Es werden nur noch die reinen Daten vom Client übertragen, weil die Anweisung dem Server ja schon bekannt ist.
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)

Geändert von Sir Rufo (25. Okt 2012 um 12:14 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Bernhard Geyer
Bernhard Geyer

Registriert seit: 13. Aug 2002
17.222 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: MS SQL CHAR(300) Feld übernehmen

  Alt 25. Okt 2012, 12:23
Dann sollte man dem Statement dieses auch mitteilen: "Hallo, das ist bitte als Zeichenfolge zu verstehen."
Code:
INSERT INTO tblMS (chrFeld300) VALUES ("010014422006620121026000000045135066105329500006000010012000000010605965670")
Und damit alles im Leben einfacher, schneller - und viel wichtiger sicherer - wird, sind Parameter hier unbedingt zu empfehlen.
Und wenn man es direk angiebt sollte man die SQL-Hochkommas verwenden sonst krachte es gleich wieder
Windows Vista - Eine neue Erfahrung in Fehlern.
  Mit Zitat antworten Zitat
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#3

AW: MS SQL CHAR(300) Feld übernehmen

  Alt 25. Okt 2012, 12:33
Dann sollte man dem Statement dieses auch mitteilen: "Hallo, das ist bitte als Zeichenfolge zu verstehen."
Code:
INSERT INTO tblMS (chrFeld300) VALUES ("010014422006620121026000000045135066105329500006000010012000000010605965670")
Und damit alles im Leben einfacher, schneller - und viel wichtiger sicherer - wird, sind Parameter hier unbedingt zu empfehlen.
Und wenn man es direk angiebt sollte man die SQL-Hochkommas verwenden sonst krachte es gleich wieder
ÄH?
Hat er doch? ist doch MS!?

Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#4

AW: MS SQL CHAR(300) Feld übernehmen

  Alt 25. Okt 2012, 12:42
Dann sollte man dem Statement dieses auch mitteilen: "Hallo, das ist bitte als Zeichenfolge zu verstehen."
Code:
INSERT INTO tblMS (chrFeld300) VALUES ("010014422006620121026000000045135066105329500006000010012000000010605965670")
Und damit alles im Leben einfacher, schneller - und viel wichtiger sicherer - wird, sind Parameter hier unbedingt zu empfehlen.
Und wenn man es direk angiebt sollte man die SQL-Hochkommas verwenden sonst krachte es gleich wieder
ÄH?
Hat er doch? ist doch MS!?

Gruß
K-H
Zum Einen das und zum Anderen werden von einigen DBMS auch beide Varianten unterstützt " oder '
Das ist aber obsolet, da man entweder mit Parametern (first choice) arbeitet oder das entsprechende Quoten/Escapen durch eine DBMS Funktion erledigen sollte (was bei der Verwendung von Parametern implizit erfolgt)
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat
Benutzerbild von Bernhard Geyer
Bernhard Geyer

Registriert seit: 13. Aug 2002
17.222 Beiträge
 
Delphi 10.4 Sydney
 
#5

AW: MS SQL CHAR(300) Feld übernehmen

  Alt 25. Okt 2012, 13:28
ÄH?
Hat er doch? ist doch MS!?

Gruß
K-H
Das ist der MS SQL-Server und damit ein richtiges DBMS und nicht Access.
Dort kenn ich nur dieses "wir machen alles anders als der SQL-Standard".
Windows Vista - Eine neue Erfahrung in Fehlern.
  Mit Zitat antworten Zitat
rokli

Registriert seit: 21. Mär 2009
Ort: Rödinghausen
302 Beiträge
 
Delphi 10.4 Sydney
 
#6

AW: MS SQL CHAR(300) Feld übernehmen

  Alt 25. Okt 2012, 13:47
so ein dummer, dummer Fehler, den ich da gemacht habe!!

Aber erst einmal herzlichen Dank für Euer reges Integeresse...

Also es war natürlich die ZAHL, die ich übergeben hatte! Hätte ich den Wert in '' gesetzt, wäre alles gut gewesen.

Delphi-Quellcode:
qryIns := 'INSERT tblMS (chrFeld300) VALUES (' + QUOTEDSTR(qryDB2.FieldByName('FELD300').AsVariant) + ')';
qryIns.ExecSQL;
Einfach den String auch als String ausweisen [-> QuotedStr()] und es funktioniert!

Nochmals vielen Dank!!

Rolf

Und noch mal: Kaum macht mans richtig, schon ....
Rolf
wenn nicht anders angegeben, schreibe ich zu D7, XE2 und MS SQL - ansonsten fragen Sie ihren Administrator oder einen Operator. Update 06/2020: Delphi 10.4 Sydney
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.659 Beiträge
 
Delphi 12 Athens
 
#7

AW: MS SQL CHAR(300) Feld übernehmen

  Alt 25. Okt 2012, 14:35
Und wieso hast Du Dich nun für die zweitbeste Lösung entschieden? Die Vorteile von SQL-Parametern wurden hier ja mehrfach genannt.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#8

AW: MS SQL CHAR(300) Feld übernehmen

  Alt 25. Okt 2012, 15:11
Und wieso hast Du Dich nun für die zweitbeste Lösung entschieden? Die Vorteile von SQL-Parametern wurden hier ja mehrfach genannt.
Da gab es doch was bzgl. der Antipathie einer speziellen Gruppe von Ökonomen gegenüber dem Ändern des Speiseplans
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:22 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-2025 by Thomas Breitkreuz