Alınan siparişleri sql ile almak

[furkanhdurmus]

MErhaba ;

ALINAN_SIPARISLER isimli dosyadan excel ile verileri çekiyorum ama her satır birden fazla
mükerrer olarak geliyor.Müşteriye ait sipariş fişindeki her satır onlarca kez yazılıyor.


Bunu kodla engelleme imkanımız varmı.

Saygılar

[furkanhdurmus]

Sorunu cevabını excelvba.net aracılığı ile çözebildik.Sizlerede faydası olur umarım.

Aşağıdaki kod ile excele tüm sipariş işlemleri mükerrer olmadan alınabiliyor.

Saygılar

Sub VERİAL()
Dim con As Object, rs As Object, i As Long
Set con = CreateObject("adodb.connection")
con.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=GoShop;Data Source=FURKAN\SQLEXPRESS;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=FURKAN;Use Encryption for Data=False;Tag with column collation when possible=False"
Set rs = con.Execute("select distinct(CH_KODU),* from dbo.LNX_004_01_06_ALINAN_SIPARISLER where dbo.LNX_004_01_06_ALINAN_SIPARISLER.ch_kodu in (select distinct(dbo.LNX_004_01_06_ALINAN_SIPARISLER.ch_kodu) FROM dbo.LNX_004_01_06_ALINAN_SIPARISLER)")
With Sheets("sayfa5")
For i = 0 To rs.Fields.Count - 1
    .Cells(1, i + 1).Value = rs.Fields(i).Name
Next i
.Range("a2").CopyFromRecordset rs
End With
Set rs = Nothing
Set con = Nothing
i = Empty
End Sub

[memorphin]

Sorunu cevabını excelvba.net aracılığı ile çözebildik.Sizlerede faydası olur umarım.

Aşağıdaki kod ile excele tüm sipariş işlemleri mükerrer olmadan alınabiliyor.

Saygılar

Sub VERİAL()
Dim con As Object, rs As Object, i As Long
Set con = CreateObject("adodb.connection")
con.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=GoShop;Data Source=FURKAN\SQLEXPRESS;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=FURKAN;Use Encryption for Data=False;Tag with column collation when possible=False"
Set rs = con.Execute("select distinct(CH_KODU),* from dbo.LNX_004_01_06_ALINAN_SIPARISLER where dbo.LNX_004_01_06_ALINAN_SIPARISLER.ch_kodu in (select distinct(dbo.LNX_004_01_06_ALINAN_SIPARISLER.ch_kodu) FROM dbo.LNX_004_01_06_ALINAN_SIPARISLER)")
With Sheets("sayfa5")
For i = 0 To rs.Fields.Count - 1
    .Cells(1, i + 1).Value = rs.Fields(i).Name
Next i
.Range("a2").CopyFromRecordset rs
End With
Set rs = Nothing
Set con = Nothing
i = Empty
End Sub

sorgu tamam da LNX_004_01_06_ALINAN_SIPARISLER  diye bi view yokki önce o viewin oluşturulması lazım

[furkanhdurmus]

Benim kullandığım firma no 004 olduğu için nosu bu.Ayrıca böyle bir view var,ve şu anda kullanıyorum.
"Belki bende focusda olduğu içinmi böyle bir view var ?"
Saygılar

[memorphin]

onu diyorum zaten. sizde focusun raporlarının oluşturduğu viewler var ondan rapor alabiliyosunuz. ama o view içeriğini arkadaşa gönderebilirsiniz