Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: datagrid - Steuerelement
Autor: Jens L
Datum: 26.02.03 11:14
Mein Beispiel: Public conn1 As New Connection Dim rs As New Recordset 'Datenbank Verbindung öffnen Set conn1 = New ADODB.Connection conn1.CursorLocation = adUseClient conn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & App.Path & "\gut.mdb;" & _ ' Pfad der Datenbank "Persist Security Info=False" ' Recordset erstellen und öffnen ' Set rs = New ADODB.Recordset With rs Set .ActiveConnection = conn1 .CursorLocation = adUseClient .CursorType = adOpenStatic .LockType = adLockOptimistic .Open name ' name der tabelle in access End With 'Testen ob Datensätze in der Tabelle enthalten sind If rs.BOF Then Daten_vorhanden = 1 'Exit Function Else Daten_vorhanden = 0 End If ' DataGrid mit dem Inhalt des Recordsets füllen With DataGrid1 Set .DataSource = rs 'Grid Einstellungen 'Überschrift .HeadFont.Size = 10 .HeadFont = "Arial" .HeadLines = 2 'Schriftart der Gridfelder .Font.name = "Arial" .Font.Size = 10 .MarqueeStyle = 1 'Tabellen Überschrift .Caption = "Vorgang" 'Spalten Einstellungen .Columns(0).Locked = True .Columns(0).Width = 1050 .Columns(0).Alignment = dbgCenter .Columns(0).Caption = "Nummer" .Columns(1).Locked = True .Columns(1).Width = 3670 .Columns(1).Alignment = dbgLeft .Columns(1).Caption = "Aktenzeichen" .Columns(2).Locked = True .Columns(2).Width = 2000 .Columns(2).Alignment = dbgLeft .Columns(2).Caption = "Name" .Columns(3).Locked = True .Columns(3).Width = 1600 .Columns(3).Alignment = dbgCenter .Columns(3).Caption = "Datum" .Columns(4).Locked = True .Columns(4).Width = 3000 .Columns(4).Alignment = dbgLeft .Columns(4).Caption = "Sachbearbeiter" .Columns(5).Locked = True .Columns(5).Width = 3000 .Columns(5).Alignment = dbgLeft .Columns(5).Caption = "Auftraggeber" End With

datagrid - Steuerelement	115	Rantanplan	25.02.03 14:47
Re: datagrid - Steuerelement	41	Jens L	26.02.03 11:14

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen