Excel Sayfasinda SQL'e Baglanma

 

Sub Listele()
     Dim SqlText As String
     Dim cnnn, rs As Object
    
Set cnnn = CreateObject("ADODB.Connection")
Set rss = CreateObject("ADODB.Recordset")

 

strDatabase = Sheets("login").Range("I1").Value
strKullanici = Sheets("login").Range("I2").Value
strParola = Sheets("login").Range("I3").Value

strServer = Sheets("login").Range("I4").Value

 

  cnnn.Open "Provider=SQLOLEDB; Data Source=" & strServer & ";Autotranslate=False ;Initial Catalog=" & strDatabase & "; User ID=" & strKullanici & "; Password=" & strParola & ";"

     SqlText = "SELECT STOK_KODU, STOK_ADI, " & Cells(1, 3) & "," & Cells(1, 4) & "," & Cells(1, 5) & "," & Cells(1, 6) & " FROM TBLSTSABIT WITH(NOLOCK) "
  If Cells(2, 7) <> "" Then
       SqlText = SqlText + " WHERE " & Cells(1, 7) & "= '" & Cells(2, 7) & "' Order By STOK_KODU"
       Else
       SqlText = SqlText & " Order By STOK_KODU"
  End If
     rss.Open SqlText, cnnn, adOpenStatic ', adLockReadOnly
     Sheet2.Range("A2:F10000").ClearContents
     Sheet2.Activate
     i = 2
     Do While Not rss.EOF
         Sheet2.Cells(i, 1).Value = rss(0)
         Sheet2.Cells(i, 2).Value = rss(1)
         Sheet2.Cells(i, 3).Value = rss(2)
         Sheet2.Cells(i, 4).Value = rss(3)
         Sheet2.Cells(i, 5).Value = rss(4)
         Sheet2.Cells(i, 6).Value = rss(5)
         rss.MoveNext
         Application.StatusBar = "Aliniyor..." & i - 1
         i = i + 1
     Loop
     rss.Close
     cnnn.Close
     Set rss = Nothing
     Set cnnn = Nothing
Application.StatusBar = ""
End Sub

Önceki çalismayi hatirlayamadim.

Siz nasil bir sey yapmaya düsündünüz.?

 

13 lokasyon olabilir. stok kodlamasi nasil, kaçtane stok karti var, mesela üretim var mi? bunlar bagli is yükü degisir. Bence buna göre yaniniza yardimci bir eleman aldirin.

Yoksa Netsis te 13 degil 100 lokasyonu da rahat takip edersiniz.

 

 

istedigim tarihteki sayimdan kastiniz

sayim girisi yaptiginiz bilgi mi ? tüm depolarmi?