Imports System.Data.OleDb
\nPublic Class Witaj
\nPrivate Sub Witaj_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
\nDim con As OleDbConnection = New OleDbConnection(„Provider=Microsoft.jet.oledb.4.0;data source=d:\\home\\Dane\\Visual Studio 2008\\Projects\\Baza\\Baza\\Database.mdb”)
\nDim Sql As String
\nSql = „SELECT Organisation.DivisionID, [IMIE] & ’ ’ & [Nazwisko] AS boss ” & _
\n„FROM Organisation INNER JOIN Users ON Organisation.UserID = Users.UserID ” & _
\n„WHERE (((Organisation.Level) = 0 Or (Organisation.Level) = 1)) ” & _
\n„ORDER BY Organisation.Level, Organisation.DivisionName;”
\nDim cmd As OleDbCommand = New OleDbCommand(Sql, con)
\ncon.Open()
\nDim myDA As OleDbDataAdapter = New OleDbDataAdapter(cmd)
\nDim myDataSet As DataSet = New DataSet()
\nmyDA.Fill(myDataSet, „Bosess”)
\nDataGridView1.DataSource = myDataSet.Tables(„Bosess”).DefaultView
\ncon.Close()
\ncon = Nothing<\/p>\n
End Sub
\nEnd Class<\/p>\n","protected":false},"excerpt":{"rendered":"
Imports System.Data.OleDb Public Class Witaj Private Sub Witaj_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim con As OleDbConnection = New OleDbConnection(„Provider=Microsoft.jet.oledb.4.0;data source=d:\\home\\Dane\\Visual Studio 2008\\Projects\\Baza\\Baza\\Database.mdb”)<\/p>\n