T-SQL de Rekürsif Select ifadesi yazmak

M

muhasebeciyiz

Altın Üye
Katılım
10 Şubat 2006
Mesajlar
638
Excel Vers. ve Dili
Office 2016
64 Bit
Altın Üyelik Bitiş Tarihi
21-12-2027
sayın ersoy

sizden şöyle bir yardım istesem logo müşavir setteki işletme defteri proğramı için sql sorgu kullanabilirmiyiz yardımcı olurmusunuz ?
 
beab05

beab05

Özel Üye
Katılım
19 Mart 2007
Mesajlar
1,419
Excel Vers. ve Dili
Office 2013
Merhaba;

Yukarıda yeşil fontla yazılmış olan sorgunun çalışmama nedenini anlayamadım alan hatası yoksa çalışması gerekirdi diye düşünüyorum. Bundan daha önemli olansa sizin ne yapmaya çalıştığınızın farkına varmanız..
Fakat; ( sizin tarzınızda oldu bu ;) )
"yeni bir tablo oluşturup içine istediğim sonucu sadece 2 field için doğru veren Query yi ekleyeyim...
demişsiniz, bunu anlayamadım. Yeni bir tablo oluşturmak niye? Yoksa yanlış mı ifade ettiniz?
Ve ardından gelen;
"sonra Mükerer kayıt listeleyen querymi de başka bir Tabloya çekeyim...

sonra bu tabloları doğru olan küçük tabloya göre birleştireyim..."

bu kısmı da anlayamadım. Sanırım hala kafanızda yanlış bir kurgu var ya da yanlış ifade ve bir diğer seçenek ise ben sizi yanlış anlıyorum..


Soldaki, sağdaki ve her iki tabloya göre birleştirme, "left join", "right join" ve " full join" olarak yapılır. Full join müthiş faydalıdır. ANSI SQL desteklemez ama T-SQL destekler böylece 2 farklı tablodaki join yapılan alanlar arasında çift taraflı bir eşleşme yapar ve bizi en basit olarak "UNION" sorgusu kullanmaktan kurtarır..
 
L

lsuersoy

Katılım
29 Haziran 2005
Mesajlar
158
Excel Vers. ve Dili
MS Office Professional Plus 2013 64 Bit -Eng
MSSQL 2012 R2 64 Bit
Logo Müşavir Set

muhasebeciyiz' Alıntı:
sayın ersoy

Sizden şöyle bir yardım istesem logo müşavir setteki işletme defteri proğramı için sql sorgu kullanabilirmiyiz yardımcı olurmusunuz ?
Genişletmek için tıkla ...
Merhaba ;

Logo Müşavir Set ve işletme Defteri benim en zayıf halkamı oluşturur.
1998-2002 yılları arasında DOS tabanlı Müşavir Set ile haşır-neşir oldum.
SQL tabanlı Müşavir Set de yükledim , eğitimlerini de verdim ama nerede ise 7 yıldır MM2 ile ilgilenmiyorum-ilgilenemiyorum.

Yani Logo ile ilgili olarak Genel Muhasebe Modülü için belki birşeyler yazılabilir
Fakat İşletme Defteri için Tablo yapısını bugüne kadar hiç incelemediğimden ne desem yalan olur...

Benim uzmanlık alanım daha ziyade Stok-Cari-Finans-Üretim-Maliyet Muhasebesi,MRP üzerine...

ama siz isterseniz yapmak istediklerinizi FARKLI BİR KONU AÇARAK anlatın belki fikir yürütebilirim.
 
L

lsuersoy

Katılım
29 Haziran 2005
Mesajlar
158
Excel Vers. ve Dili
MS Office Professional Plus 2013 64 Bit -Eng
MSSQL 2012 R2 64 Bit
beab05' Alıntı:
Merhaba;

Yukarıda yeşil fontla yazılmış olan sorgunun çalışmama nedenini anlayamadım alan hatası yoksa çalışması gerekirdi diye düşünüyorum. Bundan daha önemli olansa sizin ne yapmaya çalıştığınızın farkına varmanız..
Fakat; ( sizin tarzınızda oldu bu ;) )
"yeni bir tablo oluşturup içine istediğim sonucu sadece 2 field için doğru veren Query yi ekleyeyim...
demişsiniz, bunu anlayamadım. Yeni bir tablo oluşturmak niye? Yoksa yanlış mı ifade ettiniz?
Ve ardından gelen;
"sonra Mükerer kayıt listeleyen querymi de başka bir Tabloya çekeyim...

sonra bu tabloları doğru olan küçük tabloya göre birleştireyim..."

bu kısmı da anlayamadım. Sanırım hala kafanızda yanlış bir kurgu var ya da yanlış ifade ve bir diğer seçenek ise ben sizi yanlış anlıyorum..


Soldaki, sağdaki ve her iki tabloya göre birleştirme, "left join", "right join" ve " full join" olarak yapılır. Full join müthiş faydalıdır. ANSI SQL desteklemez ama T-SQL destekler böylece 2 farklı tablodaki join yapılan alanlar arasında çift taraflı bir eşleşme yapar ve bizi en basit olarak "UNION" sorgusu kullanmaktan kurtarır..
Genişletmek için tıkla ...

Yeşil sorgunun Kendi PC imdeki ortama uyarlanmış sekli aşağıdaki gibidir

SELECT bb.* FROM(
SELECT LG_086_01_CSCARD.PORTFOYNO ,MAX(LG_086_01_CSTRANS.STATNO) AS MaxSayı
FROM V_86_CEK_SENET
GROUP BY LG_086_01_CSCARD.PORTFOYNO) AS x
JOIN V_86_CEK_SENET AS bb ON x.LG_086_01_CSCARD.PORTFOYNO =bb.LG_086_01_CSCARD.PORTFOYNO
AND x.MaxSayı =bb.LG_086_01_CSTRANS.STATNO
ORDER BY LG_086_01_CSCARD.PORTFOYNO

Sorgu sonucunda aldığım hata da aşağıdaki gibidir.

Server: Msg 107, Level 16, State 3, Line 4
The column prefix 'LG_086_01_CSCARD' does not match with a table name or alias name used in the query.
Server: Msg 107, Level 16, State 1, Line 4
The column prefix 'LG_086_01_CSCARD' does not match with a table name or alias name used in the query.
Server: Msg 107, Level 16, State 1, Line 4
The column prefix 'LG_086_01_CSCARD' does not match with a table name or alias name used in the query.
Server: Msg 107, Level 16, State 1, Line 4
The column prefix 'LG_086_01_CSTRANS' does not match with a table name or alias name used in the query.
Server: Msg 107, Level 16, State 1, Line 4
The column prefix 'x.LG_086_01_CSCARD' does not match with a table name or alias name used in the query.
Server: Msg 107, Level 16, State 1, Line 4
The column prefix 'bb.LG_086_01_CSCARD' does not match with a table name or alias name used in the query.
Server: Msg 107, Level 16, State 1, Line 4
The column prefix 'bb.LG_086_01_CSTRANS' does not match with a table name or alias name used in the query.

Diğer anlayamadığınız veya benim aktaramadığım Tablo sorunsalına gelince ;

Tek bir sorgu ile istediğim sonuca ulaşamadığımdan , 2 farklı sorgu ile iki farklı TABLE ye bilgiler çekip bu bilgileri birleştirmek istiyorum.

Neden tek bir sorgu ile sonuca ulaşamıyorum , çünkü T-SQL Kural ihlali yaparak kendimce doğru sonuca ulaşmak istiyorum.Benim anladığım bu idi...

Belki CURSOR tanımlanarak TEMP de bilgi tutarak sonucun ekrana istediğim şekilde aktarılması da mümkün olabilir, ama ben, daha basit bir SELECT ifadesin de tek bir table dan bilgileri istediğim gibi sıralayamıyorsam...manuel, tabiri caiz ise düşük teknoloji ile yola devam etmekden başka çare göremiyorum...

Çünkü bu sorgu sonucu benim için çok önemli idi , yapmak istediğim raporun belkide sadece %5 ini oluşturuyor ama başlangıç noktası olacaktı , dolayısı ile tabloları sorguya çekemiyorum ama onları birleştirebilme ümidi var içimde...

ilginize çok çok teşekkür ederim.

Kolay gelsin , iyi çalışmalar.

Saygılarımla,
 
Son düzenleme:
L

lsuersoy

Katılım
29 Haziran 2005
Mesajlar
158
Excel Vers. ve Dili
MS Office Professional Plus 2013 64 Bit -Eng
MSSQL 2012 R2 64 Bit
Galiba sorunun çözümüne yaklaştım...

Elimde eski bir data vardı , o data nın üzerinde saatlerce uğraştıkdan sonra
doğru sonuca ulaştım...

Ama nasıl ?

Logo veritabanında ne işe yaradığından emin olmadığım fieldları inceledim...
ayrıştırmayı sağlayacak uygun bir Field bulmayı ümid ediyordum ve buldum
ama bu buluşun gerçek olup olmadığını Orjinal datada test yapdıkdan sonra söyleyebilirim....

Şu sorgu ile istediğim sonuca ulaşabiliyorum....TEST Datasında

SELECT CEK_KART.PORTFOYNO AS PortfoyNo, CEK_KART.SERINO AS SeriNo, CEK_KART.DOC AS Türü, CEK_KART.CURRSTAT AS Statüsü,
CEK_KART.DUEDATE AS Vade, CEK_KART.SETDATE AS Tarih1, CEK_KART.AMOUNT AS Tutar, MAX(ROLLER.STATNO) AS Hareket,
CARI.CODE AS [Cari Kodu], CARI.DEFINITION_ AS Ünvanı, ROLLER.RECSTATUS
FROM LG_086_CLCARD CARI INNER JOIN
LG_086_01_CSTRANS ROLLER ON CARI.LOGICALREF = ROLLER.CARDREF INNER JOIN
LG_086_01_CSCARD CEK_KART ON ROLLER.CSREF = CEK_KART.LOGICALREF
GROUP BY CEK_KART.PORTFOYNO, CEK_KART.SERINO, CEK_KART.DOC, CEK_KART.CURRSTAT, CEK_KART.DUEDATE, CEK_KART.SETDATE, CARI.CODE,
CARI.DEFINITION_, CEK_KART.AMOUNT, ROLLER.RECSTATUS
HAVING (CEK_KART.DUEDATE > CONVERT(DATETIME, '2008-01-01 00:00:00', 102)) AND (CEK_KART.DOC = 2) AND (ROLLER.RECSTATUS IN (1, 2))

umarım yarın orginal data da istediğim sonuca ulaşırım...

tekrar ilginize teşekkürler...
 
beab05

beab05

Özel Üye
Katılım
19 Mart 2007
Mesajlar
1,419
Excel Vers. ve Dili
Office 2013
Merhaba tekrar;

"V_86_CEK_SENET" sizin oluşturduğunuz VIEW ismi mi? ayrıca querynin en üst satırına;

USE database_ismi

ni ekler misiniz? VIEW ismini doğru yazdığınızı da kabul edersek..

şu şekilde

Use Database_İsmi

SELECT bb.* FROM(
SELECT LG_086_01_CSCARD.PORTFOYNO ,MAX(LG_086_01_CSTRANS.STATNO) AS MaxSayı
FROM V_86_CEK_SENET
GROUP BY LG_086_01_CSCARD.PORTFOYNO) AS x
JOIN V_86_CEK_SENET AS bb ON x.LG_086_01_CSCARD.PORTFOYNO =bb.LG_086_01_CSCARD.PORTFOYNO
AND x.MaxSayı =bb.LG_086_01_CSTRANS.STATNO
ORDER BY LG_086_01_CSCARD.PORTFOYNO
 
L

lsuersoy

Katılım
29 Haziran 2005
Mesajlar
158
Excel Vers. ve Dili
MS Office Professional Plus 2013 64 Bit -Eng
MSSQL 2012 R2 64 Bit
Beab05 gerçekten çok özverilisin ,

SQL sorgusunu çözümledim.

Ve yeni SQL sorgum şu hale geldi...

"SELECT CEK_KART.PORTFOYNO AS PortfoyNo, CEK_KART.SERINO AS SeriNo, CEK_KART.DOC AS Türü, CEK_KART.CURRSTAT AS Statüsü,
CEK_KART.DUEDATE AS Vade, CEK_KART.SETDATE AS Tarih1, CEK_KART.AMOUNT AS Tutar, MAX(ROLLER.STATNO) AS Hareket,
CARI.CODE AS [Cari Kodu], CARI.DEFINITION_ AS Ünvanı, ROLLER.RECSTATUS, CEK_KART.OURBANKREF, CEK_KART.BANKNAME,
CEK_KART.SPECODE, CEK_KART.CYPHCODE, CEK_KART.CITY, CEK_KART.OWING, CEK_KART.KEFIL, CEK_KART.MUHABIR, CEK_KART.BRANCH,
CEK_KART.DEVIR, CEK_KART.INUSE, CEK_KART.EXTENREF, CEK_KART.CAPIBLOCK_CREATEDBY, CEK_KART.CAPIBLOCK_CREADEDDATE,
CEK_KART.CAPIBLOCK_CREATEDHOUR, CEK_KART.CAPIBLOCK_CREATEDMIN, CEK_KART.CAPIBLOCK_CREATEDSEC,
CEK_KART.CAPIBLOCK_MODIFIEDBY, CEK_KART.CAPIBLOCK_MODIFIEDDATE, CEK_KART.CAPIBLOCK_MODIFIEDHOUR,
CEK_KART.CAPIBLOCK_MODIFIEDMIN, CEK_KART.CAPIBLOCK_MODIFIEDSEC, CEK_KART.COLLREPRATE, CEK_KART.COLLTRRATE,
CEK_KART.CANCELLED, CEK_KART.LINEEXCTYP, CEK_KART.TEXTINC, CEK_KART.SITEID, CEK_KART.RECSTATUS AS Expr1,
CEK_KART.ORGLOGICREF, CEK_KART.WFSTATUS, CEK_KART.BNBRANCHNO, CEK_KART.BNACCOUNTNO, CEK_KART.DEPTADDR1,
CEK_KART.DEPTADDR2, CEK_KART.DEPTCITY, CEK_KART.DEPTCITYCODE, CEK_KART.DEPTCOUNTRY, CEK_KART.DEPTCOUNTRYCODE,
CEK_KART.DEPTPOSTCODE, CEK_KART.DEPTTELNRS1, CEK_KART.DEPTTELNRS2, CEK_KART.DEPTFAXNR, CEK_KART.DEPTTOWN,
CEK_KART.DEPTTOWNCODE, CEK_KART.DEPTDISTRICT, CEK_KART.DEPTDISTRICTCODE, CEK_KART.OPSTAT, CEK_KART.PRINTCNT,
CEK_KART.NEWSERINO, CEK_KART.PROJECTREF, CEK_KART.FAXCODE, CEK_KART.TELCODES2, CEK_KART.TELCODES1,
CEK_KART.COLLATCARDREF , CEK_KART.COLLATROLLREF, CEK_KART.AFFECTCOLLATRL, CEK_KART.AFFECTRISK
FROM LG_" & Format(Sheets("SETUP").Range("B5"), "000") & "_CLCARD CARI INNER JOIN
LG_" & Format(Sheets("SETUP").Range("B5"), "000") & "_01_CSTRANS ROLLER ON CARI.LOGICALREF = ROLLER.CARDREF INNER JOIN
LG_" & Format(Sheets("SETUP").Range("B5"), "000") & "_01_CSCARD CEK_KART ON ROLLER.CSREF = CEK_KART.LOGICALREF
GROUP BY CEK_KART.PORTFOYNO, CEK_KART.SERINO, CEK_KART.DOC, CEK_KART.CURRSTAT, CEK_KART.DUEDATE, CEK_KART.SETDATE, CARI.CODE,
CARI.DEFINITION_, CEK_KART.AMOUNT, ROLLER.RECSTATUS, CEK_KART.OURBANKREF, CEK_KART.BANKNAME, CEK_KART.SPECODE,
CEK_KART.CYPHCODE, CEK_KART.CITY, CEK_KART.OWING, CEK_KART.KEFIL, CEK_KART.MUHABIR, CEK_KART.BRANCH, CEK_KART.DEVIR,
CEK_KART.INUSE, CEK_KART.EXTENREF, CEK_KART.CAPIBLOCK_CREATEDBY, CEK_KART.CAPIBLOCK_CREADEDDATE,
CEK_KART.CAPIBLOCK_CREATEDHOUR, CEK_KART.CAPIBLOCK_CREATEDMIN, CEK_KART.CAPIBLOCK_CREATEDSEC,
CEK_KART.CAPIBLOCK_MODIFIEDBY, CEK_KART.CAPIBLOCK_MODIFIEDDATE, CEK_KART.CAPIBLOCK_MODIFIEDHOUR,
CEK_KART.CAPIBLOCK_MODIFIEDMIN, CEK_KART.CAPIBLOCK_MODIFIEDSEC, CEK_KART.COLLREPRATE, CEK_KART.COLLTRRATE,
CEK_KART.CANCELLED, CEK_KART.LINEEXCTYP, CEK_KART.TEXTINC, CEK_KART.SITEID, CEK_KART.RECSTATUS, CEK_KART.ORGLOGICREF,
CEK_KART.WFSTATUS, CEK_KART.BNBRANCHNO, CEK_KART.BNACCOUNTNO, CEK_KART.DEPTADDR1, CEK_KART.DEPTADDR2,
CEK_KART.DEPTCITY, CEK_KART.DEPTCITYCODE, CEK_KART.DEPTCOUNTRY, CEK_KART.DEPTCOUNTRYCODE, CEK_KART.DEPTPOSTCODE,
CEK_KART.DEPTTELNRS1, CEK_KART.DEPTTELNRS2, CEK_KART.DEPTFAXNR, CEK_KART.DEPTTOWN, CEK_KART.DEPTTOWNCODE,
CEK_KART.DEPTDISTRICT, CEK_KART.DEPTDISTRICTCODE, CEK_KART.OPSTAT, CEK_KART.PRINTCNT, CEK_KART.NEWSERINO,
CEK_KART.PROJECTREF, CEK_KART.FAXCODE, CEK_KART.TELCODES2, CEK_KART.TELCODES1, CEK_KART.COLLATCARDREF,
CEK_KART.COLLATROLLREF , CEK_KART.AFFECTCOLLATRL, CEK_KART.AFFECTRISK
HAVING (CEK_KART.DUEDATE >= CONVERT(DATETIME, '2009-02-17 00:00:00', 102)) AND (CEK_KART.DOC = 1) AND (ROLLER.RECSTATUS IN (1, 2))

-----------------

Bu SQL kodunu tamamen VBA koduna çevirmem gerekiyor...
SETUP çalışma sayfasından B5 hücresinden Firma No bilgisi çekilecek...o kod parçacığını önceki çalışmalarımdan bakarak SQL kodunun içine gömmeyi başardım...

Fakat VBA kod kümesi içerisinde SQL kodum KIRMIZI olarak görünüyor...Bu kodu SATIR SATIR VBA uyumlu hale getirmem gerek benim için bir iki satırı bu hale getirebilirseniz geri kalan satırları üst satırlardan kopya çekerek yapabilirim....yardımcı olabilirmisiniz...

teşekkürler...
 
L

lsuersoy

Katılım
29 Haziran 2005
Mesajlar
158
Excel Vers. ve Dili
MS Office Professional Plus 2013 64 Bit -Eng
MSSQL 2012 R2 64 Bit
Kod: 
Private Sub CommandButton1_Click()
Dim Baglanti As New ADODB.Connection
    Dim KayitSeti As New ADODB.Recordset
    Dim Firma As String, Server As String, Database As String, Kullanıcı As String, Parola As String
    
    Firma = Format(Sheets("SETUP").Range("B5"), "000")
    Server = Sheets("SETUP").Range("B1").Value
    Database = Sheets("SETUP").Range("B4").Value
    Kullanıcı = Sheets("SETUP").Range("B2").Value
    Parola = Sheets("SETUP").Range("B3").Value
    
    Sorgu = "SELECT CEK_KART.PORTFOYNO AS PortfoyNo, CEK_KART.SERINO AS SeriNo, CEK_KART.DOC AS Türü, CEK_KART.CURRSTAT AS Statüsü,"
                      CEK_KART.DUEDATE AS Vade, CEK_KART.SETDATE AS Tarih1, CEK_KART.AMOUNT AS Tutar, MAX(ROLLER.STATNO) AS Hareket,
                      CARI.CODE AS [Cari Kodu], CARI.DEFINITION_ AS Ünvanı, ROLLER.RECSTATUS, CEK_KART.OURBANKREF, CEK_KART.BANKNAME,
                      CEK_KART.SPECODE, CEK_KART.CYPHCODE, CEK_KART.CITY, CEK_KART.OWING, CEK_KART.KEFIL, CEK_KART.MUHABIR, CEK_KART.BRANCH,
                      CEK_KART.DEVIR, CEK_KART.INUSE, CEK_KART.EXTENREF, CEK_KART.CAPIBLOCK_CREATEDBY, CEK_KART.CAPIBLOCK_CREADEDDATE,
                      CEK_KART.CAPIBLOCK_CREATEDHOUR, CEK_KART.CAPIBLOCK_CREATEDMIN, CEK_KART.CAPIBLOCK_CREATEDSEC,
                      CEK_KART.CAPIBLOCK_MODIFIEDBY, CEK_KART.CAPIBLOCK_MODIFIEDDATE, CEK_KART.CAPIBLOCK_MODIFIEDHOUR,
                      CEK_KART.CAPIBLOCK_MODIFIEDMIN, CEK_KART.CAPIBLOCK_MODIFIEDSEC, CEK_KART.COLLREPRATE, CEK_KART.COLLTRRATE,
                      CEK_KART.CANCELLED, CEK_KART.LINEEXCTYP, CEK_KART.TEXTINC, CEK_KART.SITEID, CEK_KART.RECSTATUS AS Expr1,
                      CEK_KART.ORGLOGICREF, CEK_KART.WFSTATUS, CEK_KART.BNBRANCHNO, CEK_KART.BNACCOUNTNO, CEK_KART.DEPTADDR1,
                      CEK_KART.DEPTADDR2, CEK_KART.DEPTCITY, CEK_KART.DEPTCITYCODE, CEK_KART.DEPTCOUNTRY, CEK_KART.DEPTCOUNTRYCODE,
                      CEK_KART.DEPTPOSTCODE, CEK_KART.DEPTTELNRS1, CEK_KART.DEPTTELNRS2, CEK_KART.DEPTFAXNR, CEK_KART.DEPTTOWN,
                      CEK_KART.DEPTTOWNCODE, CEK_KART.DEPTDISTRICT, CEK_KART.DEPTDISTRICTCODE, CEK_KART.OPSTAT, CEK_KART.PRINTCNT,
                      CEK_KART.NEWSERINO, CEK_KART.PROJECTREF, CEK_KART.FAXCODE, CEK_KART.TELCODES2, CEK_KART.TELCODES1,
                      CEK_KART.COLLATCARDREF , CEK_KART.COLLATROLLREF, CEK_KART.AFFECTCOLLATRL, CEK_KART.AFFECTRISK
FROM         LG_" & Format(Sheets("SETUP").Range("B5"), "000") & "_CLCARD CARI INNER JOIN
                      LG_" & Format(Sheets("SETUP").Range("B5"), "000") & "_01_CSTRANS ROLLER ON CARI.LOGICALREF = ROLLER.CARDREF INNER JOIN
                      LG_" & Format(Sheets("SETUP").Range("B5"), "000") & "_01_CSCARD CEK_KART ON ROLLER.CSREF = CEK_KART.LOGICALREF
GROUP BY CEK_KART.PORTFOYNO, CEK_KART.SERINO, CEK_KART.DOC, CEK_KART.CURRSTAT, CEK_KART.DUEDATE, CEK_KART.SETDATE, CARI.CODE,
                      CARI.DEFINITION_, CEK_KART.AMOUNT, ROLLER.RECSTATUS, CEK_KART.OURBANKREF, CEK_KART.BANKNAME, CEK_KART.SPECODE,
                      CEK_KART.CYPHCODE, CEK_KART.CITY, CEK_KART.OWING, CEK_KART.KEFIL, CEK_KART.MUHABIR, CEK_KART.BRANCH, CEK_KART.DEVIR,
                      CEK_KART.INUSE, CEK_KART.EXTENREF, CEK_KART.CAPIBLOCK_CREATEDBY, CEK_KART.CAPIBLOCK_CREADEDDATE,
                      CEK_KART.CAPIBLOCK_CREATEDHOUR, CEK_KART.CAPIBLOCK_CREATEDMIN, CEK_KART.CAPIBLOCK_CREATEDSEC,
                      CEK_KART.CAPIBLOCK_MODIFIEDBY, CEK_KART.CAPIBLOCK_MODIFIEDDATE, CEK_KART.CAPIBLOCK_MODIFIEDHOUR,
                      CEK_KART.CAPIBLOCK_MODIFIEDMIN, CEK_KART.CAPIBLOCK_MODIFIEDSEC, CEK_KART.COLLREPRATE, CEK_KART.COLLTRRATE,
                      CEK_KART.CANCELLED, CEK_KART.LINEEXCTYP, CEK_KART.TEXTINC, CEK_KART.SITEID, CEK_KART.RECSTATUS, CEK_KART.ORGLOGICREF,
                      CEK_KART.WFSTATUS, CEK_KART.BNBRANCHNO, CEK_KART.BNACCOUNTNO, CEK_KART.DEPTADDR1, CEK_KART.DEPTADDR2,
                      CEK_KART.DEPTCITY, CEK_KART.DEPTCITYCODE, CEK_KART.DEPTCOUNTRY, CEK_KART.DEPTCOUNTRYCODE, CEK_KART.DEPTPOSTCODE,
                      CEK_KART.DEPTTELNRS1, CEK_KART.DEPTTELNRS2, CEK_KART.DEPTFAXNR, CEK_KART.DEPTTOWN, CEK_KART.DEPTTOWNCODE,
                      CEK_KART.DEPTDISTRICT, CEK_KART.DEPTDISTRICTCODE, CEK_KART.OPSTAT, CEK_KART.PRINTCNT, CEK_KART.NEWSERINO,
                      CEK_KART.PROJECTREF, CEK_KART.FAXCODE, CEK_KART.TELCODES2, CEK_KART.TELCODES1, CEK_KART.COLLATCARDREF,
                      CEK_KART.COLLATROLLREF , CEK_KART.AFFECTCOLLATRL, CEK_KART.AFFECTRISK
HAVING      (CEK_KART.DUEDATE >= CONVERT(DATETIME, '2009-02-17 00:00:00', 102)) AND (CEK_KART.DOC = 1) AND (ROLLER.RECSTATUS IN (1, 2))
    
    
    Baglanti.Open "Provider=SQLOLEDB; Data Source=" & Server & "; Initial Catalog=" & Database & "; User ID=" & Kullanıcı & "; Password=" & Parola & ";"
    KayitSeti.Open Sorgu, Baglanti
    
    Cells(8, 1).CopyFromRecordset KayitSeti
    
    KayitSeti.Close
    Baglanti.Close
    Set KayitSeti = Nothing
    Set Baglanti = Nothing
End Sub
Kod Bloğu yukarıda görüldüğü gibi , ayrıca DATETIME daki date bilgisinide sanırım ANA sayfada bir hücreden çekeceğim ama henüz o hücrenin nereden olacağına karar vermedim...yani hangi hücreden TARİH bilgisini çekeceğime karar vermedim...
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst