最近我试图在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