Değerli Üstatlar
kırmızı ile belirtilmiş satır sqlquery ile seçilmiş bir tarih, bu tarihi sayfa1 deki tarihten alacak şekilde düzenleme imkanımız varmı acaba?
dosya ektedir ama sql bağlantısı hatası verecektir sanırım
Sub Makro1()
'
' Makro1 Makro
'
'
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _
"ODBC;DRIVER=SQL Server;SERVER=EKONOMI;UID=Administrator;APP=2007 Microsoft Office system;WSID=EKONOMI;DATABASE=personel;Trusted_Conn" _
), Array("ection=Yes")), Destination:=Range("$A$1")).QueryTable
.CommandText = Array( _
"SELECT IsciAylikTahakkuk.Yili, IsciAylikTahakkuk.Donem, IsciAylikTahakkuk.DamgaVergisi, IsciAylikTahakkuk.Agi_Tutar" & Chr(13) & "" & Chr(10) & "FROM personel.dbo.IsciAylikTahakkuk IsciAylikTahakkuk" & Chr(13) & "" & Chr(10) & "WHERE (IsciAylikTahakkuk.Yil" _
, "i=2011)" & Chr(13) & "" & Chr(10) & "ORDER BY IsciAylikTahakkuk.Yili")
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = "Tablo_DE_kaynağından_sorgula3"
.Refresh BackgroundQuery:=False
End With
Range("G12").Select
End Sub
kırmızı ile belirtilmiş satır sqlquery ile seçilmiş bir tarih, bu tarihi sayfa1 deki tarihten alacak şekilde düzenleme imkanımız varmı acaba?
dosya ektedir ama sql bağlantısı hatası verecektir sanırım
Sub Makro1()
'
' Makro1 Makro
'
'
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _
"ODBC;DRIVER=SQL Server;SERVER=EKONOMI;UID=Administrator;APP=2007 Microsoft Office system;WSID=EKONOMI;DATABASE=personel;Trusted_Conn" _
), Array("ection=Yes")), Destination:=Range("$A$1")).QueryTable
.CommandText = Array( _
"SELECT IsciAylikTahakkuk.Yili, IsciAylikTahakkuk.Donem, IsciAylikTahakkuk.DamgaVergisi, IsciAylikTahakkuk.Agi_Tutar" & Chr(13) & "" & Chr(10) & "FROM personel.dbo.IsciAylikTahakkuk IsciAylikTahakkuk" & Chr(13) & "" & Chr(10) & "WHERE (IsciAylikTahakkuk.Yil" _
, "i=2011)" & Chr(13) & "" & Chr(10) & "ORDER BY IsciAylikTahakkuk.Yili")
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = "Tablo_DE_kaynağından_sorgula3"
.Refresh BackgroundQuery:=False
End With
Range("G12").Select
End Sub