Delphi Forum

Son kullanıcı ayda bir sefer kullanacak, arada illaki bağlantı hataları çıkacak ve 3. parti bileşen vs fazladan maliyet çıkaracak. Pratik çözüm olarak, google sheets de menüden indir(Download) seçeneklerinde excel veya csv formatında yapabiliyor. Local e indir, bu dosyayı seç demek en pratik çözüm ...

Çok Teşekkürler, sıradan incelemeye başlıycam.

1-cdata "Connect Spreadsheets Plans" diye bir şeyleri var ama aylık ufak datalar için 59$ istiyor. odbc driver ise 399$ yıllık

2- Bunu görmüştüm. Google tarafında export script app yazıyorsun, bunu link oluşturup dışarıdan ( delphi ) httpget ile ...

Merhaba,
Google tablolardan veri alma konusunda bilgisi deneyimi olan var mı?

Eline sağlık, güzel çalışma. Lazarus ve linux içinde tasarlanmış olması değerli.
Öğrenme isteği olanlar projeye incelemesini ve katılmasını tavsiye ederim. Pascal tecrübelerini arttırmak için güzel bir fırsat.

https://learn.microsoft.com/en-us/sql/t-sql/functions/getdate-transact-sql?view=sql-server-ver16


procedure TForm3.Button1Click(Sender: TObject);
begin
ADOQuery2.Filter:=('SELECT * FROM HTF_KAYITLAR WHERE A21 = GETDATE()');
ADOQuery2.Filtered:=true;
end;

işin içine saat te girdiği için boş ...

https://learn.microsoft.com/en-us/sql/t-sql/functions/getdate-transact-sql?view=sql-server-ver16


procedure TForm3.Button1Click(Sender: TObject);
begin
ADOQuery2.Filter:=('SELECT * FROM HTF_KAYITLAR WHERE A21 = GETDATE()');
ADOQuery2.Filtered:=true;
end;

işin içine saat te girdiği için boş ...

sako yazdı: 11 Nis 2025 04:10 Konuun üzerinden uzun bir süre geçmiş ama VisualPlanIt componentini indirebileceğiminiz bir link var mı acaba ? Buraya ekleyecek bir arkadaşımız var mıdır acaba ? İnternetten çok aradım ama link bulamadım.

İlk aramamda buldum !!!
https://sourceforge.net/projects/lazaru ... /tvplanit/

select KAYITLAR.ID, A1, A2, SOZLESME.S2, S3, S14
from KAYITLAR
INNER JOIN SOZLESME ON KAYITLAR.A1 = SOZLESME.S1

SQL string inin düzenli yazmanı öneririm. A1, A2 hangi tablonın? başında alias yada tablo isimleri yok. ayrıca formatlı şekilde yazarsan hatayı bulman dahada kolay olacaktır.
"ON ...

ozcank yazdı: 22 Mar 2025 02:04 Çok teşekkür ederim. Emeğine sağlık. Son birşey ben bu alanları c:\ sürücüsün de AYARLAR.INI dosyasına
[Columns]
CARI_KOD=0
CARI_ISIM=1
PLASIYER_KODU=1

Şeklinde kaydediyorum. Sağ Klik yaptığım da 0 ve 1 e göre Cari Kod un durumunu verebilir miyim ? İşaretli veya İşaretsiz şeklinde.

evet

procedure TForm16.CariKod1Click(Sender: TObject);
var
i: Integer;
// ColumnIndex: Integer;
begin
// CariKod1'in Checked durumunu tersine çevir
CariKod1.Checked := not CariKod1.Checked;

// CARI_KOD sütununu bul
// ColumnIndex := 0;
for i := 0 to DBGrid1.Columns.Count - 0 do
begin
if ...

Forumu kurma amacımız zaten soru sorulması :)
sql, code vs için tag kullanırsan daha okunaklı olacak.
Ben olsam ADOQuery_Garanti yerine Q_Garanti yada qry_Garanti şeklinde standart bir kısaltmaya giderdim.
Yazdığını sql server a yıkmaya alıştır, önceliğini sql e vermen, hem sorunları ...

Ertuğrul2025 yazdı: 12 Şub 2025 01:27 Bu işte biraz acemiyim hocam
query lere sort ekle
Nasıl yapabilirim acaba.

sql text ine "order by fieldname(s)"
index olan alanlarda daha verimli çalışır.

dbcombobox kullan, query lere sort ekle.
niye repeat until, while değil?

Firebird 3.0.8 den sonrası mevcut

Dockerhub linki
https://hub.docker.com/r/firebirdsql/firebird
Buda github üzerindeki linkler
https://github.com/FirebirdSQL/firebird-docker

...Trim(Edit3.Text) = '()'Then...
QuotedStr(Edit3.Text) bunun sonucunu (QuotedStr(Edit3.Text) = '''()''') şeklinde kontrol edebilirsin. eşitin sağındaki ilk tırnak, string ifadeyi belirtir