none
'Fill' çağrılmadan önce SelectCommand özelliği başlatılmamış RRS feed

  • Soru

  •  

    'Fill çağrılmadan önce SelectCommand özelliği başlatılmamış hatası alıyorum lisans tez çalışması acil yardım lütfen?


    Private Sub SilButton_Click(sender As Object, e As EventArgs) Handles SilButton.Click
            Dim kontrol As Integer
            Dim cevap
            cevap = MessageBox.Show("Silmek İstediğinize Eminmisiniz", "silme", MessageBoxButtons.YesNo)
            If cevap = vbYes Then

                baglanti.Open()
                sorgu.Connection = baglanti
                sorgu.CommandType = CommandType.Text
                sorgu.CommandText = "delete from Betonarme where Yapı_No ='" & DataGridView1("Yapı_No", DataGridView1.CurrentRow.Index).Value & "'"
                sorgu.ExecuteNonQuery()
                dtst.Clear()
                adap.Fill(dtst, "Betonarme")
                baglanti.Close()
                If kontrol > 0 Then
                    MessageBox.Show("silme işlemi başarıla gerçekleşti", "ekleme", MessageBoxButtons.OK)
                End If
                analizlistele()
            End If
        End Sub

    4 Ocak 2017 Çarşamba 13:12

Yanıtlar

  • Iyi ki hata almissin, yoksa kodun hatayla ilgili olmayan bolumunde goruleyen cok daha buyuk bir hata var. ASLA boyle SQL cumlesi yazmayin, parametre kullanin. Sirf bu yuzden ben tezinize gecer not vermezdim.

    	cevap = MessageBox.Show("Silmek İstediğinize Eminmisiniz", "silme", MessageBoxButtons.YesNo)
    	If cevap = vbYes Then
    		baglanti.Open()
    		sorgu.Connection = baglanti
    		sorgu.CommandType = CommandType.Text
    		sorgu.CommandText = "delete from Betonarme where Yapı_No =?" 
    		sorgu.Parameters.Add("yapi",oleDbType.VarChar)
    		sorgu.Parameters("yapi").Value = DataGridView1("Yapı_No", DataGridView1.CurrentRow.Index).Value
    		sorgu.ExecuteNonQuery()
    		baglanti.Close()

    sorgu OleDbCommand olarak kabul ettim. Buradaki degiskenlerin tipini, nerede nasil baslatildiklarini hep gizlemissin, verdigin hatayla ilgili bilgi yok bu kod parcasinda. adap var mesela, anlasilan bir OleDbDataAdapter (ya da SqlDataAdapter ...) ama nerede tanimlandigini goremiyoruz ve hata onun SelectCommand'ine isaret ediyor. Belki de adap boyle tanimli:

    dim adap as New OleDbDataAdapter

    adap.Connection = baglanti

    ama SelectCommand yok.

    4 Ocak 2017 Çarşamba 13:44
    Yanıtlayıcı