------------------------------------------------------
Firebird Veritabanında bu işlemi aşağıdaki şekilde yapmıştım faydalı olabilmesi adına onuda buraya eklemek istedim.
İyi Çalışmalar.
Data bağlantımızın var olduğunu varsayıyorum;
Kod: Tümünü seç
qAra.Close; // alan Kontrol işlemi
qAra.SQL.Clear;
qAra.sql.add('select * from RDB$RELATION_FIELDS where RDB$RELATION_NAME ='+QuotedStr('FIRMA') + ' and ' + 'RDB$FIELD_NAME ='+QuotedStr('TELEFON1'));
qAra.open;
if qAra.IsEmpty then // Eğer Alan Yoksa Ekleme işlemi
begin
qEkle.SQL.Clear;
qEkle.SQL.Add('ALTER TABLE FIRMA ADD TELEFON1 VARCHAR(20)');
qEkle.ExecSQL;
TSERVIS.CommitRetaining;
end;