vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Mails senden, abrufen und decodieren - ganz easy ;-)  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB & Datenbanken
Fortschrittanzeige bei Datenauslesung 
Autor: Einhorn
Datum: 06.12.17 10:08

Suche eine Möglichkeit den Fortschritt einer komplexen SQL-Abfrage auf eine SQL Datenbank anzuzeigen.
Darstellung der Ergebnis-Daten in einer DatenGridView.
Wie kann ich das die Fill Methode in eine Progressbar packen?
*********************************
Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork

Try

Dim Conn = New SqlConnection()
Conn.ConnectionString = statConnStr
Conn.Open()
Dim sqlString As String = "Select * From HISTORIE_KUNDEN"
Dim cmdStatistik As New SqlCommand(sqlString, Conn)
Dim dacmdStatistik As New SqlDataAdapter(cmdStatistik)
Dim dtcmdStatistik As New DataTable("HISTORIE_KUNDEN")

dacmdStatistik.Fill(dtcmdStatistik)

newxTable = dtcmdStatistik
Conn.Close()
Catch ex As Exception
MsgBox("Fehler" & ex.ToString, MsgBoxStyle.Critical)
End Try
End Sub
***********************************************************
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Fortschrittanzeige bei Datenauslesung 
Autor: Manfred X
Datum: 06.12.17 14:53

Hallo!

Probieren!
https://bytes.com/topic/visual-basic-net/answers/353220-data-adapter-fill-method-progress-status
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  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
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

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übersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel