Database Query Sorunu

[asilacar]

With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=MS Access Database;DBQ=C:\Documents and Settings\A18403\Desktop\Mevduat 30112007.mdb;DefaultDir=C:\Documents and Settings\A" _
), Array( _
"18403\Desktop;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;")), _
Destination:=Range("A1"))
.CommandText = Array( _
"SELECT `Mevduat data`.PROD_COA_ID, `Mevduat data`.SUBEGRUPKODU, `Mevduat data`.BRANCH_ID, `Mevduat data`.GL_ACCOUNT_ID, `Mevduat data`.CUS_NO, `Mevduat data`.NAME, `Mevduat data`.REFERANS_KODU, `Mevdu" _
, _
"at data`.CUR_NET_RATE, `Mevduat data`.ISO_CURRENCY_CD, `Mevduat data`.ORIGINATION_DATE, `Mevduat data`.MATURITY_DATE, `Mevduat data`.BAL_CURR_ORG, `Mevduat data`.BAL_CURR, `Mevduat data`.REESKONT_KUM" & Chr(13) & "" _
, _
"" & Chr(10) & "FROM `C:\Documents and Settings\A18403\Desktop\Mevduat 30112007`.`Mevduat data` `Mevduat data`" _
)
.Name = "Query from MS Access Database_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With

End Sub

Yukarıdaki query de belirli bir hücreden almaya çalıştığım sorgu kriter değerini user form kullanarak da denedim ve hep refresh backgorund query de takıldı kaldı program. Acaba sorunun nerede olduğunu koda bakarak bulabilir miyiz?

Çünkü bağlantıyı manuel yapınca sorun çıkmıyor gayet güzel çalışıyor fakat nedense macro ile yaptıramadım. Sayın üstadlar ilgilenebilirseniz çok memnun olurum.

Saygılar

 

[Zeki Gürsoy]

Merhaba,
QueryTable yerine ADO ile yapılsa olur mu?

 

[asilacar]

Ne yazık ki bu konularda biraz acemiyim bankadan bağlandığım için araştırma sürem de kısıtlı tavsiye döküman, link vs var mı hocam?

Ya da kısaca siz anlatsanız rica etsem?

 

[Zeki Gürsoy]

Buradan başlayabilirsiniz.
http://www.excel.web.tr/forumdisplay.php?f=117

Sub Veri_Al()
Dim Cn As Object, Rs As Object
 
Set Cn = CreateObject("ADODB.Connection")
 
Cn.Open _
"Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & _
    "C:\Documents and Settings\A18403\Desktop\Mevduat 30112007.mdb"
    
Set Rs = Cn.Execute( _
"SELECT * FROM [Mevduat data]")
 
Cells.ClearContents
 
For i = 0 To Rs.fields.Count - 1
    Cells(1, i + 1) = Rs(i).Name
Next
 
[a2].CopyFromRecordset Rs
 
Rs.Close
Cn.Close
 
Set Rs = Nothing
Set Cn = Nothing
End Sub

 

[asilacar]

Teşekkür ederim hocam vaktim olunca biraz kurcalarım