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”)
Dim Sql As String
Sql = „SELECT Organisation.DivisionID, [IMIE] & ’ ’ & [Nazwisko] AS boss ” & _
„FROM Organisation INNER JOIN Users ON Organisation.UserID = Users.UserID ” & _
„WHERE (((Organisation.Level) = 0 Or (Organisation.Level) = 1)) ” & _
„ORDER BY Organisation.Level, Organisation.DivisionName;”
Dim cmd As OleDbCommand = New OleDbCommand(Sql, con)
con.Open()
Dim myDA As OleDbDataAdapter = New OleDbDataAdapter(cmd)
Dim myDataSet As DataSet = New DataSet()
myDA.Fill(myDataSet, „Bosess”)
DataGridView1.DataSource = myDataSet.Tables(„Bosess”).DefaultView
con.Close()
con = Nothing
End Sub
End Class