Option Explicit
 
Dim conOfficeLine As New Connection
 
Dim rsOfficeLine As New Recordset
Dim sqlOfficeLine As String
Dim vOfficeLine As String
 
Private Sub Form_Load()
 
    With conOfficeLine
        .Provider = "SQLOLEDB.1"
        .Properties("Persist Security Info").Value = False
        .Properties("User ID").Value = glbOlUser
        .Properties("Password").Value = glbOlPasswort
        .Properties("Initial Catalog").Value = glbOlDatenbank
        .Properties("Data Source").Value = glbOlServer
        .Open
    End With
 
    sqlOfficeLine = "SELECT * FROM KHKVKBelege"
    rsOfficeLine.LockType = adLockOptimistic
    rsOfficeLine.CursorLocation = adUseClient
    rsOfficeLine.Open sqlOfficeLine, conOfficeLine
 
    GridDarstellen
End Sub
 
Private Sub GridDarstellen()
    With gridAnsicht
        ' autom. Neuzeichnen ausschalten
        .LockUpdate True
 
        ' Recordset-Kopie erstellen
        .CreateClone = True
 
        ' Recordset zuweisen'
        .Clear True
        Set .Recordset = rsOfficeLine
 
        ' autom. Sortierung aktivieren
        .AutoSort = True
 
        ' zuletzt gespeicherte Spaltenbreiten wiederherstellen
        'sevAuftrage.ReadColumnWidth "sevDataGrid", "OffeneAufträge", 
        ' "ColumnWidth"
 
 
        '.Columns("Vorgangsnummer").Align = ALIGNMENT_CENTER
        '.Columns("PositionsZaehler").Align = ALIGNMENT_CENTER
        '.Columns("User").Align = ALIGNMENT_CENTER
        '.Columns("Total").Align = ALIGNMENT_RIGHT
        '.Columns("Wahrung").Align = ALIGNMENT_CENTER
 
        '.Columns("Vorgangsnummer").HeadAlign = ALIGNMENT_CENTER
        '.Columns("PositionsZaehler").HeadAlign = ALIGNMENT_CENTER
        '.Columns("User").HeadAlign = ALIGNMENT_CENTER
        '.Columns("Total").HeadAlign = ALIGNMENT_CENTER
        '.Columns("Wahrung").HeadAlign = ALIGNMENT_CENTER
 
        '.Columns("Vorgangsnummer").Caption = "Vorgangs Nr."
        '.Columns("PositionsZaehler").Caption = "Positionen"
        '.Columns("Wahrung").Caption = ""
        '.Columns("Sort").Visible = False
        '.Columns("KundenNr").Visible = False
 
'        .Columns(1).Align = ALIGNMENT_CENTER
'        .Columns(5).Align = ALIGNMENT_CENTER
'        .Columns(6).Align = ALIGNMENT_CENTER
'        .Columns(6).HeadAlign = ALIGNMENT_CENTER
'        .Columns(5).HeadAlign = ALIGNMENT_CENTER
'        .Columns(1).HeadAlign = ALIGNMENT_CENTER
'        .Columns(1).Caption = "Vorgangs Nr."
'        .Columns(5).Caption = "Positionen"
'        .Columns(10).Visible = False
'        .Columns(11).Visible = False
 
 
        ' Mehrfachselektion zulassen
        .AllowMultiSelect = False
 
        ' interaktives Ändern der Spaltenbreiten zulassen
        .AllowColumnSizing = True
 
        ' Drag & Drop von Spalten zulassen
        .AllowColumnReorder = True
 
        .FixedCol = False
 
         ' Caption anzeigen?
        .CaptionVisible = True
 
        ' autom. Neuzeichnen einschalten
        .LockUpdate False
        .Refresh
 
        ' 1. Zeile selektieren
        .Row = 1
    End With
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    rsOfficeLine.Close
    conOfficeLine.Close
End Sub