dataset read only hatası?

[forumsad]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
VAR
gln:string;
begin
ibdataset1.Active:=false;
ibdataset1.selectsql.text:=' select * from TBLPUANLARGECICI where ID =1' ;
ibdataset1.Active:=True;

//gln:=IBDataSet1.Fields[0].AsString;
gln:=IBDataSet1.FieldByName('OYADI').AsString;
ShowMessage(gln);
end;

yukardaki kod çalışıyor aşağıdaki çalışmıyor

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject);
begin
ibdataset1.Active:=false;
ibdataset1.selectsql.text:=' select * from TBLPUANLARGECICI where ID =1' ;
ibdataset1.Active:=True;

ibdataset1.Edit;
IBDataSet1.FieldByName('OYADI').AsString:='merhaba';
ibdataset1.Post;


end;

select'i update yaptığımda da başka hatalar veriyor çok soruyorum ama bulduğum bütün örnekleri deniyorum ama hep hata var burda hatam ne acaba

saygılarımla

[csunguray]

Neden TIBQuery kullanmıyorsunuz?

[forumsad]

aynı hatayı ordada alıyorum

[White Rose]

bir de CachedUpdates özelliğini True yapıp deneyin

[greenegitim]

Kod: Tümünü seç

ibdataset1.close;
ibdataset1.selectsql.text:='';
ibdataset1.selectsql.text:=' select * from TBLPUANLARGECICI where ID =1' ;
ibdataset1.open;

ibdataset1.Edit;
IBDataSet1OYADI.value:='MERHABA';
ibdataset1.Post;

[zengin]

s.a

Kod: Tümünü seç

[code]ibdataset1.close;
ibdataset1.selectsql.text:='';//burası nedir anlamadım ?
ibdataset1.selectsql.text:=' select * from TBLPUANLARGECICI where ID =1' ;
ibdataset1.open;

ibdataset1.Edit;
IBDataSet1OYADI.text:='MERHABA';//burada value hata veriri string veya integere dikkat etmelisin
ibdataset1.Post;

[/code]

bu şekil denermisiniz

[forumsad]

malesef hata aynen devam ediyor

formumda;
IBDatabase1
IBTransaction1
IBDataSet1
DataSource1
DBGrid1

var

gerekli ayarları yaptım dbgridde veriler görünüyor....
IBDatabase1:
IBTransaction1:read_committed,rec_version,nowait seçildi
IBDataSet1:DatabaseName:IBDatabase1---IBTransaction1---SelectSQL:select * from TBLPUANLARGECICI ayarlandı
DataSource1
DBGrid1

başka ayar yok sanırım sadece dataset'deki modifysql veya updatesql 'e bir şey girmedim....

Kod: Tümünü seç

procedure TForm2.Button3Click(Sender: TObject);
VAR
gln:string;
begin
ibdataset1.Active:=false;
ibdataset1.selectsql.text:=' select * from TBLPUANLARGECICI where ID =1' ;
ibdataset1.Active:=True;

//gln:=IBDataSet1.Fields[0].AsString;
gln:=IBDataSet1.FieldByName('OYADI').AsString;
ShowMessage(gln);
end;

yukardaki bu select kodu çalışıyor bir sorun yok veri update etmeye gelince sıkıntı yaratıyor...

[zengin]

s.a

arkadaşım senin baglantılarıyın ne oldugunu bilmiyorum fakat

Kod: Tümünü seç

 ibdataset1.Close;
  ibdataset1.SelectSQL.Clear;
  ibdataset1.SelectSQL.Add('SELECT * FROM TBLPUANLARGECICI WHERE ID = :1');
  ibdataset1.ParamByName('ID').Value := 1 ;
  ibdataset1.Open;

  ibdataset1.Edit;
  IBDataSet1OYADI.Text:='MERHABA';
  ibdataset1.Post;

yapmak istedigini dahada acık anlatsan daha iyi olur fakat
Bu şekilde calışmaması mümkün degil birde bu şekilde dene bakalım

[forumsad]

aynen kopyala yapıştır yaptım...

Kod: Tümünü seç

procedure TfrmDataset.Button5Click(Sender: TObject);
begin
 ibdataset1.Close;
  ibdataset1.SelectSQL.Clear;
  ibdataset1.SelectSQL.Add('SELECT * FROM TBLPUANLARGECICI WHERE ID = :1');
  ibdataset1.ParamByName('ID').Value := 1 ;
  ibdataset1.Open;

  ibdataset1.Edit;
  IBDataSet1OYADI.Text:='MERHABA';
  ibdataset1.Post;
end;

Field "ID" Not fount ---id bulunamadı diyor ama ID kısmı kesinlikle var


tablomda ID kısmı otomatik artan sayı şeklindeayarlı

saygılar

[zengin]

s.a

arkadaşım ( IBDataSet1OYADI.Text:='MERHABA'; ) veri tabanındaki alan stringmi yoksa integermi ? bir bakarmısın lütven

hata olması mümkün degil yada kücük bir örnek ver bakalım nerde hata yapılıyor

[greenegitim]

dataset bileşenininde dataset editorunda sql generator oluşturdunmu? daha sonra fields editorden tüm fieldları ekledinmi?

[forumsad]

veritabanı dosyası klaörün içindedir..
proje dosyası ekdedir...

saygılarımla

http://www.dosya.tc/server3/toKyqz/fire ... t.rar.html

[zengin]

s.a

arkadaşım uygulama örnegini gördüm fakat Firebird sürüm farklılıgından dolayı veri tabanına ulaşamadım kusura kalma

http://www.devrace.com/en/fibplus/ kulanmanıda öneriyorum cünkü kulanımı daha kolay

kolay gelsin

[forumsad]

farkı nedir hocam plus en son versiyon değil herhalde farklı bir veritabanımı?

[Lost Soul]

sadece selectsql'i tanımlamışsın. Delete, Update ve Insert sql'i de tanımlaman lazım. Kolay gelsin.