Hallo,
da bin ich wieder (mußte den Semesterstart mit absichern).
Ich habe inzwischen ein Testprogramm, welches auf diesem Beispiel:
"https://docs.microsoft.com/de-de/dotnet/visual-basic/programming-guide/concepts/async/"
basiert. Das sieht so aus:
Private Sub lblDatenBank_Click(sender As Object, e As EventArgs) Handles lblDatenBank.Click
conS = New SqlConnection("Data Source=SQLServer; Initial Catalog=Datenbank;User Id=User;Password=Passwort;Connect Timeout=1")
conS.Open()
If conS.State = ConnectionState.Open Then
If lblDatenBank.Text = "DatenBank" Then
lblDatenBank.Text = "OfenSQL"
Else
lblDatenBank.Text = "DatenBank"
End If
End If
End Sub
Private Sub tmr1S_Tick(sender As Object, e As EventArgs) Handles tmr1S.Tick
Static Dim Nr As Integer = 0
lblZeit.Text = Now.TimeOfDay.ToString.Substring(0, 8)
For i = 1 To 5
Nr += 1
rdrS = AusDB("SELECT Mes_Name, Ger_Name, Mas_Kurz FROM (Messstelle INNER JOIN Masseinheit ON Messstelle.Mes_Mas=Masseinheit.Mas_Nr) INNER JOIN Gerät ON Messstelle.Mes_Ger=Gerät.Ger_Nr WHERE Mes_Ja=1 AND Ger_Ja=1 AND Mes_Nr=" & Nr.ToString)
If Not rdrS Is Nothing Then
If rdrS.Read() Then
DirectCast(Me.Controls("lblGer_" & i.ToString), Label).Text = rdrS.Item("Ger_Name").ToString
DirectCast(Me.Controls("lblMes_" & i.ToString), Label).Text = rdrS.Item("Mes_Name").ToString
DirectCast(Me.Controls("lblWert_" & i.ToString), Label).Text = Nr.ToString
DirectCast(Me.Controls("lblMas_" & i.ToString), Label).Text = rdrS.Item("Mas_Kurz").ToString
End If
rdrS.Close()
End If
If Nr >= 69 Then Nr = 0
Next
End Sub
Private Async Sub SqlNeu_Async()
lblDatenBank.Text = ""
Try
Await Sql_NeuAsync()
If conS.State = ConnectionState.Open Then
lblDatenBank.Text = "OfenSQL"
Else
lblDatenBank.Text = "Datenbank"
End If
Catch ex As Exception
lblDatenBank.Text = "Datenbank"
End Try
End Sub
Async Function Sql_NeuAsync() As Task(Of SqlConnection)
Await conS.OpenAsync
Return conS
End Function
Public Function AusDB(ByVal sql As String) As SqlDataReader
Dim cmdS As SqlCommand
Dim dtm As DateTime = Now
cmdS = New SqlCommand(sql, conS)
AusDB = Nothing
Try
If lblDatenBank.Text = "OfenSQL" Then
AusDB = cmdS.ExecuteReader
lblDatenBank.Text = "OfenSQL"
ElseIf lblDatenBank.Text = "Datenbank" Then
SqlNeu_Async()
End If
Catch ex As Exception
txtResult.Text &= vbCrLf & Now & " AusDB >" & sql & "< " & vbCrLf & "Message: " & ex.Message & vbCrLf & "Source: " & ex.Source & "; " & vbCrLf & "T0String: " & ex.ToString & vbCrLf & "Dauer: " & DateDiff(DateInterval.Second, dtm, Now).ToString
lblDatenBank.Text = "Datenbank"
Finally
cmdS.Dispose()
lblDauer.Text = DateDiff(DateInterval.Second, dtm, Now).ToString
End Try
End Function
Das asynchrone Wiederherstellen funktioniert auch sehr gut (Die Uhr läuft weiter). Nur der "Conect Timeout=1" geht nicht. Nach dem Trennen der Netzwerkverbindung kommt dieser Fehler:
23.10.2019 11:45:54 AusDB >SELECT Mes_Name, Ger_Name, Mas_Kurz FROM (Messstelle INNER JOIN Masseinheit ON Messstelle.Mes_Mas=Masseinheit.Mas_Nr) INNER JOIN Gerät ON Messstelle.Mes_Ger=Gerät.Ger_Nr WHERE Mes_Ja=1 AND Ger_Ja=1 AND Mes_Nr=46<
Message: Fehler auf Übertragungsebene beim Empfang von Ergebnissen vom Server. (provider: TCP Provider, error: 0 - Der angegebene Netzwerkname ist nicht mehr verfügbar.)
Source: .Net SqlClient Data Provider;
ToString: System.Data.SqlClient.SqlException (0x80131904): Fehler auf Übertragungsebene beim Empfang von Ergebnissen vom Server. (provider: TCP Provider, error: 0 - Der angegebene Netzwerkname ist nicht mehr verfügbar.) ---> System.ComponentModel.Win32Exception
(0x80004005): Der angegebene Netzwerkname ist nicht mehr verfügbar
bei System.Data.SqlClient.SqlConnection.OnError(SqlException exception, Boolean breakConnection, Action`1 wrapCloseInAction)
bei System.Data.SqlClient.SqlInternalConnection.OnError(SqlException exception, Boolean breakConnection, Action`1 wrapCloseInAction)
bei System.Data.SqlClient.TdsParser.ThrowExceptionAndWarning(TdsParserStateObject stateObj, Boolean callerHasConnectionLock, Boolean asyncClose)
bei
System.Data.SqlClient.TdsParserStateObject.ReadSniError(TdsParserStateObject stateObj, UInt32 error)
. . .
bei System.Data.SqlClient.SqlCommand.ExecuteReader()
bei WindowsApp1.Form1.AusDB(String sql) in \\tsclient\P\Projekte\VB 15\Projekte\AsyncTest\AsyncTest\Form1.vb:Zeile 121.
ClientConnectionId:5a81d0e4-0d77-4bab-ac95-cf971224f296
Fehlernummer (Error Number):64,Status (State):0,Klasse (Class):20
Dauer: 21
Hab' ich da noch was übersehen? Mit VB2005 auf XP funktionierte das ja schon mal.
Grüße
Uwe Gutsche
