Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Tabelle in DataGrid ausgeben
Autor: eclere
Datum: 22.04.02 18:39
hallo martina, ich nehm gerne das listview für sowas. das datagrid find ich etwas doof. wenn du probieren willst nimm den code: Dim db As ADODB.Connection Dim strdb As String Dim rst As ADODB.Recordset Dim SQL As String Dim Datei As String Private Sub Form_Load() Dim Breite Dim clmX As ColumnHeader Dim itmX As ListItem Datei = "cata.mdb" Set db = New ADODB.Connection strdb = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ Datei db.Open strdb SQL = "SELECT * FROM Source" Set rst = New ADODB.Recordset rst.CursorType = adOpenStatic rst.LockType = adLockOptimistic rst.Open SQL, db With ListView1 .View = lvwReport Set clmX = .ColumnHeaders.Add(, , "tabelle1", 1000) Set clmX = .ColumnHeaders.Add(, , "tabelle2", 1600) Set clmX = .ColumnHeaders.Add(, , "tabelle3", 1550) Set clmX = .ColumnHeaders.Add(, , "tabelle4", 2500) End With Do While Not rst.EOF Set itmX = ListView1.ListItems.Add(, , rst!Tabelle1) itmX.SubItems(1) = rst!Tabelle2 itmX.SubItems(2) = rst!Tabelle3 itmX.SubItems(3) = rst!Tabelle4 rst.MoveNext Loop rst.Close db.Close End Sub gruss eclere

Tabelle in DataGrid ausgeben	66	Martina	22.04.02 16:22
Fehler 13	39	Nikolai	22.04.02 17:05
Re: Fehler 13	950	Dieter	22.04.02 19:07
Fehler beim Kompilieren: Typen unverträglich	45	Martina	23.04.02 07:38
...	30	Martina	23.04.02 09:04
Re: ...	762	Dieter	23.04.02 10:12
ocx	33	Martina	23.04.02 10:34
Re: ocx	768	Dieter	23.04.02 10:52
Re: ocx	33	Martina	23.04.02 11:01
Hinweis...	769	Dieter	23.04.02 11:11
Re: Hinweis...	25	Martina	23.04.02 11:14
Datenquelle	35	Martina	23.04.02 08:28
Re: Tabelle in DataGrid ausgeben	29	eclere	22.04.02 18:39

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