Delphi Forum

ADOStoredProc çok kullanışlı değil. Stored procedure oluşturup, bunu AdoQuery içinden kullanabilirsiniz. AdoQuery'nin SQL kısmına

dbo.KAYITLAR

şeklinde yazarsanız, direkt çalışır. İki şeye dikkat etmeniz lazım.

1. parametre varsa, parametreleri de vermeniz lazım.
2. Geriye bir sonuç ...

Hayırlı günler
ADOStoredProc2.Filter:='S1= ' +QuotedStr(Edit6.Text);//kriter
ADOStoredProc2.Filtered:=true;

CREATE PROCEDURE KAYITLAR
AS
BEGIN
SELECT A1, A2, A3, A4,
CONCAT (A1, A2, A3, A4) AS KAYITARA
FROM VERILER
ORDER BY A1 DESC
END
ile procedur oluşturdum ve ADOStoredProc1 ile KAYITARA sütunu ...

Allah razı olsun hocam sağolun

ertank yazdı: 09 May 2025 09:34 Merhaba,
LEFT JOIN değil INNER JOIN kullanmayı deneyin.
Bazı veritabanları sadece JOIN kullanımını INNER JOIN olarak uygulayabiliyorlar.

Hocam INNER JOIN'de de aynını sayıyor. Tablo1 10 kayıt tablo2 50 kayıt varsa mükerrerler ile çok fazla kayıt görünüyor.

Hayırlı günler SQL'de iki tabloyu birleştiriryorum.

SELECT TABLO1.A1, TABLO1.A2, TABLO1.A3, TABLO2.S1, TABLO2.S2, TABLO2.S3
FROM TABLO1 LEFT JOIN TABLO2 ON TABLO1.A1 = TABLO2.A2

TABLO1
A1 A2 A3
1245 TLM2 ELMA
5263 TLM7 ARMUT

TABLO2
S1 S2 S3
1245 TLM23 ELMA
1245 TLM87 ERİK
1245 TLM52 MUZ
5263 ...

Merhaba,
Veriler içinde A5 kolonunda NULL ve '' şeklinde her iki tür kayıt varsa sorun yaşayabilirsiniz.
NOT NULL ifadesi "NULL olmayan" demek oluyor. Boş değer '' NULL değildir. Dolayısıyla listelenir.
Aşağıdaki gibi bir SQL deneyebilirsiniz.

SELECT A3, A4, A5
FROM HTF_KAYITLAR
WHERE COALESCE ...

Şunlardan birini deneyin

SELECT A3, A4, A5 FROM HTF_KAYITLAR WHERE A5 IS NOT NULL AND A5 <> ''
ORDER BY A3 ASC



SELECT A3, A4, A5 FROM HTF_KAYITLAR WHERE A5 IS NOT NULL AND NVL(A5, '') <> ''
ORDER BY A3 ASC



SELECT A3, A4, A5 FROM HTF_KAYITLAR WHERE A5 IS NOT NULL AND COALESCE(CAST(A5 AS ...

Hayırlı günler. Aşağıda SQL ile sorgu yaptım.
A3, A4,A5 kayıtlarını gösterecek
A5 boş olmayanları gösterecek
A3 e göre sıralayacak.

SELECT A3, A4, A5
FROM HTF_KAYITLAR
WHERE A5 IS NOT NULL
ORDER BY A3 ASC

Sorguda kayıtlar A3 e göre sıralı görünüyor ama
kayıtların hepsini gösteriyor.
Boş ...

mussimsek yazdı: 05 May 2025 10:22 Gözüken karakterler boşluk olmayabilir. Bazen Enter karakteri veya başa bir karakterde boşluk gibi gözükebiliyor.

Karakteri tespit edip, replace ile düzeltin. Şuna benzer bir şey :

Kod: Tümünü seç

update KAYITLAR set A1=replace(A1, char(13), '')

Kolay gelsin.

Teşekkür ediyorum hocam Allah razı olsun.

Ertuğrul2025 yazdı: 03 May 2025 02:18

ertank yazdı: 03 May 2025 01:26 Merhaba,

Aşağıdaki şekilde deneyebilirsiniz.

Kod: Tümünü seç

update KAYITLAR set A1=LTRIM(A1)

Sağılun hocam Allah razı olsun.

Hocam denedim ama olmadı.
1000 satır etkilendi diyor ama düzeltme yapmamış

ertank yazdı: 03 May 2025 01:26 Merhaba,

Aşağıdaki şekilde deneyebilirsiniz.

Kod: Tümünü seç

update KAYITLAR set A1=LTRIM(A1)

Sağılun hocam Allah razı olsun.

Hayırlı günler.
Acces veri tabanındaki kayıtları sql e aldı. Ve bazı sütunların kelimelerin solunda boşluk olduğunu fark ettim. Araştırmalarım sonunda LTRIM ile kelimenin solundaki boşlukların kaldırıldığını öğrendim ama ben KAYITLAR tablonun A1 sütunudaki kayıtların solundaki boşlukları nasıl ...

Hayırlı günler. Yaptığım uygulamada Edit1Change ile kayıtları görmek istiyorum.

Bunu yapmanızı önermem. O kadar yoğun veritabanı sorgusu yerine ara butonu gibi bir buton tıklama ile arama yapması daha sağlıklı olacaktır.

Hatanız SQL komutuna ADD() kullanarak ekleme yapmak. Ancak siz her ...

Hayırlı günler. Yaptığım uygulamada Edit1Change ile kayıtları görmek istiyorum.
Delphi XE7 kullanıyorum.

ADOQuery1 SQL ine

SELECT ID, A1, A2,
CONCAT (A1, A2) AS ARA
FROM KAYITLAR
ORDER BY ID DESC

yazarak formda kayıtlarımı görüntülüyorum. ancak "ARA" sütununun içerisinde içeren bir kelime ...

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ş ...