ListBox3(dersler var) ü tıkladığımda ListBox2.List deki öğrenci numaraları veritananında bulup D1Y1 ye yazıyor. Ben bu yeriyi değiştirdiğimda veri tabanındaki veri değişmiyor bunu nasıl yapabilirim. Örnekleri incalediğimda kayıdı o noya ait tüm kayıtları siliyor ama ben sadece dersin o notunu silip yeni yazdığımı kaydetsin istiyorum
Kısacası( nonun bulunduğu satırdan sadece 1 sütunu nasıl güncelleyebilirim.diğer verilere dokunmadan.neden mi aynı satırda dolu 200 sutun var)
Private Sub ListBox3_Click()
ognotD1Y1.Value = ""
On Error Resume Next
Set Baglan = New ADODB.Connection
On Error Resume Next
Baglan.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & ThisWorkbook.Path & "\OKUL.mdb;"
Set KAYIT = New ADODB.Recordset
KAYIT.Open "SELECT * FROM [KÜTÜK] where NOSU= '" & ListBox2.List(ListBox2.ListIndex) & "'", Baglan, adOpenDynamic, adLockOptimistic
If Not IsEmpty(ListBox3.List(ListBox3.ListIndex)) Then D1Y1.Value = KAYIT(ListBox3.List(ListBox3.ListIndex))
KAYIT.Close
Set KAYIT = Nothing
Baglan.Close
Set Baglan = Nothing
ogders.Value = ListBox3.List(ListBox3.ListIndex, 0)
End Sub
Kısacası( nonun bulunduğu satırdan sadece 1 sütunu nasıl güncelleyebilirim.diğer verilere dokunmadan.neden mi aynı satırda dolu 200 sutun var)
Private Sub ListBox3_Click()
ognotD1Y1.Value = ""
On Error Resume Next
Set Baglan = New ADODB.Connection
On Error Resume Next
Baglan.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & ThisWorkbook.Path & "\OKUL.mdb;"
Set KAYIT = New ADODB.Recordset
KAYIT.Open "SELECT * FROM [KÜTÜK] where NOSU= '" & ListBox2.List(ListBox2.ListIndex) & "'", Baglan, adOpenDynamic, adLockOptimistic
If Not IsEmpty(ListBox3.List(ListBox3.ListIndex)) Then D1Y1.Value = KAYIT(ListBox3.List(ListBox3.ListIndex))
KAYIT.Close
Set KAYIT = Nothing
Baglan.Close
Set Baglan = Nothing
ogders.Value = ListBox3.List(ListBox3.ListIndex, 0)
End Sub