(Vb.net)Bağlantı kapatılmadı sorunu

0

Kod bloğum aşağıda

"Bağlantı kapatılmadı. Bağlantının geçerli durumu: açık." hatası veriyor

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      
        Dim sayi1 As Integer
        sayi1 = CInt(TextBox2.Text)
        TextBox2.Text = sayi1.ToString("C")
        SetMyCustomFormat()

        bag.Open()


        kmt.CommandText = "SELECT Count(id) from koop"
        Dim a As Integer
        Dim idsorgu
        a = kmt.ExecuteScalar()

        idsorgu = "SELECT id from koop"
        kmt = New OleDbCommand(idsorgu, bag)
        Dim reader As OleDbDataReader = kmt.ExecuteReader()

        Dim b As Integer
        Dim sorgu
        Dim c
        For b = 1 To a

            reader.Read()
            sorgu = " SELECT plaka from koop where id=(" & reader(0).ToString() & ")"
            kmt = New OleDbCommand(sorgu, bag)
            c = kmt.ExecuteScalar()
            kmt.CommandText = "INSERT INTO aidat(plaka, MakbuzNo, Tarih, Miktar,Donem) VALUES ('" & c.ToString() & "','" & TextBox1.Text & "','" & DateTimePicker1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "') "
            kmt.ExecuteNonQuery()


            uret()

        Next
        bag.Close()


        uret()

    End Sub

 

Sub uret()
        
        Randomize()
        Dim sayi1 = Format(Now, "yyyy") & Int(Rnd(1) * (100000))
        Dim ure
        TextBox1.Text = sayi1
        Dim Makbuzno = TextBox1.Text

        kmt.Connection = bag
        bag.Open()

        ure = "Select Makbuzno From aidat Where Makbuzno=" + TextBox1.Text + " "
        kmt = New OleDbCommand(ure, bag)
        Dim dr As OleDbDataReader
        dr = kmt.ExecuteReader

        Do While dr.Read
            
            If dr("Makbuzno") = Makbuzno Then
                Randomize()
                sayi1 = Format(Now, "yyyy") & Int(Rnd(1) * (100000))
                TextBox1.Text = sayi1

            End If

        Loop

        bag.Close()


      
    End Sub

 

sergenk sergenk (1)
5 yıl önce sordu

    Toplam 1 Cevap


    0

    Connection yani bağlantı masraflı bir işlemdir. Yani sistem kaynaklarını meşgul eder ve tüketir.

    O sebepten bir bağlantı açtığında  olabildiğince kısa sürede kapatman gerekir.

    Bağlantıyı açtıkdan sonra  bağlantı açıkken,  aşağıdaki gibi değişken tanımlama, atama yapma gibi işlemleri yapmamalısın.

     SetMyCustomFormat()
    
            bag.Open()
    
    
            kmt.CommandText = "SELECT Count(id) from koop"
            Dim a As Integer
            Dim idsorgu

    Bunları bağlantının dışında yapmalısın.

    degiskenTanimla
    atamaYap
    ......
    ......
    ......
    
    baglanti.Ac
    baglantiUzerindenSorgunuCalistir
    baglantiKapat
    ......

    Eğer sorgu sonucunda veritabanından dönen değer varsa bunu Dataset, datatable gibi bağlantısız çalışacak bir nesne üzerine doldurmalısın. Daha sonra bu veri üzerinde işlem yapmalısın.

    Bağlantın açıkken (Buton1 click olayında) sen yine başka bir bağlantı açılıyorsun(uret).

    Bu yüzden  Bağlantı kapatılmadı. Bağlantının geçerli durumu: açık. hatası alıyorsun.

    alattin alattin (15286)
    5 yıl önce cevaplandı

      üyelik gerektirir

      Cevap yazabilmek için üye girişi yapmalısınız.

      Eğer uzmanim.net üyesiyseniz giriş yapabilirsiniz: üye girişi yap
      uzmanim.net'e üye olmak çok kolaydır: hemen kayıt ol