Here is simple example how to implement access database converted from excel file and embedded
into windows application. Application has some standard icons for database management, also has text box search of City, and post office number. Also data about regional center, district and municipalities are displayed for easy locating true results.
into windows application. Application has some standard icons for database management, also has text box search of City, and post office number. Also data about regional center, district and municipalities are displayed for easy locating true results.
Here is the screen shoot of main window
Also on the bottom is located grid data view
Source CODE:
Public Class Form1
Private Sub Brojevi_poste_RSBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Brojevi_poste_RSBindingNavigatorSaveItem.Click
Me.Validate()
Me.Brojevi_poste_RSBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Brojevi_poste_RSDataSet)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'Brojevi_poste_RSDataSet.brojevi_poste_RS' table. You can move, or remove it, as needed.
Me.Brojevi_poste_RSTableAdapter.Fill(Me.Brojevi_poste_RSDataSet.brojevi_poste_RS)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Brojevi_poste_RSBindingSource.Filter = "[GRAD] = '" & Me.TextBox1.Text & " ' "
End Sub
Private Sub FillByToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Try
Me.Brojevi_poste_RSTableAdapter.FillBy(Me.Brojevi_poste_RSDataSet.brojevi_poste_RS)
Catch ex As System.Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Brojevi_poste_RSBindingSource.Filter = "[BROJ POŠTE] = '" & Me.TextBox2.Text & " ' "
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
System.Diagnostics.Process.Start("http://zoomtronic.blogspot.com")
' http://zoomtronic.blogspot.com
End Sub
End Class
Private Sub Brojevi_poste_RSBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Brojevi_poste_RSBindingNavigatorSaveItem.Click
Me.Validate()
Me.Brojevi_poste_RSBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Brojevi_poste_RSDataSet)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'Brojevi_poste_RSDataSet.brojevi_poste_RS' table. You can move, or remove it, as needed.
Me.Brojevi_poste_RSTableAdapter.Fill(Me.Brojevi_poste_RSDataSet.brojevi_poste_RS)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Brojevi_poste_RSBindingSource.Filter = "[GRAD] = '" & Me.TextBox1.Text & " ' "
End Sub
Private Sub FillByToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Try
Me.Brojevi_poste_RSTableAdapter.FillBy(Me.Brojevi_poste_RSDataSet.brojevi_poste_RS)
Catch ex As System.Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Brojevi_poste_RSBindingSource.Filter = "[BROJ POŠTE] = '" & Me.TextBox2.Text & " ' "
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
System.Diagnostics.Process.Start("http://zoomtronic.blogspot.com")
' http://zoomtronic.blogspot.com
End Sub
End Class
Latest update, new result view trough BIG labels , and search using keywords
Comments
Post a Comment