Mdb dosyasından kapalı iken veri almak

[k0081]

Merhaba arkadaşlar;

Arsiv.mdb dosyasından Genel tablosu içindeki Xaciklama kısmında bulunan ilk veriyi bir değişkene nasıl alabilirim ?

Bu işlem Form_Initialize esnasında olacaktır... veriyi aldıktan sonra Form_Load işlemi içinde kullanılacaktır...


Yardımcı arkadaşa şimdiden Teşekkürler...

 

[Erdem Akdemir]

Örnek dosyanızı ekleyebilir misiniz. TOP 1 sorgusu yada where kimlik=1 diyerek olabilir.

 

[k0081]

Dosya Ektedir..

 

[Haluk]

UserForm'un "Initialize" olayı var da .... "Load" olayı yok.

VBA projesi değil galiba...

.

 

[k0081]

Haluk;

VBA projesi değil. Doğrudur Hocam. VB6 çalışması.

 

[Haluk]

O zaman aşağıdaki kodu kendinize uyarlarsınız... "Initialize" olayında bulunan değer, UserForm üzerindeki "CommandButton1"'e tıklayınca MsgBox ile gösteriliyor...

Dim myVal As String
'
Private Sub CommandButton1_Click()
    MsgBox myVal
End Sub
'
Private Sub UserForm_Initialize()
    'Haluk - 16/12/2019
    'E-Posta: sa4truss@gmail.com
    '
    Dim pathMDB As String, adoCn As Object, RS As Object
    Const adOpenKeyset = 1
   
    pathMDB = ThisWorkbook.Path & Application.PathSeparator & "Arsiv.mdb"
   
    If Dir(pathMDB) = Empty Then
        myVal = pathMDB & " bulunamadı!"
        Exit Sub
    End If
   
    Set adoCn = CreateObject("ADODB.Connection")
    adoCn.Provider = "Microsoft.ACE.OLEDB.12.0"
    adoCn.ConnectionString = pathMDB
    adoCn.Open
   
    If adoCn.State = 1 Then
        Set RS = CreateObject("ADODB.Recordset")
   
        strSQL = "Select * from [GENEL]"
   
        RS.Open strSQL, adoCn, adOpenKeyset
       
        If RS.RecordCount > 0 Then
            RS.MoveFirst
            myVal = RS("Xaciklama")
        Else
            myVal = "Herhangi bir veri bulunamadı..."
        End If
           
        RS.Close
    Else
        MsgBox "ADO bağlantısı kurulamadı..."
        GoTo SafeExit:
    End If
   
SafeExit:
    Set RS = Nothing
    Set adoCn = Nothing
End Sub

.

 

[k0081]

Haluk ;


Hocam çok Teşekkür ediyorum, Tamamdır... Elinize-Yüreğinize Sağlık. Tam istediğim gibi.. Teşekkürler.