datasnap insert into

[gonulali]

Günaydın Arkadaşlar,

Datasnap bağlantısı ile veri tabanı bağlantısını ve sorgulamasını yapıyorum. Tabloya  bir kayıt eklemek istiyorum ama yapamadım. şu şekilde denedim, nerede hata yapıyorum acaba?


ClientDataSet1.Close;
ClientDataSet1.CommandText := 'INSERT INTO kullanicilar (adi) VALUES  (''Deneme1'')';
ClientDataSet1.Execute;//Open da denedim

Clientdataset1 kullanicilar tablosuna bağlı. Sorgulama yaptığımda tablodaki kayıtları geliyor ama kayıt eklemeyi yapamadım.

[gbg]

Eklemek için bir yöntem oluşturmak daha iyidir.

unit ServerMethodsUnit1;

interface

uses 
.
.
.

type
 TServerMethods1 = class(TDSServerModule)
  .
  .
  .
 public
   { Public declarations }
   function AddUser(UserName: string) : boolean;
 end;

function TServerMethods1.AddUser(UserName: string) : boolean;
begin
Result:=False;
qry.Close;
qry.SQL.Clear;
qry.SQL.Add('INSERT INTO kullanicilar (adi) VALUES  ('+QuotedStr(UserName)+')');
try 
 qry.ExecSQL;
 Result:=True;
except
end; 
end;

[vedat35]

(30-09-2021, Saat: 11:13)gbg Adlı Kullanıcıdan Alıntı: Eklemek için bir yöntem oluşturmak daha iyidir.

unit ServerMethodsUnit1;

interface

uses 
.
.
.

type
 TServerMethods1 = class(TDSServerModule)
  .
  .
  .
 public
   { Public declarations }
   function AddUser(UserName: string) : boolean;
 end;

function TServerMethods1.AddUser(UserName: string) : boolean;
begin
Result:=False;
qry.Close;
qry.SQL.Clear;
qry.SQL.Add('INSERT INTO kullanicilar (adi) VALUES  ('+QuotedStr(UserName)+')');
try 
 qry.ExecSQL;
 Result:=True;
except
end; 
end;

Query nin çalıştırıldıkdan sonra veritabanının geri döndürdüğü cevaba bakmadan, işlem başarılıymış gibi true döndürmek yanlış bir mantıkdır.

[ahmet_sinav]

yukardaki koda göre başarısızsa exception oluşur yine false atar.

[vedat35]

(30-09-2021, Saat: 15:25)ahmet_sinav Adlı Kullanıcıdan Alıntı: yukardaki koda göre başarısızsa exception oluşur yine false atar.

db insert,delete,update,fetch yapamadığında, exception oluşuyormu diyorsunuz yani?

db tarafı insert yaptığı halde uygulama tarafındaki driver bir sorundan ötürü exception a düşerse ne yapıyorsunuz bu durumda,
exception class ına hata kaynağınada bakmıyorsunuz?

lütfen bu konuda benim bilgi eksikliğimi giderinki, yanlışımdan döneyim, sizin tavsiyeniz yönünde kullanayım, hatalı kod yazıyorum demekki..

[gbg]

(30-09-2021, Saat: 14:47)vedat35 Adlı Kullanıcıdan Alıntı:

(30-09-2021, Saat: 11:13)gbg Adlı Kullanıcıdan Alıntı: Eklemek için bir yöntem oluşturmak daha iyidir.

unit ServerMethodsUnit1;

interface

uses 
.
.
.

type
 TServerMethods1 = class(TDSServerModule)
  .
  .
  .
 public
   { Public declarations }
   function AddUser(UserName: string) : boolean;
 end;

function TServerMethods1.AddUser(UserName: string) : boolean;
begin
Result:=False;
qry.Close;
qry.SQL.Clear;
qry.SQL.Add('INSERT INTO kullanicilar (adi) VALUES  ('+QuotedStr(UserName)+')');
try 
 qry.ExecSQL;
 Result:=True;
except
end; 
end;

Query nin çalıştırıldıkdan sonra veritabanının geri döndürdüğü cevaba bakmadan, işlem başarılıymış gibi true döndürmek yanlış bir mantıkdır.

If an error occurs and the insert is not done
Code "Result: = True;" Does not run.
So the function returns the value of "False"
--------------------------------------------------------------
Bir hata oluşursa ve ekleme yapılmazsa
Kod "Result: = True;" Çalışmıyor.
Böylece işlev "False" değerini döndürür

[mcuyan]

CommandText kullanımıznı yanlış. PAramatetre kullanarak data yollayın command texte, daha sağlıklı olur.
Ex:

ClientDataSet1.Clear;
ClientDataSet1.Close;
ClientDataSet1.CommandText := 'INSERT INTO kullanicilar (adi) VALUES  (:ad)';
ClientDataSet1.ParamByName('ad').value:='Ali Can';
ClientDataSet1.Prepare;
ClientDataSet1.Execute;

 Gibi..

[gonulali]

Teşekkür Ederim