Makro ile Sql den bilgi almak

a_self_lion · 4 Ekim 2007

Selam Arkadaşlar Formda aradım bulumadım. Yardım edebileceğinizi düşündüm.

ben Veri - Dış Veri Al - Yeni SQL Server bağlantısı ile manuel olarak serverimizde bulunan SQL serverden aşağıdaki gibi bilgilerimi alabiliyorum.
BAĞLANTI:

Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=DATA06;Data Source=192.168.0.7;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=OZCANBLG;Use Encryption for Data=False;Tag with column collation when possible=False

KOMUT TÜRÜ : SQL

KOMUT :

SELECT ADSDOS_MLZ_KOD, ADSDOS_ACK, SUM(ADSDOS_STK_MIK) AS MIKTAR, SUM(ADSDOS_NET_TLL) AS TLTUTAR FROM ADSDOS WHERE ADSDOS_TAR BETWEEN '2007-09-24' AND '2007-10-03' AND ADSDOS_PAK_KOD = '' AND ADSDOS_SAT_TIP <> '5' GROUP BY ADSDOS_MLZ_KOD, ADSDOS_ACK

Bu komutlarla bilgilerim isteğim gibi geliyor.

Benim Yapmak istediğim sayfaya ekleyeceğim bir buton ile bana hangi tarihler arasında alacağımı soracak ve ona göre bu bilgileri getirebilmesi gerekiyor. Açaba bu şekilde bir macro ile yapabilirmiyiz. Teşekkürler

Ferhat Pazarçevirdi · 5 Ekim 2007

Çok emin cevaplayamıyorum ama aşağıdaki gibi denerseniz olabilir. Eğer olmazsa başka yollar da deneyebiliriz.

VARSAYIMLAR : Tarih aralığı A1 ve A2'de belirtilmek üzere:

(1) A1 hücresi : İlk Tarih
(2) A2 hücresi : Son Tarih

aşağıdaki stringi SQL'e gönderebilirsiniz.

Kod:

SQLString = "SELECT ADSDOS_MLZ_KOD, " _
                & "ADSDOS_ACK, " _
                & "SUM(ADSDOS_STK_MIK) AS MIKTAR, " _
                & "SUM(ADSDOS_NET_TLL) AS TLTUTAR " _
          & "FROM ADSDOS " _
          & "WHERE ADSDOS_TAR BETWEEN '" & Year(Range("A1")) & "-" & Month(Range("A1")) & Day(Range("A1")) & "' AND " _
                                   & "'" & Year(Range("A2")) & "-" & Month(Range("A2")) & Day(Range("A2")) & "' AND " _
                                   & "ADSDOS_PAK_KOD = '' AND ADSDOS_SAT_TIP <> '5' GROUP BY ADSDOS_MLZ_KOD, ADSDOS_ACK"

a_self_lion · 5 Ekim 2007

Sayın fpc bu tür kod hiç yazmadım. SQL e göndereilirsiniz demişsiniz bunu nasıl yapıcağım yardım ederseniz sevinirm.

red_lion_72 · 5 Ekim 2007

Selam,
http://www.excel.web.tr/showthread.php?t=14771
bu linki bir kontrol edebilirmisiniz? Bu linkte SQL'e bağlantıyı nasıl yapacağınız anlatılmış. Linkteki sorgu cümlesinin yerine @fpc'nin sorgu cümlesini yazarsanız, dış veri al'a gerek kalmaz.
Kolay gelsin.

a_self_lion · 5 Ekim 2007

Sayın Red lion 72 İnceledim ama benim için çok karışık bir yardımcı olursanız çok sevineceğim. Hem ilersi için kendimi geliştirmiş olurum. Gerçekten çok ihtiyacım var bu örneğe. Teşekkür ederim.

Ferhat Pazarçevirdi · 5 Ekim 2007

Eğer Sql'den veri çektiğiniz makro kaydınız varsa, kodlarınızı bu başlık altına koyun. ADO bağlantılarını kullanmadan çözmeye çalışalım.

a_self_lion · 5 Ekim 2007

Sub Makro1()
'
' Makro1 Makro
' Makro Özcan Özarslan tarafından 05.10.2007 tarihinde kaydedildi.
'

'
With ActiveSheet.QueryTables.Add(Connection:=Array( _
"OLEDB;Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Data Source=192.168.0.7;Use Procedure for Prepare=1;Auto" _
, _
" Translate=True;Packet Size=4096;Workstation ID=OZCANBLG;Use Encryption for Data=False;Tag with column collation when possible=F" _
, "alse;Initial Catalog=DATA06"), Destination:=Range("A1"))
.CommandType = xlCmdSql
.CommandText = Array( _
"SELECT ADSDOS_MLZ_KOD, ADSDOS_ACK, SUM(ADSDOS_STK_MIK) AS MIKTAR, SUM(ADSDOS_NET_TLL) AS TLTUTAR FROM ADSDOS WHERE ADSDOS_TAR BETWEEN '2007-09-24' AND '2007-10-03' AND ADSDOS_PAK_KOD = '' AND ADSDOS_SAT_TIP <> '5' GROU" _
, "P BY ADSDOS_MLZ_KOD, ADSDOS_ACK")
.Name = "+Yeni SQL Server Bağlantısı_3"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceConnectionFile = _
"C:\Documents and Settings\ozcan.GARDENIA\Belgelerim\Veri Kaynaklarım\192.168.0.7 DATA06 ADSDOS.odc"
.Refresh BackgroundQuery:=False
End With
End Sub

Dış veri al işlemini macro1 olarak kaydettim sanırım bunu diyorsunuz.

Ferhat Pazarçevirdi · 5 Ekim 2007

Aşağıdaki kodu deneyiniz.

VARSAYIM : "Sayfa2" adlı sheet'in A1 hücresine ilk tarihin, A2 hücresine son tarihin yazılacağı, sonra Sayfa1'e geçileceği ve makronun çalıştırılacağı varsayılmıştır.

NOT : İlk seferde düzgün çalışmayabilir. Eğer hata oluşursa bildiriniz.

Kod:

Sub Makro1()
'
' Makro1 Makro
' Makro Özcan Özarslan tarafından 05.10.2007 tarihinde kaydedildi.
'
Set sh = Sheets("Sayfa2")
SQLstring = "SELECT ADSDOS_MLZ_KOD, " _
                & "ADSDOS_ACK, " _
                & "SUM(ADSDOS_STK_MIK) AS MIKTAR, " _
                & "SUM(ADSDOS_NET_TLL) AS TLTUTAR " _
          & "FROM ADSDOS " _
          & "WHERE ADSDOS_TAR BETWEEN '" & Year(sh.Range("A1")) & "-" & Month(sh.Range("A1")) & Day(sh.Range("A1")) & "' AND " _
                                   & "'" & Year(sh.Range("A2")) & "-" & Month(sh.Range("A2")) & Day(sh.Range("A2")) & "' AND " _
                & "ADSDOS_PAK_KOD = '' AND " _
                & "ADSDOS_SAT_TIP <> '5' " _
          & "GROUP BY ADSDOS_MLZ_KOD, ADSDOS_ACK"
With ActiveSheet.QueryTables.Add(Connection:=Array("OLEDB;Provider=SQLOLEDB.1;" _
                                            & "Integrated Security=SSPI;" _
                                          & "Persist Security Info=True;" _
                                                    & "Data Source=192.168.0.7;" _
                                      & "Use Procedure for Prepare=1;Auto", _
                                                       " Translate=True;" _
                                                    & "Packet Size=4096;" _
                                                 & "Workstation ID=OZCANBLG;" _
                                        & "Use Encryption for Data=False;" _
                        & "Tag with column collation when possible=False;" _
                                                & "Initial Catalog=DATA06"), _
                                                      Destination:=Range("A1"))
    .CommandType = xlCmdSql
    .CommandText = Array(SQLstring)
    .Name = "+Yeni SQL Server Bağlantısı_3"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .PreserveColumnInfo = True
    .SourceConnectionFile = "C:\Documents and Settings\ozcan.GARDENIA\Belgelerim\Veri Kaynaklarım\192.168.0.7 DATA06 ADSDOS.odc"
    .Refresh BackgroundQuery:=False
End With
Set sh = Nothing
End Sub

a_self_lion · 5 Ekim 2007

.Refresh BackgroundQuery:=False

Aynen dediğin gibi yaptım sayın fpc ama bu satırda hata verdi.

Ferhat Pazarçevirdi · 5 Ekim 2007

Blok şeklinde bir kod oldu. Hata en son satırda ama aynı zamanda en ölümcül satırda ... Hatanın neden ve nerden kaynaklandığını anlayamıyorum. Makro kaydı harici kodlarla, başka bir yol deneyelim.

a_self_lion · 6 Ekim 2007

Evet sanırım öyle yapsak iyi olucak ama ben daha önce hiç bu şekilde bir veri almadım. SQL cümleciğimiz belli serverimiz belli kullanıcımız belli taplomuz da belli acaba başka ne türlü bir şekilde bu verileri vb ile excel e alabiliriz.

Ferhat Pazarçevirdi · 6 Ekim 2007

Yine aynı şekilde aşağıdaki kodları dener misiniz?

NOT : VBE Menüden: Tools->References'a basın. Listeden; Microsoft Activex Data Object 2.x Library ve Microsoft ADO Ext. 2.8 for DLL and Security işaretlenmiş olmalıdır.

NOT : Kodlarda kırmızı olarak işaretlenen kısımlara, kendi Username ve Passwordunuzu yazınız.

Kod:

Sub VeriAl()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim SQLString As String
Dim sh As Worksheet
Dim y As Long, i As Integer
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set sh = Sheets("Sayfa2")
conn.ConnectionString = "Provider=sqloledb;" _
                   & "Data Source=192.168.0.7;" _
               & "Initial Catalog=DATA06;" _
                       & "User Id=User;" _
                      & "Password=Pass;"
conn.Open
SQLString = "SELECT ADSDOS_MLZ_KOD, " _
                & "ADSDOS_ACK, " _
                & "SUM(ADSDOS_STK_MIK) AS MIKTAR, " _
                & "SUM(ADSDOS_NET_TLL) AS TLTUTAR " _
          & "FROM ADSDOS " _
          & "WHERE ADSDOS_TAR BETWEEN '" & Year(sh.Range("A1")) & "-" & Month(sh.Range("A1")) & Day(sh.Range("A1")) & "' AND " _
                                   & "'" & Year(sh.Range("A2")) & "-" & Month(sh.Range("A2")) & Day(sh.Range("A2")) & "' AND " _
                & "ADSDOS_PAK_KOD = '' AND " _
                & "ADSDOS_SAT_TIP <> '5' " _
          & "GROUP BY ADSDOS_MLZ_KOD, ADSDOS_ACK"
rs.Open SQLString, conn, adOpenKeyset, adLockOptimistic
Do Until rs.EOF
    y = y + 1
    For i = 1 To 4
        Cells(y, i) = rs(i - 1)
    Next i
Loop
rs.Close
Set conn = Nothing
Set rs = Nothing
Set sh = Nothing
End Sub

serinci · 8 Ekim 2007

Selamlar, Aynı şekilde benimde bir rapor çalışmam olmuştu, ve tarih aralığını Takvim öğesi Kullanarak çözdüm,

Yapmış olduğum raporda Takvimi birden fazla kullandığımdan dolayı öncelikle makroya takvim verilerini bir alana yazdırmasını ve bu işlemden sonra rapora ait makroyu çalıştırmasını sağladım bu şekilde istediğim tarih veya başka aralıkta rapor almam mümkün oldu,

Ekteki Takvim Denetimi ile ilgili Dosyayı inceleyiniz sanırım İşinizi Görecektir. SQL ile ilgili alanlara tablo ve Başlıklara kendi tablonuza ait verileri girmeniz gerekmektedir. Aksi halde çalışmayacaktır.

Not : VBA Referans bölümünden Takvim denetimi 11 i etkinleştirmeniz gerekmekte.

a_self_lion · 8 Ekim 2007

Teşekkür ederim ilgin için

baydeniro · 30 Kasım 2010

Paylaşım için teşekkürler.

Makro ile Sql den bilgi almak

a_self_lion

Ferhat Pazarçevirdi

Özel Üye

a_self_lion

red_lion_72

a_self_lion

Ferhat Pazarçevirdi

Özel Üye

a_self_lion

Ferhat Pazarçevirdi

Özel Üye

a_self_lion

Ferhat Pazarçevirdi

Özel Üye

a_self_lion

Ferhat Pazarçevirdi

Özel Üye

serinci

a_self_lion

baydeniro