Sql den gelen verilere Vba kullanmak

[Maksim]

Herkese merhaba.
Bu kodla Sql den veri çekiyorum.
Ama küçük bir sorun var.

Private Sub CommandButton1_Click()
      Dim ConnectString, SQLstring, QueryResult
              
   ConnectString = "ODBC;DRIVER=SQL Server;SERVER=" & TextBox1 & ";UID=;APP=Microsoft Office 2003;WSID=PL04;Trusted_Connection=Yes; DATABASE=" & TextBox2 & "" _

   SQLstring = "SELECT LOGICALREF FROM LG_001_ITEMS"
    Set NewBook = Workbooks.Add 'Application.TemplatesPath + "Template.XLT")
   With NewBook.Sheets(1).QueryTables.Add(Connection:=ConnectString, Destination:=Range("A4"), Sql:=SQLstring)
      .BackgroundQuery = False
      .FieldNames = False
      .RefreshStyle = xlOverwriteCells
      .Refresh BackgroundQuery:=False
           SQLstring = "SELECT  CODE FROM  LG_001_ITEMS WHERE LOGICALREF= " & Range("a4") & ""
    
   With Sheets(1).QueryTables.Add(Connection:=ConnectString, Destination:=Range("b4"), Sql:=SQLstring)
      .BackgroundQuery = False
      .FieldNames = False
      .RefreshStyle = xlOverwriteCells
     .Refresh BackgroundQuery:=False
       
   End With
         End With
End Sub

SQLstring = "SELECT CODE FROM LG_001_ITEMS WHERE LOGICALREF= " & Range("a4") & "" Kodunu A4-den başlayan verilere sona kadar (son belli degil 100 de ola bilir 65000 de)nasıl = ede biliris?

İlginiz için teşekkür ederim (Sanırın anlata bildim ))

 

[omerceri]

Veri tabanında C sütunundaki bilgi var mı sonradan mı ilave edeceksiniz.

 

[Maksim]

C sütununu boş.Ora hiç bir şey ilave olmayacak.Ben Query-yi örnek olarak yazdım.Yani Query-nin şu şekilde çalışması lazım

 

[omerceri]

Kusura bakmayın yine ne yapmak istediğinizi anlamadım. kodları çalıştırdığınızda verileri en son boş satıra mı getirsin istiyorsunuz.

 

[omerceri]

Tamam vaz geçtim. SQL server'im yok
Eğer access'e çevirip örnek dosya eklersen yardım edebilirim.

 

[lsuersoy]

Merhaba Hocam ;

Öncelikle böyle bir kodu neden yazmak istediğini bende pek anlamadım...

Nacizane Logo sitem uzmanı olduğum için , yapmak istediğinizi tam olarak belirtirseniz , belki daha farklı bir yöntem önerebilirim ...


Kolay gelsin , iyi çalışmalar...