Sevgili arkadaşlar forumdaki ADO örneklerine bakarak kendi programıma uyarlamaya çalışıyorum fakat bir yerde başarılı olamadım bu konuda sizlerden yardım rica ediyorum.
Problemim, Sorgu çalıştırarak istediğim bilgileri forma getirtiyorum.Çalıştırdığım sorgunun table'ında çok fazla bilgi olacağından ve formumum küçük olması gerektiğinden dolayı sorgu içersindeki değişiklikleri ADO'yla yapmak istiyorum.
Ekteki örnekte göreceğiniz üzere Formu açtığımda combox'la tabledaki donem sorgulatıp RunQuery butonuna basıp formumda sorguyu çalıştırıyorum.Buraya kadar problem yok.Yapmak istediğim P1 ve P2 Mkutusunu tıkladığımda P1 ve P2 ait olan ZBakım_P1 ve PBakım_P1 deki bilgileri form üzerinde ilişkisiz olan ZBakım ve PBakıma gelmesi.Örneklere bakarak ben bunu sadece table'daki ilk kayıt için yapabildim.2nci kayıtta ve üçüncü kayıtta bu bilgiyi getirtemiyorum.
WHERE koşuluyla donemi 2008, 2009 vs. olan bilgileri getirsin istiyorum.
Modalı arkadaşımız aşağıdaki örneğini kendi programıma uyarladım fakat başarılı olamadım bir bilgi gelmiyor.Bana bu konuda yok gösterebilirseniz çok sevinirim.
Teşekkürler.
Private Sub cmdAra_Click()
Dim rs As New ADODB.Recordset
rs.Open "SELECT * FROM Kişiler WHERE SiraNo=" & txtAra & ";", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If rs.RecordCount = 0 Then
MsgBox "İlgili Kayıt Yok", , "Uyarı"
Exit Sub
End If
Me.RecordsetClone.FindFirst "[SiraNo] = " & Me.txtAra
Me.Bookmark = Me.RecordsetClone.Bookmark
rs.Close
End Sub
Problemim, Sorgu çalıştırarak istediğim bilgileri forma getirtiyorum.Çalıştırdığım sorgunun table'ında çok fazla bilgi olacağından ve formumum küçük olması gerektiğinden dolayı sorgu içersindeki değişiklikleri ADO'yla yapmak istiyorum.
Ekteki örnekte göreceğiniz üzere Formu açtığımda combox'la tabledaki donem sorgulatıp RunQuery butonuna basıp formumda sorguyu çalıştırıyorum.Buraya kadar problem yok.Yapmak istediğim P1 ve P2 Mkutusunu tıkladığımda P1 ve P2 ait olan ZBakım_P1 ve PBakım_P1 deki bilgileri form üzerinde ilişkisiz olan ZBakım ve PBakıma gelmesi.Örneklere bakarak ben bunu sadece table'daki ilk kayıt için yapabildim.2nci kayıtta ve üçüncü kayıtta bu bilgiyi getirtemiyorum.
WHERE koşuluyla donemi 2008, 2009 vs. olan bilgileri getirsin istiyorum.
Modalı arkadaşımız aşağıdaki örneğini kendi programıma uyarladım fakat başarılı olamadım bir bilgi gelmiyor.Bana bu konuda yok gösterebilirseniz çok sevinirim.
Teşekkürler.
Private Sub cmdAra_Click()
Dim rs As New ADODB.Recordset
rs.Open "SELECT * FROM Kişiler WHERE SiraNo=" & txtAra & ";", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If rs.RecordCount = 0 Then
MsgBox "İlgili Kayıt Yok", , "Uyarı"
Exit Sub
End If
Me.RecordsetClone.FindFirst "[SiraNo] = " & Me.txtAra
Me.Bookmark = Me.RecordsetClone.Bookmark
rs.Close
End Sub