Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Fortschrittanzeige bei Datenauslesung
Autor: Einhorn
Datum: 06.12.17 17:25
Hallo Manfred X, Danke für die Info, ich habe inzwischen diese Lösung gefunden. Ich gehe über das Reader Objekt und koppel diese an die Progressbar. Im 2. Schritt schreibe ich die relevanten Daten in eine DataTable und kann die dann wieder standardmäßig an ein DataGridView binden. Gruß Einhorn Public Sub StatistikEnd(ByVal sqlString As String) Try Dim dt As New DataTable("Peter") ''********** Datenbank öffnen *************** Dim Conn = New SqlConnection() Conn.ConnectionString = statConnStr Conn.Open() '********** Artikeltabelle holen *************** Dim cmd As SqlCommand = New SqlCommand(sqlString, Conn) Dim res As IAsyncResult = cmd.BeginExecuteReader(CommandBehavior.CloseConnection) With frmStatistik .ProgressBar1.Value = 0 While (Not res.IsCompleted) If (.ProgressBar1.Value < .ProgressBar1.Maximum) Then .ProgressBar1.Value += 1 End While Dim dr As SqlDataReader = cmd.EndExecuteReader(res) Showreader(dr) Dim f As Integer = dt.Rows.Count .ProgressBar1.Value = 0 End With Conn.Close() Catch ex As Exception MsgBox("Fehler" & ex.ToString, MsgBoxStyle.Critical) End Try End Sub Private Sub Showreader(dr As IDataReader) While dr.Read Dim rw As DataRow = neueTable.NewRow() rw("TYP") = dr("TYP") rw("GESMENGE") = dr("GESMENGE") rw("BEDATUM") = dr("BEDATUM") rw("BPNUMMER") = dr("BPNUMMER") rw("IDNR") = dr("IDNR") rw("BETRAG") = dr("BETRAG") rw("GEBINDE") = dr("GEBINDE") rw("belegtyp") = dr("belegtyp") rw("PREIS") = dr("PREIS") rw("EINHEIT") = dr("EINHEIT") neueTable.Rows.Add(rw) End While frmStatistik.dgv_statistik_results.DataSource = neueTable End Sub

Fortschrittanzeige bei Datenauslesung	1.935	Einhorn	06.12.17 10:08
Re: Fortschrittanzeige bei Datenauslesung	926	Manfred X	06.12.17 14:53
Re: Fortschrittanzeige bei Datenauslesung	950	Einhorn	06.12.17 17:25

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