Znaki specjalne w kwerendzie SQL

[Magda S]

Sorry za tak elementarne pytanie, ale naprawdę nie wiem.

Jak w kwerendzie SQL (np. klauzuli VALUES) wpisać znaki "niedrukowalne",
na przykład znak #0 (chodzi o aktualizację pola BLOB).

[Buster]

Post by Magda S
Sorry za tak elementarne pytanie, ale naprawdę nie wiem.
Jak w kwerendzie SQL (np. klauzuli VALUES) wpisać znaki "niedrukowalne",
na przykład znak #0 (chodzi o aktualizację pola BLOB).

ZTCP najlepiej się to robiło poprzez parametr (mówimy tu oczywiście o
Delphi. Np. poprzez komponent ADOCommand. We właściwości CommandText
wpisujesz np. takie zapytanie:

update tabela set pole = :param

Następnie w kodzie:

ADOCommand1.Parameters.ParamByName('param'}.DataType := ftBlob;
ADOCommand1.Parameters.ParamByName('param'}.Value := #0;
ADOCommand1.Execute;

Podobnie będzie dla zapytania INSERT

CommandText: insert into tabela (pole) values (:param);

Kod Delphi identyczny.

[Magda S]

Post by Buster

Post by Magda S
Sorry za tak elementarne pytanie, ale naprawdę nie wiem.
Jak w kwerendzie SQL (np. klauzuli VALUES) wpisać znaki
"niedrukowalne", na przykład znak #0 (chodzi o aktualizację pola BLOB).

ZTCP najlepiej się to robiło poprzez parametr (mówimy tu oczywiście o
Delphi. Np. poprzez komponent ADOCommand. We właściwości CommandText
update tabela set pole = :param
ADOCommand1.Parameters.ParamByName('param'}.DataType := ftBlob;
ADOCommand1.Parameters.ParamByName('param'}.Value := #0;
ADOCommand1.Execute;
Podobnie będzie dla zapytania INSERT
CommandText: insert into tabela (pole) values (:param);
Kod Delphi identyczny.

Ale ja korzystam z TQuery.

[Buster]

Post by Magda S
Ale ja korzystam z TQuery.

A to zdaje się, że będzie tak samo, tyle że nie Parameters, a Params.
No i Query1.Active := True;

[Magda S]

Post by Buster

Post by Magda S
Ale ja korzystam z TQuery.

A to zdaje się, że będzie tak samo, tyle że nie Parameters, a Params.
No i Query1.Active := True;

Może jestem upierdliwa: użytkownik ma możliwość wprowadzania kwerendy
"ręcznie".

[wloochacz]

[ciach]

Post by Magda S
Może jestem upierdliwa: użytkownik ma możliwość wprowadzania kwerendy
"ręcznie".

Faktycznie jesteś.
To nie wpisuje w "kwerendzie" (co za obrzydliwe słowo) parametry (insert
into tabelka(id, bloc) values (:id, :blob)), które należy wyłuskać,
wyświetlić formularz do wygodnego wprowadzania wartości parametrów i
wysłać tak spreparowane zapytanie do SZBD.
Przykład -> IBExpert.

[Magda S]

Post by wloochacz
[ciach]

Post by Magda S
Może jestem upierdliwa: użytkownik ma możliwość wprowadzania kwerendy
"ręcznie".

Faktycznie jesteś.
To nie wpisuje w "kwerendzie" (co za obrzydliwe słowo) parametry (insert
into tabelka(id, bloc) values (:id, :blob)), które należy wyłuskać,
wyświetlić formularz do wygodnego wprowadzania wartości parametrów i
wysłać tak spreparowane zapytanie do SZBD.
Przykład -> IBExpert.

No to będę bardziej konkretna. W Delphi 4 używam komponentu TQuery i do
pola F (typu BLOB) tabeli T muszę wpisać ciąg #0#4#0#0#1#0#2.

[Buster]

Post by Magda S
No to będę bardziej konkretna. W Delphi 4 używam komponentu TQuery i do
pola F (typu BLOB) tabeli T muszę wpisać ciąg #0#4#0#0#1#0#2.

Kurde nie powinienem, ale już trudno.

Query1.SQL.Add('insert into T (pole_blob) values ("' + #0#4#0#0#1#0#2 +
'");';

A potem to już tylko wykonać zapytanie.

[Magda S]

Post by Buster

Post by Magda S
No to będę bardziej konkretna. W Delphi 4 używam komponentu TQuery i
do pola F (typu BLOB) tabeli T muszę wpisać ciąg #0#4#0#0#1#0#2.

Kurde nie powinienem, ale już trudno.
Query1.SQL.Add('insert into T (pole_blob) values ("' + #0#4#0#0#1#0#2 +
'");';
A potem to już tylko wykonać zapytanie.

Nie za bardzo to zadziała, bo string utnie się na pierwszym #0. Gdyby
nie te #0, to w ogóle nie zawracałabym gitary.

[zpk]

Post by Magda S

Post by Buster

Post by Magda S
No to będę bardziej konkretna. W Delphi 4 używam komponentu TQuery i
do pola F (typu BLOB) tabeli T muszę wpisać ciąg #0#4#0#0#1#0#2.

Kurde nie powinienem, ale już trudno.
Query1.SQL.Add('insert into T (pole_blob) values ("' + #0#4#0#0#1#0#2 +
'");';
A potem to już tylko wykonać zapytanie.

Nie za bardzo to zadziała, bo string utnie się na pierwszym #0. Gdyby
nie te #0, to w ogóle nie zawracałabym gitary.

Zrób np. tak:

procedure BinTekstBlob(s:string; blob: TField);
var
TempStream : TMemoryStream;
begin
if s='' then exit;
TempStream := TMemoryStream.Create;
TempStream.WriteBuffer(Pointer(s)^, length(s));
TempStream.Seek(0, soFromBeginning); // .Position := 0;
TBlobField(blob).LoadFromStream(TempStream);
TempStream.Free;
end;//

PAweł Krzyżanowski

[Grzegorz Skoczylas]

Post by Magda S
Sorry za tak elementarne pytanie, ale naprawdę nie wiem.
Jak w kwerendzie SQL (np. klauzuli VALUES) wpisać znaki "niedrukowalne",
na przykład znak #0 (chodzi o aktualizację pola BLOB).

Odpowiedź na Twoje pytanie może zależeć od tego, jakiej bazy danych
używasz. Na przykład w InterBase i Firebird można użyć funkcje UDF.
Takie funkcje można sobie samemu stosunkowo łatwo napisać. W Internecie
możesz też znaleźć wiele takich bibliotek - darmowych i płatnych. Tobie
potrzebna jest funkcja, które parametrem będzie kod znaku, a wynikiem -
znak o wskazanym kodzie.

Jeżeli użytkownik wprowadza dane "ręcznie" to musisz napisać sobie
podprogram przetwarzający tekst wpisany przez użytkownika na poprawną
instrukcję SQL korzystającą z takiej funkcji UDF.

Tą metodą można przetworzyć wszystkie znaki "niedrukowalne". Nie jestem
tylko pewien, czy znak NUL (znak o kodzie zero) nie będzie stwarzać
jakichś problemów w bazie danych.

[zpk]

Post by Magda S
Sorry za tak elementarne pytanie, ale naprawdę nie wiem.
Jak w kwerendzie SQL (np. klauzuli VALUES) wpisać znaki "niedrukowalne",
na przykład znak #0 (chodzi o aktualizację pola BLOB).

Daj użytkownikowi możliwość wpisania czegoś w rodzaju tagów, np. gdy
wpisze #0 to program zamieni to na znak o kodzie 0 itd.

Ja stosuję tę metodę np. do wprowadzania daty w szablonach numeracji
dokumentów (<R> oznacza rok itd. - zasada jest ta sama).

Paweł Krzyżanowski

[Magda S]

Post by Magda S
Sorry za tak elementarne pytanie, ale naprawdę nie wiem.
Jak w kwerendzie SQL (np. klauzuli VALUES) wpisać znaki "niedrukowalne",
na przykład znak #0 (chodzi o aktualizację pola BLOB).

Już wiem. Przecież jest funkcja CHAR.

[zpk]

Post by Magda S

Post by Magda S
Sorry za tak elementarne pytanie, ale naprawdę nie wiem.
Jak w kwerendzie SQL (np. klauzuli VALUES) wpisać znaki "niedrukowalne",
na przykład znak #0 (chodzi o aktualizację pola BLOB).

Już wiem. Przecież jest funkcja CHAR.

A po co funkcja char?
Przy wpisywaniu stringu zawierającego znaki secjalne (w tym o kodzie
0) zastosuj parametryzację sql,

np.

sql:='insert into tab (str) values (:str)';

i następnie

paramByName('str).asString:='Ala'#0'ma kota';

Na pewno zapisze się znak o kodzie 0 wraz z 'ma kota' :)

Pozdrawiam-
Paweł Krzyżanowski

[zpk]

Post by zpk

Post by Magda S

Post by Magda S
Sorry za tak elementarne pytanie, ale naprawdę nie wiem.
Jak w kwerendzie SQL (np. klauzuli VALUES) wpisać znaki "niedrukowalne",
na przykład znak #0 (chodzi o aktualizację pola BLOB).

Już wiem. Przecież jest funkcja CHAR.

A po co funkcja char?
Przy wpisywaniu stringu zawierającego znaki secjalne (w tym o kodzie
0) zastosuj parametryzację sql,
np.
sql:='insert into tab (str) values (:str)';
i następnie
paramByName('str).asString:='Ala'#0'ma kota';
Na pewno zapisze się znak o kodzie 0 wraz z 'ma kota' :)
Pozdrawiam-
Paweł Krzyżanowski

Dla pola typu MEMO podałem Ci rozwiązanie wcześniej,

zamiast

paramByName('str).asString:='Ala'#0'ma kota';


napisz

BinTekstBlob('Ala'#0'ma kota', paramByName('str));

Paweł