Private Sub fillDeviceClasses(ByRef bStatus As Boolean)
        Dim DMDB As New OleDbConnection(frmMain.getProviderString)
        Dim DBSQLStr As String = "SELECT * FROM dbo_DeviceClasses WHERE Status" & _
          "=" & bStatus & ";"
        Dim DBDataAdapter As OleDbDataAdapter
        Dim DBDataset As New DataSet
 
 
        'DataGridView1 definieren
        With DataGridView1
            .AutoGenerateColumns = True
            .AllowUserToOrderColumns = False
            .RowHeadersVisible = False
            .AllowUserToAddRows = False
            .AllowUserToDeleteRows = False
            .ReadOnly = True
        End With
 
 
        'DB Operationen durchführen
        Try
            DMDB.Open()
            DBDataAdapter = New OleDbDataAdapter(DBSQLStr, DMDB)
            DBDataAdapter.Fill(DBDataset, "dbo_DeviceClasses")
            DBDataAdapter.Dispose()
            DMDB.Close()
 
            DataGridView1.DataSource = DBDataset.Tables("dbo_DeviceClasses")
 
 
            'nicht benötigte Spalten ausblenden
            Me.DataGridView1.Columns("deviceclass_ID").Visible = False
            Me.DataGridView1.Columns("Status").Visible = False
            Me.DataGridView1.Columns("Bemerkung").Visible = False
        Catch ex As Exception
            MessageBox.Show("Während der Verarbeitung, trat der folgenden" & _
              "Fehler auf : " & ex.Message, frmMain.sAppName, _
              MessageBoxButtons.OK, MessageBoxIcon.Stop)
        End Try
End Sub

Gruß

steel
*********************
IDE's
Microsoft Visual Studio 2005 professional + SP1
OS
Windows 7 Ultimate + SP1

Beitrag wurde zuletzt am 21.12.16 um 16:20:43 editiert.