Sql den stok verilerini alma

[makca43]

Arkadaşlar aranıza yeni katıldım sitenizi inceledim ve oldukça güzel konular hakkında bilgi edindim. Benim de şöyle bir sıkıntım var yardımcı olabilirseniz sevinirim.
Logo Go Shopmaneger Kullanıyorum ekte verdiğim dosyada yaptığım bir programla sql den verileri getiriyorum yalnız stok bölümünde takıldım yani sql den O gün itibariyle Ambarların devir stoğunu + giren stok + satış miktarı ve kalan olarak getiremedim yardımlarınız için şimdiden teşekkür ederim. iyi çalışmalar

 

[Orion1]

Eğer dediğiniz alan tarih se ve I1 deki tarihe eşitse listeleme yapar.
Dosyanız ektedir.

 

[makca43]

sql stok

Evren bey merhabalar ilginize teşekkür ederim yalnız ben ekteki dosyada değişikliği göremedim ayrıca ben yapmış olduğum dosyaya istediğim stok durumunu SQL sayfasına ilave olarak getirmek istiyorum yani mevcut dosyada stok durumları yok.

İlave olarak I1 deki tarih kıstasını alıp O tarih itibariyle mevcut stok devri, İlave miktarı, Satış miktarı ve kalan stok durumunu getirmek istiyorum ben satılanı ilaveyi ve o günkü işlemlerden sonra kalanı getirebiliyorum sadece o gün itibariyle devir olan mevcut stoğu alamıyorum daha doğrusu SQL içinde bulamıyorum bana SQL içinde mevcut devir stoklarını görebileceğim bir yer gerekiyor. Bu konuda yardımlarınızı bekliyorum Teşekkürler

 

[Orion1]

Evren bey merhabalar ilginize teşekkür ederim yalnız ben ekteki dosyada değişikliği göremedim ayrıca ben yapmış olduğum dosyaya istediğim stok durumunu SQL sayfasına ilave olarak getirmek istiyorum yani mevcut dosyada stok durumları yok.

İlave olarak I1 deki tarih kıstasını alıp O tarih itibariyle mevcut stok devri, İlave miktarı, Satış miktarı ve kalan stok durumunu getirmek istiyorum ben satılanı ilaveyi ve o günkü işlemlerden sonra kalanı getirebiliyorum sadece o gün itibariyle devir olan mevcut stoğu alamıyorum daha doğrusu SQL içinde bulamıyorum bana SQL içinde mevcut devir stoklarını görebileceğim bir yer gerekiyor. Bu konuda yardımlarınızı bekliyorum Teşekkürler

Değiştirdiğim yerleri kırmızı ile işaretledim.

Sub SQLverial()
    Dim con As Object, rs As Object, sorgu As String
   
    Set con = CreateObject("adodb.connection")
    con.connectionstring = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=GO500;Data Source=TELSAN\SQLEXPRESS;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=TELSAN;Use Encryption for Data=False;Tag with column collation when possible=False"
    con.Open
    sorgu = "SELECT INVOICEREF, STOCKREF,TRCODE, TOTAL ,AMOUNT from LG_500_01_STLINE  WHERE CLIENTREF=3 AND DATE_=" & [B][COLOR="Red"]CDbl[/COLOR][/B](a)
    Set rs = con.Execute(sorgu)
    Sheets("SQL").Range("a2:f65536").ClearContents
    Sheets("SQL").Range("a2").CopyFromRecordset rs
    sorgu = "SELECT LOGICALREF, NAME, STGRPCODE   from LG_500_ITEMS"
    Set rs = con.Execute(sorgu)
    Sheets("SQL").Range("g2:j65536").ClearContents
    Sheets("SQL").Range("g2").CopyFromRecordset rs
    sorgu = "SELECT PAYMENTTYPE, TOTAL,FICHEREF, BANKACCREF, TRCODE from LG_500_01_PAYTRANS WHERE CARDREF=3 AND PROCDATE=" &[B][COLOR="Red"] CDbl[/COLOR][/B](a) & "  AND TRCODE=7 ORDER BY FICHEREF"
    Set rs = con.Execute(sorgu)
    Sheets("SQL").Range("k2:p65536").ClearContents
    Sheets("SQL").Range("k2").CopyFromRecordset rs
    sorgu = "SELECT PAYMENTTYPE, TOTAL,FICHEREF, BANKACCREF, TRCODE from LG_500_01_PAYTRANS WHERE CARDREF=2 AND PROCDATE=" & [B][COLOR="Red"]CDbl[/COLOR][/B](a) & "  AND TRCODE=7 ORDER BY FICHEREF"
    Set rs = con.Execute(sorgu)
    Sheets("SQL").Range("ab2:ag65536").ClearContents
    Sheets("SQL").Range("ab2").CopyFromRecordset rs
    sorgu = "SELECT PAYMENTTYPE, TOTAL,FICHEREF, BANKACCREF, TRCODE from LG_500_01_PAYTRANS WHERE CARDREF=4 AND PROCDATE=" & [B][COLOR="Red"]CDbl[/COLOR][/B](a) & "  AND TRCODE=7 ORDER BY FICHEREF"
    Set rs = con.Execute(sorgu)
    Sheets("SQL").Range("ah2:am65536").ClearContents
    Sheets("SQL").Range("ah2").CopyFromRecordset rs
    sorgu = "SELECT PAYMENTTYPE, TOTAL,FICHEREF, BANKACCREF, TRCODE from LG_500_01_PAYTRANS WHERE CARDREF=221 AND PROCDATE=" & CDbl(a) & "  AND TRCODE=7 ORDER BY FICHEREF"
    Set rs = con.Execute(sorgu)
    Sheets("SQL").Range("an2:as65536").ClearContents
    Sheets("SQL").Range("an2").CopyFromRecordset rs
    sorgu = "SELECT TOTAL, FICHEREF, TRCODE from LG_500_01_PAYTRANS WHERE CARDREF=3 AND PROCDATE=" &[B][COLOR="Red"] CDbl[/COLOR][/B](a) & "  AND INSTALTYPE=2 ORDER BY FICHEREF"
    Set rs = con.Execute(sorgu)
    Sheets("SQL").Range("t2:w65536").ClearContents
    Sheets("SQL").Range("t2").CopyFromRecordset rs
    sorgu = "SELECT TOTAL, FICHEREF, TRCODE from LG_500_01_PAYTRANS WHERE CARDREF=3 AND PROCDATE=" & [B][COLOR="Red"]CDbl[/COLOR][/B](a) & "  AND TRCODE=2 AND CLOSINGRATE=0 ORDER BY FICHEREF"
    Set rs = con.Execute(sorgu)
    Sheets("SQL").Range("x2:aa65536").ClearContents
    Sheets("SQL").Range("x2").CopyFromRecordset rs
    sorgu = "SELECT LOGICALREF, DEFINITION_  from LG_500_BANKACC"
    Set rs = con.Execute(sorgu)
    Sheets("SQL").Range("q2:s65536").ClearContents
    Sheets("SQL").Range("q2").CopyFromRecordset rs
    con.Close
    Set rs = Nothing: Set con = Nothing
    sorgu = vbNullString
    End Sub
Private Sub CommandButton2_Click()
[B][COLOR="Red"]a = DateSerial(Year(Sayfa1.Range("I1").Value), Month(Sayfa1.Range("I1").Value), Day(Range("I1").Value))[/COLOR][/B]
SQLverial
End Sub

 

[makca43]

Sql stok

Ya kusura bakmayın ben bu yaptığınız değişiklikte çalıştırdığım zaman bana farklı günlerdeki satışları getiriyor yani o tarihle hiç bir alakası yok ve benim istediğim sadece ilave olarak stok devir rakamlarını getirmek istiyorum başka bir şey diil

 

[Orion1]

Ya kusura bakmayın ben bu yaptığınız değişiklikte çalıştırdığım zaman bana farklı günlerdeki satışları getiriyor yani o tarihle hiç bir alakası yok ve benim istediğim sadece ilave olarak stok devir rakamlarını getirmek istiyorum başka bir şey diil

Ama sizin sogularınızda tarih sorgulanmıyordu.Text sorgusu yapılmıştı. değer where ile sorguda tırnak içine alınmıştı.Buda demek oluyor ki o sorgulanan alan tarih şeklinde tanımlanmamıştır.
Size kolay gelsin.

 

[makca43]

Sql den stok devrini almak

Evren Bey İlginize teşekkür ederim.

Arkadaşlar Benim Acilen SQL den Ambarların gün itibariyle stok devir rakamlarını almam gerekiyor Bu konuda bana yardımcı olmanızı istiyorum Lütfen.