Gör ett användargränssnitt i Visual Basic

För att göra programfönstret litet samtidigt som det rymmer mycket kan vi använda en TabControl i ToolBox. Det skapar ett fliksystem på formuläret.

Klicka på TabControl och rita ut en fyrkant på formuläret. Klicka i Properties vid TabPages, på knappen med tre prickar. Ett fönster visas där vi klickar på Add. Det kommer då upp en ruta med Properties i fönstret och en flik i TabControllen. I Properties vid Text kan vi skriva Sök kund. Detta kommer nu också att stå på fliken. Vi kan göra ett par flikar till med texten Sök ort och Sök vara.

Nu skall vi koppla databasen till programmet. Jag går inte igenom det här utan hänvisar till lektionerna i Visual Basic.Net-skolan om databashantering. Där står hur man gör koppling med kod.

Koden kan se ut så här

Dim Connection As String
Dim Sql As String
Dim objDS As New DataSet()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Sql = "SELECT * FROM Kunder WHERE Ort LIKE 'Nora'"
Connection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\VB.Net skola\sql\handel.mdb"
Dim objConn As New OleDb.OleDbConnection(Connection)
Dim objDataAdapter As New OleDb.OleDbDataAdapter(Sql, objConn)
objConn.Open()
objDataAdapter.Fill(objDS, "resultat")
objConn.Close()
End Sub

Antag att vi vill visa resultatet i ett DataGrid. Lägg ut en DataGrid i formuläret. Om det inte finns någon i ToolBox, högerklickar du i ToolBox och väljer Customize ToolBox. Klicka på fliken .Net Framework Components och bocka i DataGrid System.System.Windows Form. Nu finns DataGrid sist i ToolBox. Rita ut ett DataGrid i formuläret. I knappen lägger vi till raden:

DataGrid1.DataSource = objDS.Tables("resultat")

och resultatet av sökningen visas i vårt DataGrid. Hela koden är nu:

Dim Connection As String
Dim Sql As String
Dim objDS As New DataSet()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Sql = "SELECT * FROM Kunder WHERE Ort LIKE 'Nora'"
Connection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\VB.Net skola\sql\handel.mdb"
Dim objConn As New OleDb.OleDbConnection(Connection)
Dim objDataAdapter As New OleDb.OleDbDataAdapter(Sql, objConn)
objConn.Open()
objDataAdapter.Fill(objDS, "resultat")
objConn.Close()
DataGrid1.DataSource = objDS.Tables("resultat")
End Sub

SupportData.Net
©