• Şifreli bir table için programın şifre istememesi için
• Bir DBGrid’de birden fazla seçilen kayıtlara ulaşmak
• Table'mı yoksa Query'imi kullanmalıyım  
• Bir tablodaki kayıtların StringGrid bileşinine doldurulması  
• Bir tablonun alanlarını bulma
• Paradox tablosuna şifre koyma
• Bir tablonun tüm alanları üzerinde işlem yapma 
• Bir tabloyu baştan sona tarama 
• Mevcut alias'ların listesini alma
• Bir alias'taki tabloların listesini alma
• Bir sonraki kayıt yerine 3 kayıt birden atlamak isterseniz
• Bir Paradox tablosunda en fazla kaç alan olabilir    
• BDE ile Oracle9i'yi kullanabilir miyim?
• dbGO nedir?
• dbExpress ile hangi veritabanlarına ulaşabilirim, Paradox, dBase tablolarına erişebilirmiyim?
• Geçici işlemler için tablo kullanma (memory table) 
• Paradox Alternatifleri
• Paradox veritabanına verileri yazdığım halde kayboluyor
• dbGrid'te bir alanın değerine göre satırı renklendirme
• dbExpress ile SqlTable nesnesi ile veriyi değiştiremiyorum, "can not modify read only data set" hatası veriyor
• Bir tablodaki kayıt sayısını bulma
• Paradox'ta silinen bir kaydı kurtarabilir miyim?
• dbGrid'e checkBox eklemek
• Veritabanına jpeg resimleri kaydetme/okuma
• Renkleri veritabanına kaydetmek
• DataModule kullanıyorum, "Access Violation" hatası alıyorum
• SQL sorgusu ile tablomdan NO isimli alanı seçerken problem çıkıyor 
• AutoInc bir alanda silinen kayıtlar için yeniden sıralama yapmak istiyorum
• Programımı hızlandırmak için neler yapabilirim
• Table'daki bir blob alanın büyüklüğünü bulma
• DBGrid'de Aktif Satırın İstenen Renge Boyanması
• dBase Kullanırken Oluşan Temp Dosyalar
• Paradox Tablosunda "index out of range" Hatası
• "Capability not supported" Hatası
• Paradox'ta Bozulan Indekslerin Düzeltilmesi
• Query'de Sonuçlar Salt Okunur (Read Only) Dönüyor
• Interbase için ODBC Driver
• ADO'da Sorgu Çalışırken İptal Etme
• View nedir ve niçin kullanılır?
• Query'deki SQL cümlesini kontrol etmek
• DBGrid'te satır numarası oluşturma
• FireBird/Interbase veritabanı ve tabloları oluşturma
• dBase ve paradox tablolarının pack edilmesi
• Paradox için BDE Alias'ı Oluşturma
• Paradox'ta Bilgilerin Kaybolması
• DisableControls-EnableControls
• Open ile ExecSql arasındaki fark nedir?
• Database'i açtığım anda Login ekranı çıkmasın
• DBLookupComboBox'ın içerisini temizlemek
• Tekrarlanan kayıtları tespit etme

 Şifreli bir table için programın şifre istememesi için

Table'ın Active özelliğini False yapın ve Form'un OnCreate olayına aşağıdaki kodu ekleyin

Session.AddPassword('şifre');
Table1.Active:=True;

Table'mı yoksa Query'imi kullanmalıyım

Lokal bir veritabanı ile çalışırken (Paradox, dBase gibi) Table kullanın. Client/Server bir veritabanı (Oracle, Interbase, SQL Server, Sysbase gibi) ile çalışıyorsanız Query kullanın. 

Bir tablodaki kayıtların StrinGrid bileşenine doldurulması

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i,row:integer;
begin
  Table1.First;
  row := 0;
  StringGrid1.RowCount := Table1.RecordCount;
  while not Table1.EOF do
    begin
      for i := 0 to Table1.FieldCount-1 do
        StringGrid1.Cells[i,row] := Table1.Fields[i].AsString;
      Inc (row);
      Table1.Next;
    end;
end;

{Bu ipucu Abdurrahman Sinanoğlu tarafından gönderilmiştir}

Bir tablonun alanlarını (field) bulma 

procedure TForm1.Button1Click(Sender: TObject);
begin
  Table1.Open;
  Table1.GetFieldNames(Listbox1.Items);
end;

{Bu ipucu Abdurrahman Sinanoğlu tarafından gönderilmiştir}

Paradox tablosuna şifre koyma

Bir paradox dosyasına şifre koymak için :
1. Database Desktop'u açın.
2. Şifre koymak istediğiniz paradox tablosunu açın.
3. Table menüsünde Restructure komutunu verin.
4. Gelen ekranda sağ üst köşedeki Table Properties kısmından Password Security'i seçin.
5. Define tuşuna basarak şifrenizi girin.
6. Yaptığınız değişiklikleri kaydedin.

Bir tablonun tüm alanları üzerinde işlem yapma

for i:=0 to Table1.FieldCount-1 do
....

Bir tabloyu baştan sona tarama

Table1.First;
while not Table1.EOF do
  begin
    ...
    Table1.Next;
  end;

Mevcut alias'ların listesini alma

uses kısmına DBTables ekleyin. Combobox1'e mevcut listeyi almak için :

Session.GetDatabaseNames(Combobox1.Items);

Bir alias'taki tabloların listesini alma

Session.GetTableNames(Combobox1.Text, '', True, False, ListBox1.Items);

Parametreler sırasıyla veritabanının adı, filtre (sadece lokal veritabanları için), tablo dosya uzantıları olacak mı?, sistem tabloları gösterilecek mi? (sadece SQL veritabanları) ve listenin getirileceği yer.

Bir sonraki kayıt yerine 3 kayıt birden atlamak isterseniz

Table1.MoveBy(3);

Bir Paradox tablosunda en fazla kaç alan olabilir

En fazla 255 alan (field) olabilir.

BDE ile Oracle9i'yi kullanabilir miyim?

BDE artık gelişitirilmiyor. Son versiyonu 5.2 ise Oracle 8.0.4'ten 8.1.6'ya kadar destekliyor. Oracle 9i için dbExpress kullanmalısınız.

dbGo nedir?

dbGO'nun diğer bir ismi ADO. Delphi 5 Enterprise ve Delphi 6 ve sonrasında Professional ve Enterprise sürümlerinde yer alıyor. Delphi 5 Professional'a da ayrıca kurulabiliyor. Diğer bir ismi de ADO Express.

dbExpress ile hangi veritabanlarına ulaşabilirim, Paradox, dBase tablolarına erişebilirmiyim?

dbExpress şu anda DB2, Interbase, MySQL, Oracle ve Informix ile çalışabiliyor. Delphi 7 ile birlikte SQL Server 2000'de bu listeye dahil oldu. 
dbExpress ile Paradox, dBase ve FoxPro tablolarını kullanamazsınız.

Geçici işlemler için tablo kullanma (memory table)

Bazen programda bilgilerinizi geçici olarak saklama ihtiyacı duyarsınız. Memory Table'lar bu iş için biçilmiş kaftan. Şu an piyasadaki en iyi memory table bileşeni kbmMemTable ve bedava. Bileşeni sitesinden indirebilirsiniz : www.components4developers.com

Paradox Alternatifleri

Paradox tek kullanıcılı programlarda pek fazla problem çıkarmazken, ağ ortamında eğer dikkatli kullanılmazsa tam bir başbelası. Ayrıca BDE'nin artık geliştirilmiyor olması ayrı bir dezavantaj. Paradox yerine çeşitli 3. parti veritabanları kullanabilirsiniz. Delphi veritabanı desteği yönünden çok geniş, ancak ben çok tutulan 2 bileşeni aşağıda belirttim.

- dbIsam ( www.elevatesoft.com ): Çok kullanıcı desteği var, ODBC desteği var, SQL desteği var, teknik desteği çok iyi. dbIsam parayla satılıyor, sitesinden deneme sürümünü indirip deneyebilirsiniz.

- Easy Table ( www.aidaim.com ) : SQL desteği var, hızlı. Easy Table da parayla satılıyor, sitesinden deneme sürümünü indirip deneyebilirsiniz.

NOT : Bir de bedava bir çözüm olan TurboPower FlashFiler var. İyi bir veritabanı, bedava olması ve BDE gerektirmemesi de avantajları. Sitede 3. parti bileşenler kısmında, TurboPower yazısında detayları ve linki var.

Paradox veritabanına verileri yazdığım halde kayboluyor

- Paradox tablosuna yazdığınız veriler anında dosyaya kaydedilmez. Anında kayıt olmasını istiyorsanız BDE Administrator'dan Local Share özelliğini True yapın. (BDE Administrator - Configuration - System - INIT). 

- Eğer cachedUpdates çalışmıyorsanız, Tablonun CachedUpdates özelliği False'mu dikkat edin.

- Bunların ikisi de işe yaramaz ise Table/Query bileşenini silip yeni bir bileşen koyup, onu ayarlayın.

dbGrid'te bir alanın değerine göre satırı renklendirme

Aşağıdaki kodla bu işi yapabilirsiniz. NO alanının değeri 100'den küçükse satır sarı, 
100 ile 200 arası ise yeşil, 200 ile 300 arası ise kırmızı olur.

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  MyValue: integer;
begin
  if gdSelected in State then Exit;
  MyValue := DBGrid1.DataSource.DataSet.FieldByName('NO').AsInteger;
  if MyValue <100 then
    DBGrid1.Canvas.Brush.Color := clYellow
  else
    if MyValue <200 then
      DBGrid1.Canvas.Brush.Color := clGreen
    else
      if MyValue <300 then
        DBGrid1.Canvas.Brush.Color := clRed;
  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

 dbExpress ile SqlTable nesnesi ile veriyi değiştiremiyorum, "can not modify read only data set" hatası veriyor

procedure TForm1.loadPic;
var
  jpeg: TJPEGImage;
  Stream: TMemoryStream;
  BlobField: TBlobField;
begin
  BlobField := table1.DataSet.FieldByName('Bild') as TBlobField;
  jpeg := TJPEGImage.Create;
  try
    if (Image1.Picture.Graphic is TJPegImage) then begin
       jpeg.Assign (ImageFoto.Picture.Bitmap);
    end;
    Stream := TMemoryStream.Create;
    try
       jpeg.SaveToStream (Stream);
      DataSourceForm.DataSet.Edit;
      BlobField.LoadFromStream (Stream);
    finally
      Stream.Free;
    end;
  finally
    jpeg.Free;
  end;
end;

procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
var
  MS: TMemoryStream;
  J1: TJPEGImage;
begin
  J1 := TJPEGImage.Create;
  MS := TMemoryStream.Create;
  try
    TBlobField(DataSet.Fieldbyname('myBlob')).SaveToStream(MS);
    MS.Seek(0,soFromBeginning);
    with J1 do begin
      PixelFormat := jf24Bit;
      Scale := jsFullSize;
      Grayscale := False;
      Performance := jpBestQuality;
      ProgressiveDisplay := True;
      ProgressiveEncoding := True;
      LoadFromStream(MS);
    end;
    if MS.Size >0 then 
      Image1.Picture.Assign(J1)
    else
      Image1.Picture.Assign(nil);

  finally
    J1.Free;
    MS.Free;
  end;
end;

Tekrarlanan kayıtları tespit etme

Bazı kayıtlardan çift ise problem çıkartabilir. Bu tip kayıtları SQL ile çok kolay bir şekilde tespit edebilirsiniz. Mesela PERSONEL tablosunda, birden fazla aynı isme sahip kayıtları dökmek için :

SELECT AD_SOYAD, COUNT(*)
FROM TABLO_ADI
GROUP BY AD_SOYAD
HAVING COUNT(*)>1
bimeks borland component database delphi delphi.net delphi dersleri firebird help interbase makale oracle seminer software sybase veritabanı web