Sayın Hocam aynen dediğiniz gibi yaptım tekrar hata mesajları alıyorum.SQL ve veri tabanları kitabım var ordaki uygulamaları DBDemos aliasındaki örnekler ve delphi7 ile denemeler yaparak ayrıca web ve sizin ipuçları ve forumdaki tartışmaları izleyerek SQL öğrenmeye çalışıyorum.Ne yazık ki 3 günden bu hatada takılıp kaldım.Kendim ce bir çok denemeler yaptım.Hiç biri sonuç vermedi.Acaba nedir bu hatam herkezin başarı ile sonuçlandırdığı bu konuda benim hala takılıp kalmam.
1.Bunu Quary gerek datamodüllü gerek se datamodülsüz denedim olmadı
2.Table active ve requred true yaptım programı run etmeden table grid de gösterdim.Yani Quary Table sql select * from employee komutunuda girdim.
3.Bir çok değişik varyasyonlar denedim hata mesajlarından kurtulamadım ve öğrenme yolculuğum da takılıp kaldım.Aşağıdaki örnek kod gibi,
Kod: Tümünü seç
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
sil:integer;
mj:string;
begin
mj:=Dm.tanimFirstName.Value;
sil:=Dm.tanimEmpNo.AsInteger;
if MessageDlg('Silinecek:'+mj+#13+'Emin misiniz?', mtConfirmation , [mbYes,mbNo],0)=mrYes then
begin
Dm.tanim.Close;
Dm.tanim.SQL.Clear;
Dm.tanim.SQL.Add('DELETE from Employee where EmpNo='+IntToStr(sil));
Dm.tanim.ExecSQL;
Dm.tanim.Refresh;
end;
end;
end.
Type mismatch in expression
Kısacası yukardakine benzer ve ya benzemeyen bir çok denemem oldu..
Tür uyuşmazlığı söylemi diye hata mesajları alıyorum.Acaba DBDemos Aliasında çalışan Özellikle bu cılgın DELETE komutunda....... program örneği yayınlayabilirmisiniz...
Not:Hzr 26, 2003 8:25 Mesaj konusu: Sql ile ilişkili tablolardan kayıt silmek
Konusundaki
Kod: Tümünü seç
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('DELETE from tablo1')
Query1.SQL.Add('where TEKLIF_NO = :Sil');
Query1.ParamByName ('Sil').Value := Query1.FieldByName('TEKLIF_NO').Value;
Query1.ExecSQL;
Denedim malesef olmadı...
En içten saygılarımla..