• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

Arşiv Access'den Excel'e Dış Veri Al ile veri alınırken SQL metni kullanmak.

Alicimri

Moderatör
Yönetici
Katılım
31 May 2022
Mesajlar
2,082
Çözümler
365
Aldığı beğeni
2,565
Excel V
Office 2007 TR
Konu Sahibi
Direkt Access'ten bir kere veriler tablo olarak alındığında, kodların koyu şekilde belirtilmiş Kısımına gerek yok.
Kodların silinecek kısmını, klasör indirildiğinde Access dosyasının yolu değişeceğinden ekledim..
Not: Aynı şekilde SQL serverden veri alınırken de kullanılabilinir.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$K$1" Then
With Range("A1").ListObject.QueryTable
.Connection = Array( _
"OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=" & ThisWorkbook.Path & "\db.accdb;Mode=Share Deny Write;E" _
, _
"xtended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engine Type=6;Jet OLEDB:Database Locking" _
, _
" Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Cr" _
, _
"eate System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Witho" _
, _
"ut Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Data=False;Jet OLEDB:Bypass UserInfo Validation=False;Jet " _
, "OLEDB:Limited DB Caching=False;Jet OLEDB:Bypass ChoiceField Validation=False" _
)

.CommandType = xlCmdSql
.CommandText = "SELECT * FROM Sayfa1 WHERE gun='" & Range("K1") & "'"
.Refresh BackgroundQuery:=False
End With
End If
End Sub
 

Ekli dosyalar

Son düzenleme:
Geri
Üst