vb.net mySql Datagridview刷新问题

时间:2016-02-17 18:34:33

标签: mysql vb.net datagridview

最近我试图在datagridview上显示数据,但每次有新条目时,DGV(datagridview)都没有刷新。我创建了一个名为showtable的新方法,但是当我搜索时,我用来获取代码中的模式名称的数据库名称,例如税收到TAX等等。 这是代码:

 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    konekcija = New MySqlConnection
    konekcija.ConnectionString =
        "server=localhost;userid=root;password=root;database=baza"
    Dim READER As MySqlDataReader

    Try
        Dim kupovnacena As Double
        Dim prodaznacena As Double

        kupovnacena = TextBoxKupovna.Text
        prodaznacena = TextBoxProdazna.Text
        If kupovnacena > prodaznacena Then
            MessageBox.Show("Продажната цена не може да биде помала од куповната !")
            TextBoxKupovna.Text = ""
            TextBoxProdazna.Text = ""
        End If

        konekcija.Open()
        If TextBoxBarkod.Text = "" Then
            MessageBox.Show("Внеси баркод/шифра")
        End If
        If TextBoxNaziv.Text = "" Then
            MessageBox.Show("Внеси назив на артиклот")
        End If
        If TextBoxKupovna.Text = "" Then
            MessageBox.Show("Внеси куповна цена на артиклот")
        End If
        If TextBoxProdazna.Text = "" Then
            MessageBox.Show("Внеси продажна цена на артиклот")
            TextBoxProdazna.Text = Focus()
        End If
        Dim Query As String
       Query = "insert into baza.artikli(id,barkod,naziv,kupovna,prodazna,opis,kolicina,proizvoditel,ddv,makpr) values ('" & TextBoxID.Text & "','" & TextBoxBarkod.Text & "','" & TextBoxNaziv.Text & "','" & TextBoxKupovna.Text & "','" & TextBoxProdazna.Text & "','" & TextBoxOpis.Text & "','" & TextBoxKolicina.Text & "','" & TextBoxProiz.Text & "','" & ddv & "','" & makpr & "')"
        COMMAND = New MySqlCommand(Query, konekcija)
        READER = COMMAND.ExecuteReader


        MessageBox.Show("Артиклот е успешно ажуриран !")
        TextBoxBarkod.Text = ""
        TextBoxKupovna.Text = ""
        TextBoxNaziv.Text = ""
        TextBoxOpis.Text = ""
        TextBoxProdazna.Text = ""
        TextBoxKolicina.Text = ""
        TextBoxID.Text = ""
        TextBoxProiz.Text = ""
        konekcija.Close()
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    Finally
        konekcija.Dispose()
        datagridview1.refresh()
    End Try

End Sub

0 个答案:

没有答案