evo kodove koje koristim.
Kod za vađenje podataka iz baze
Code:
Public Sub osvijezi()
Dim myCommand As New MySqlCommand
Dim myAdapter As New MySqlDataAdapter
Dim myData As New DataTable
Dim SQL As String
SQL = ("select id, kod, naziv,((cijena * pdv)+cijena) AS cijena, mj_jed, pdv, povratna_naknada, barkod, opis, lager from artikli ORDER BY kod ASC")
Try
If conn.State = ConnectionState.Closed Then
conn.ConnectionString = myConnString1 & ";Allow Zero Datetime=true"
conn.Open()
End If
Try
myCommand.Connection = conn
myCommand.CommandText = SQL
myAdapter.SelectCommand = myCommand
myAdapter.Fill(myData)
dgvArtikli.DataSource = myData
dgvArtikli.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
Call DataGridViewFormat(dgvArtikli)
With dgvArtikli
.AutoResizeRows()
End With
Catch myerror As MySqlException
MsgBox(My.Settings.connstring)
MsgBox("There was an error reading from the database: " & myerror.Message)
End Try
conn.Close()
Catch ex As Exception
End Try
If dgvArtikli.RowCount > 0 Then
'Scroll to the last row.
Me.dgvArtikli.FirstDisplayedScrollingRowIndex = Me.dgvArtikli.RowCount - 1
'Select the last row.
Me.dgvArtikli.Rows(Me.dgvArtikli.RowCount - 1).Selected = True
End If
End Sub
Formatiranje datagridview
Code:
Private Sub DataGridViewFormat(ByRef dgvArtikli As DataGridView)
With dgvArtikli
.AlternatingRowsDefaultCellStyle.BackColor = Color.LightCyan
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.AllowUserToOrderColumns = True
.AllowUserToDeleteRows = False
.AllowUserToAddRows = False
.ReadOnly = True
.MultiSelect = False
.Columns.Clear()
.AutoResizeColumns()
.AutoResizeRows()
Dim ID As New DataGridViewTextBoxColumn
With ID
.DataPropertyName = "id"
.Name = "id"
.HeaderText = "ID"
.AutoSizeMode = DataGridViewAutoSizeColumnMode.ColumnHeader
.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
End With
.Columns.Add(ID)
ID.Visible = False
Dim kod As New DataGridViewTextBoxColumn
With kod
.DataPropertyName = "kod"
.Name = "kod"
.HeaderText = "Šifra Artikla"
.AutoSizeMode = DataGridViewAutoSizeColumnMode.ColumnHeader
.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
End With
.Columns.Add(kod)
Dim naziv As New DataGridViewTextBoxColumn
With naziv
.DataPropertyName = "naziv"
.Name = "naziv"
.HeaderText = "Naziv Artikla"
.MinimumWidth = 250
.AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
End With
.Columns.Add(naziv)
Dim cijena As New DataGridViewTextBoxColumn
With cijena
.DataPropertyName = "cijena"
.Name = "cijena"
.HeaderText = "Cijena"
.DefaultCellStyle.Format = "c"
.AutoSizeMode = DataGridViewAutoSizeColumnMode.DisplayedCells
.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
End With
.Columns.Add(cijena)
Dim pdv As New DataGridViewTextBoxColumn
With pdv
.DataPropertyName = "pdv"
.Name = "pdv"
.HeaderText = "PDV"
.MinimumWidth = 100
.DefaultCellStyle.Format = "p"
.AutoSizeMode = DataGridViewAutoSizeColumnMode.DisplayedCells
.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.DefaultCellStyle.NullValue = "None"
End With
.Columns.Add(pdv)
Dim povratna_naknada As New DataGridViewTextBoxColumn
With povratna_naknada
.DataPropertyName = "povratna_naknada"
.Name = "povratna_naknada"
.HeaderText = "Povratna Naknada"
.DefaultCellStyle.Format = "c"
.AutoSizeMode = DataGridViewAutoSizeColumnMode.DisplayedCells
.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
End With
.Columns.Add(povratna_naknada)
Dim barkod As New DataGridViewTextBoxColumn
With barkod
.DataPropertyName = "barkod"
.Name = "barkod"
.HeaderText = "Barkod"
.MinimumWidth = 150
.AutoSizeMode = DataGridViewAutoSizeColumnMode.DisplayedCells
.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.DefaultCellStyle.NullValue = "None"
End With
.Columns.Add(barkod)
Dim opis As New DataGridViewTextBoxColumn
With opis
.DataPropertyName = "opis"
.Name = "opis"
.HeaderText = "Kratak Opis"
.AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
.DefaultCellStyle.NullValue = "None"
End With
.Columns.Add(opis)
opis.Visible = False
Dim lager As New DataGridViewTextBoxColumn
With lager
.DataPropertyName = "lager"
.Name = "lager"
.HeaderText = "Skaldište"
.AutoSizeMode = DataGridViewAutoSizeColumnMode.DisplayedCells
.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
.DefaultCellStyle.NullValue = "None"
End With
.Columns.Add(lager)
Dim mjed As New DataGridViewTextBoxColumn
With mjed
.DataPropertyName = "mj_jed"
.Name = "mj_jed"
.HeaderText = "M.Jed."
.AutoSizeMode = DataGridViewAutoSizeColumnMode.DisplayedCells
.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
.DefaultCellStyle.NullValue = "None"
End With
.Columns.Add(mjed)
End With
End Sub