BiLX.Net Türkiyenin En Büyük Paylaşım Sitesi

Facebook`ta Paylaş




{
 Kullanicinin Gerek select, gerekse Update, Insert vb
 komutlarini hatasiz calistirmak icin kullaniniz.
}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Query1.Close;
  Query1.Sql.Text :=Memo1.Lines.Text;
  try
   Query1.Open;
  except
   on E: Exception do
    if not (E is ENoResultSet) then // eger bunun disinda hata varsa
     raise;
  end;
end;






Sitemizi Facebook`ta Beğenin Yeniliklerden Haberiniz Olsun