Hücreye yazılacak değeri Sql ile Access Veritabanından alma

[ceaselessattack]

Merhaba,
Excel de bir hücrenin değerini sütun adından(örneğin tarih değeri) faydalanarak Sql sorgusuyla Access veritabanından alarak yazdırmak istiyorum. Bunun için connection string ve select sorgusunun ne şekilde yazılması gerektiği konusunda yardıma ihtiyacım var.

Teşekkürler

 

[SadiSerdari]

Bu size yol gösterici olur umarım
Bağlantı Metoduna örnek;

Public myAdoCon As New ADODB.Connection
Public recSet1 As New ADODB.Recordset

Public Function myConnect() As Boolean

    With ADOConN
        .Provider = "SQLOLEDB"
        .CommandTimeout = 150
        .ConnectionString = "Data Source=ServerAdı;USER ID=KullanıcıAdı;PASSWORD=Şifre;" _
		& "Persist Security Info=True;Auto Translate=False"
        .Open
        .DefaultDatabase = VeritabanıAdı
        .CursorLocation = adUseClient
    End With
    
End Function

Veritabanından veri çekmek için örnek;

Sub Aktar1()

	myConnect
	.....

	sqlStr1 = "SELECT SütunAdı/SütunAdları FROM TabloAdı WHERE SorgulanacakSütun='SorgulanacakDeğer'"
	'veya * ifadesini SELECT cümlesinden sonra kullanarak bütün sütun adlarını
	'sorguya dahil edebilirsin
	sqlStr1 = "SELECT columns1,columns2,... FROM TabloAdı WHERE ColumnsX='"  & Cells(x, x) & "'"

	recSet1.Open SQLStr1, myAdoCon, adOpenKeyset, adLockOptimistic

		While Not recSet1.EOF

		.....

		Wend

	recSet1.Close

	ADOConN.Close

End Sub

 

[ceaselessattack]

Cevabınız için çok teşekkür ederim. Deneme yaptıktan sonra sonucu buraya yazacağım.