none
vb de null değeri atama RRS feed

  • Genel Tartışma

  • yapmış olduğum programda haciz bilgileri ile ilgili bir veri tabanım var . haciz bilgileri foyno ya göre kayıt ediliyor ve haciz bilgileri foyno ya göre çağırılıyor. örnegin 8 nolu föyümde haciz bilgileri var ve işlenmiş HACİZ GÖSTER butonuna tıkladığımda sıkıntı yok kayıtlar geliyor. örnek foy 10 da haciz bilgisi işlenmemiş boş HACİZ GÖSTER butonuna tıkladığımda bu sefer hata veriyor ,veri tabanında kayıt olmadığı için, null değerini atmıyor. aşağıdaki kodları kullanıyorum . Yapmak isteğim haciz bilgisi boş dahi açılması yardımlarınız için şimdiden teşekkürler.

             

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

            Dim komutt As New SqlCommand("select * from haciz where foyno = '" & TextBox19.Text & "' ", baglanti)
            baglanti.Open()
            Dim dat As New SqlDataAdapter(komutt)
            Dim dtt As New DataTable
            dat.Fill(dtt)
            haciz.DataGridView1.DataSource = dtt
            baglanti.Close()

            Dim bnkyazitarihimiz, bnksayiyazimizno, bnktarihi, bnksayino, tapyazitarihimiz, tapsayiyazimiz, taptarihi, tapyevmiyeno, trfyazitarihimiz, trfyazinomuz, trfsayino, plakano, trftarih As String
           

            bnkyazitarihimiz = haciz.DataGridView1.CurrentRow.Cells("bnkyazitarihimiz").Value.ToString
            bnksayiyazimizno = haciz.DataGridView1.CurrentRow.Cells("bnksayiyazimizno").Value.ToString
            bnksayino = haciz.DataGridView1.CurrentRow.Cells("bnksayino").Value.ToString
            bnktarihi = haciz.DataGridView1.CurrentRow.Cells("bnktarihi").Value.ToString

            tapyazitarihimiz = haciz.DataGridView1.CurrentRow.Cells("tapyazitarihimiz").Value.ToString
            tapsayiyazimiz = haciz.DataGridView1.CurrentRow.Cells("tapsayiyazimiz").Value.ToString
            taptarihi = haciz.DataGridView1.CurrentRow.Cells("taptarihi").Value.ToString
            tapyevmiyeno = haciz.DataGridView1.CurrentRow.Cells("tapyevmiyeno").Value.ToString

            trfyazitarihimiz = haciz.DataGridView1.CurrentRow.Cells("trfyazitarihimiz").Value.ToString
            trfyazinomuz = haciz.DataGridView1.CurrentRow.Cells("trfyazinomuz").Value.ToString
            trfsayino = haciz.DataGridView1.CurrentRow.Cells("trfsayino").Value.ToString
            plakano = haciz.DataGridView1.CurrentRow.Cells("plakano").Value.ToString
            trftarih = haciz.DataGridView1.CurrentRow.Cells("trftarih").Value.ToString

            haciz.MaskedTextBox9.Text = bnkyazitarihimiz
            haciz.TextBox20.Text = bnksayiyazimizno
            haciz.TextBox1.Text = bnksayino
            haciz.MaskedTextBox1.Text = bnktarihi

            haciz.MaskedTextBox3.Text = tapyazitarihimiz
            haciz.TextBox3.Text = tapsayiyazimiz
            haciz.MaskedTextBox2.Text = taptarihi
            haciz.TextBox2.Text = tapyevmiyeno

            haciz.MaskedTextBox5.Text = trfyazitarihimiz
            haciz.TextBox5.Text = trfyazinomuz
            haciz.TextBox6.Text = trfsayino
            haciz.TextBox4.Text = plakano
            haciz.MaskedTextBox4.Text = trftarih


            haciz.Show()

        End Sub


    bilgi paylaştıkça güzeldir....

    18 Mayıs 2017 Perşembe 13:18