Listbox Ado Seçili Satır Değiştirme

[hlojan]

Merhaba Ado ile Mysql dan Listbox açıyorum

ListBox2.Clear
Call baglan
sorgu = "select * from cihazstok where kod='" & firmasirala & "' and durum='" & tstok & "' "
kyt.Open sorgu, bgln, 1, 1
If kyt.RecordCount = 0 Then
kyt.Close
 bgln.Close
Set kyt = Nothing: Set bgln = Nothing
Exit Sub
Else
Do Until kyt.EOF
With ListBox2
    .ColumnCount = 7
    .ColumnWidths = "65;65;65;65;65;65;65"
    .AddItem
    .List(i, 0) = kyt("id")
    .List(i, 1) = kyt("kod")
    .List(i, 2) = kyt("sira")
    .List(i, 3) = kyt("seg1")
    .List(i, 4) = kyt("seg2")
    .List(i, 5) = kyt("seg3")
    .List(i, 6) = kyt("labtar")
  

    
i = i + 1
End With
kyt.MoveNext
Loop
kyt.Close
bgln.Close
Set kyt = Nothing: Set bgln = Nothing
End If


TextBox1.Text = " Toplam Ürün" & ListBox2.ListCount & " adet."

Benim sorum bu listeden seçili recordset i nasıl update ederim. İzlenebilirlik olsun diye her kaydın id numarası var.
Tahmini kodum aşağıdaki gibi

Dim idxx As Integer

" burda seçili satırın id sini bulacak kod gerekiyor
Call baglan

sorgu = "select * from cihazstok where id='" & iddx & "'"
kyt.Open sorgu, bgln, 1, 3
kyt("durum") = "İADE"
kyt("iadetar") = Date
kyt.Update
kyt.Close
bgln.Close
Set kyt = Nothing: Set bgln = Nothing

Konu hakkkında yardımlarınızı bekliyorum

 

[hlojan]

Mysql kullandığım için örnek dosya veremiyorum. Anlaşılmayan bir nokta varsa açıklaya bilirim

 

[Orion1]

Listboxta seçili satırın ilk kolonu sorgulanıyor.
Sonra sizin yazdığınız kodda listboxtaki id de değişiklik yapılıyor.
Aşağıdaki kırmızı satırdaki gibi deneyin.

Dim idxx As Integer

" burda seçili satırın id sini bulacak kod gerekiyor
Call baglan

sorgu = "select * from cihazstok where id=" & listbox1.column(0)

kyt.Open sorgu, bgln, 1, 3
kyt("durum") = "İADE"
kyt("iadetar") = Date
kyt.Update
kyt.Close
bgln.Close
Set kyt = Nothing: Set bgln = Nothing

 

[hlojan]

MsgBox ListBox2.Column(1)

Teşekkürler.Bukadar basitmiydi ya . 3 gün bunu aradım.

Geçici aşağıdaki kullandım. Ama mantığını kavrayamadığımdan çoğaltamadım

Dim idxx As Integer

        For k = 0 To ListBox2.ListCount - 1
                  If ListBox2.Selected(k) Then iddx = ListBox2.Text
                  Next k

Senden bir şey daha istesem. Mysql da recordset silme işlemi nasıl yapabilirim

Dim answer As Integer
answer = MsgBox("Gerçekten silmek istiyormusun?", vbYesNo + vbQuestion, "Empty Sheet")
If answer = vbYes Then
GoTo Devam
Else
GoTo ErrorHandler
End If
Devam:
Call baglan

sorgu = "select * from cihaz where kod='" & kod & "' and sira='" & sira & "'"

kyt.Open sorgu, bgln, adOpenDynamic, adLockOptimistic


With kyt

    If Not .BOF And Not .EOF Then

        .MoveLast
        .MoveFirst

        If .Supports(adDelete) Then

        
            .Delete adAffectCurrent

          
        End If
    End If
    
    .Close
    'Make sure you close the recordset...
End With

ExitSub:
    Set kyt = Nothing
    '...and set it to nothing
    Exit Sub
ErrorHandler:
    Exit Sub

Bunu araştırdım buldum. Kopyala yapıştır kullanıyorum. En basit şekilde kayıt silme kodunu yazarsan sevinirim.

Teşekkürler Tekrar

 

[Orion1]

Teşekkürler.Bukadar basitmiydi ya . 3 gün bunu aradım.
Geçici aşağıdaki kullandım. Ama mantığını kavrayamadığımdan çoğaltamadım

Aşağıdaki gibi yapın.

Dim idxx As Integer
idxx= listbox2.column(1)

 

[Orion1]

Bunu araştırdım buldum. Kopyala yapıştır kullanıyorum. En basit şekilde kayıt silme kodunu yazarsan sevinirim.

Yine ayni yerdekimi olacak.Listbnox2 den seçiliptemi silinecek idno deminki gibimi olacak.

 

[hlojan]

Farketmez.

Set bgln = New adodb.Connection
Set kyt = New adodb.Recordset
bgln.Open "Driver={MySQL ODBC 3.51 Driver};Server=" & site & _
                    ";Port=" & port & _
                    ";Database=" & Database & _
                    ";User=" & kullanici & _
                    ";Password=" & sifre & _
                    ";Option=4;" & _
                    ";CharSet=latin5;"

sorgu = "select * from cihaz where kod='" & kod & "' and sira='" & sira & "'"

bunun devamı mesala seçtiğim kyt yi nasıl sileceğim

 

[Orion1]

Silmek için.

Dim idxx As Integer



" burda seçili satırın id sini bulacak kod gerekiyor

Call baglan



sorgu = "select * from cihazstok where id=" & listbox2.column(1)



kyt.delete

kyt.Update

kyt.Close

bgln.Close

Set kyt = Nothing: Set bgln = Nothing

 

[hlojan]

Teşekkürler peki kayıt açma izinleri nasıl olacak

kyt.Open sorgu, bgln, ?,?

 

[Orion1]

Aşağıdaki gibi deneyiniz.

Teşekkürler peki kayıt açma izinleri nasıl olacak
kyt.Open sorgu, bgln, ?,?

kyt.Open sorgu,bgln,1,3

 

[hlojan]

Teşekkürler evren bey bilginize hayranım 2 yıldır çok şey öğrendm

 

[Orion1]

Teşekkürler evren bey bilginize hayranım 2 yıldır çok şey öğrendm

Rica ederim.
Hepimiz beraberce öğreniyoruz işte.
Kolay gelsin.