Imports System.Data
Imports System.Data.OleDb
Public Class ConForm
 
    'Private Sub Button1_Click(ByVal sender As System.Object, _
    'ByVal e As System.EventArgs) Handles Button1.Click
 
    'Try 1
    '    '    'Dim objConnection As OleDb.OleDbConnection = _
    '    ''New OleDb.OleDbConnection _
    '    ''("Provider=Microsoft.Jet.OLEDB.4.0;" & _
    '    ''"Data Source=C:\Freibage\WatchGuard.mdb ; _
    '    '    Jet OLEDB:database Password=xy;")
    '    '    ''Dim objDataAdapter As OleDb.OleDbDataAdapter
    '    '    ''Dim objDataSet As DataSet
    '    '    ''Dim objDataView As DataView
    '    '    'Dim cmd As New OleDb.OleDbCommand
    '    '    'Dim COMM As New OleDb.OleDbCommand
 
    '    '    'COMM = New OleDb.OleDbCommand("Select Vorname, _
    '    '    'Nachname FROM User")
 
    '    '    ''cmd.CommandText = "Select Vorname, Nachname FROM User"
    '    '    ''cmd.Connection = objConnection
 
    '    '    'TextBox1.Text = cmd.CommandText
 
 
    'Try 2
    '    Dim conn As OleDb.OleDbConnection = _
    '            New OleDb.OleDbConnection _
    '            ("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data" & _
    "Source=C:\Freibage\WatchGuard.mdb;Password=xy;")
    '    Dim sqlCmd As String = "SELECT * FROM User WHERE Username=*"
    '    Dim dbCmd As OleDbCommand = _
    '    New OleDbCommand(sqlCmd, conn)
    '    conn.Open()
 
    '    'Dim objDataAdapter As OleDb.OleDbDataAdapter
    '    'Dim objDataSet As DataSet
    '    'Dim objDataView As DataView
    '    Dim cmd As New OleDb.OleDbCommand
    '    Dim COMM As New OleDb.OleDbCommand
 
    '    COMM = New OleDb.OleDbCommand("Select * FROM User WHERE Username=*")
 
    '    cmd.CommandText = "Select * FROM User WHERE Username=*"
    '    cmd.Connection = conn
 
    '    TextBox1.Text = cmd.CommandText
    '    conn.Close()
 
    'End Sub
 
    'Try 3
    'Private Sub ConForm_Load(ByVal sender As System.Object, _
    'ByVal e As System.EventArgs) Handles MyBase.Load
    '    Dim myConnection As OleDb.OleDbConnection = _
    '    New OleDb.OleDbConnection _
    '    ("Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
    "Source=C:\Freibage\WatchGuard.mdb;Jet" & _
    "OLEDB:database;Mode=ReadWrite;Persist Security Info=false;Password=xy;")
    '    myConnection.Open()
 
    '    Dim myDataGrid As New DataGrid
    '    Dim strOleDb As String = "Select * FROM User WHERE Username=*"
    '    Dim myCommand As New OleDb.OleDbCommand _
    '    (strOleDb, myConnection)
 
    '    Dim myDataReader As OleDb.OleDbDataReader
    '    myDataReader = myCommand.ExecuteReader _
    '    (CommandBehavior.CloseConnection)
 
    '    myDataGrid.DataSource = myDataReader
 
    '    myConnection.Close()
    'End Sub
 
    'Try 4
    'Private Sub ConForm_Load(ByVal sender As System.Object, _
    'ByVal e As System.EventArgs) Handles MyBase.Load
 
    '    Dim Com As New OleDb.OleDbCommand
    '    Dim Con As New OleDb.OleDbConnection
    '    Dim Read As OleDb.OleDbDataReader
 
    '    Con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
      "Source=C:\Freibage\WatchGuard.mdb;Password=xy;"
    '    'Jet OLEDB:database;Mode=ReadWrite;Persist Security _
    Info=false;Password=mainz05"
    '    Com.CommandType = CommandType.Text
    '    Com.CommandText = "SELECT * From User WHERE Username=*"
 
    '    'Datenbank verbindung öffnen
    '    Con.Open()
 
    '    ' Lesen der information von der Datenbank
    '    Read = Com.ExecuteReader
    '    ' Verbindung zur Datenbank schließen
    '    Con.Close()
 
    'End Sub
 
End Class