Ado Store procedure çalıştırma hk

[ceylan]

merhaba,

tabloda uniqueidentifier alana paremetre gönderip sp yi çalıştırmak istiyorum ancak sürekli hata alıyorum

conversation failed when converting from  a character string to uniqueidentifier

CreateGUID(Guid);
deger2 := GUIDToString(Guid);

Dm1.AdoSP1.Parameters.ParamByName('@Record_id').Value := deger2;
Dm1.AdoSP1.ExecProc;



Dm1.AdoSP1.Parameters.ParamByName('@Record_id').Value := Guid yazarsam derlemeden 

Incompatible types: 'Variant' and 'TGUID'  mesajı alıyorum, içinden çıkamıyorum

uniqueidentifier  tipindeki alana nasıl paremetre gönderilebilir fikri olan var mı acaba?

teşekkürler

[tuna]

Merhaba şu şekilde deneyebilirmisiniz.

Dm1.AdoSP1.Parameters.ParamByName('@Record_id').Value := '{'+ deger2 +'}' ;
Dm1.AdoSP1.ExecProc;

[ceylan]

(01-12-2022, Saat: 07:44)tuna Adlı Kullanıcıdan Alıntı: Merhaba şu şekilde deneyebilirmisiniz.

Dm1.AdoSP1.Parameters.ParamByName('@Record_id').Value := '{'+ deger2 +'}' ;
Dm1.AdoSP1.ExecProc;

Merhaba,

belirttiğiniz şekilde yapınca, EOleException with message 'Atma belirtimi için geçersiz karakter değeri ' mesajı veriyor

[tuna]

Şöyle deneyebilirmisiniz.
Aynı senaryoyu uygulayamadığım için buradan deneyemiyorum.

var
deger2:tguid;
begin

CreateGUID(Guid);
deger2 := Guid;

Dm1.AdoSP1.Parameters.ParamByName('@Record_id').AsGuid:= deger2;
Dm1.AdoSP1.ExecProc;

Yanlız store procedur da bu @record_id değişkeni de uniqueidentifier olması gerekiyor

[ceylan]

deneyip bilgilendireceğim

teşekkürler