ADODB ile aktif dosyaya bağlantı kurma

[Recep İpek]

Merhaba

Aşağıdaki kodlar ile aktif dosyanın bir sayfasına ADODB bağlantı kurmaya çalışıyorum.
Sanırım atladığım bir noktadan dolayı sabahtan beri uğraşıyorum.

Public DB As ADODB.Connection
Public RS As ADODB.Recordset
Public SQLStr As String
Sub DBON()
On Error Resume Next
Set DB = New ADODB.Connection
'MyPath = Application.ThisWorkbook.Path & "\" & "11 PERSONEL.XLS"
'DB.Open "Driver={Microsoft Excel Driver (*.xls)}; DBQ=" & MyPath
Set DB = CurrentProject.Connection [b][color=red]'Burasını çalıştıramadım.[/b][/color]
End Sub
Sub DBOFF()
On Error Resume Next
DB.Close
Set DB = Nothing
End Sub
Sub RSON()
On Error Resume Next
Set RS = New ADODB.Recordset
RS.CursorLocation = adUseClient
RS.CursorType = adOpenDynamic
RS.LockType = adLockOptimistic
End Sub
Sub RSOFF()
On Error Resume Next
RS.Close
Set RS = Nothing
End Sub
Sub KayitBul()
On Error Resume Next
DBON
RSON
[c4:c7].ClearContents
veri = [c1]
SQLStr = "SELECT * FROM [DATA$] WHERE SİCİL=" & veri & ""
RS.Open SQLStr, DB, 1, 3
If RS.RecordCount = 1 Then
[c4] = RS.Fields("TC")
[c5] = RS.Fields("ADI") & "  " & RS.Fields("SOYADI")
[c6] = RS.Fields("GİRİŞ TARİHİ")
[c7] = RS.Fields("AYLIK ÜCRETİ")
[c1].Select
Sheets(2).Select
[a1].Select
Else
MsgBox "Aradığınız Sicil Bulunamadı.", 64, "UYARI"
[c1].Select
End If
RSOFF
DBOFF
End Sub

 

[Zeki Gürsoy]

Merhaba,
Aktif dosya derken, üzerinde çalıştığınız dosya mı yoksa açık diğer dosya mıdır?
Eğer üzerinde çalıştığınız dosya ise, bununla ilgili az önce "Günün Sorusu" bölümünde dosya ekledim.

 

[Recep İpek]

Evet.İlgili dosyanızda gördüm.

Aynı şekilde üzerinde çalıştığım dosyada bağlantı kurmaya çalışıyorum.

Büyük ihtimalle sizin yaptığınız gibi kullanacağım.Fakat Set DB = CurrentProject.Connection satırı da çalışması gerekiyor.