Hallo,
bitte nicht erschlagen, wenn das Thema in diesem Forum fehlplatziert ist. Hinweis und ich stelle es richtig ein.
Unter Visual Studio 2005 (Visual Basic) wurde mein Programm 2009 als ClickOnce Anwendung entwickelt, weiter entwickelt und lief stabil und ohne Macken. Am 11.11.2016 wurden diverse Updates auf alle dienstlichen Rechner (Windows 7 Pro / Office 2007 Pro) aufgespielt
und seither tritt sporadisch folgender Fehler auf.
Ich öffne eine System.Data.OleDb.OleDbConnection zu einer Kennwort geschützten Access 2007 Datenbank, führe einen SQL Befehl aus und schließe die Verbindung zur Datenbank wieder. Es werden im Laufe des Tages mehr als 6000 SQL Befehle ausgeführt. Das Programm
lief 24h/Tag/Woche wie bereits erwähnt stabil. Nun steigt der belegte Speicher (RAM) sporadisch an, Mal zwischen den Messpunkten 2 und 3, aber auch zwischen 4 und 5. Belegt werden zwischen 8 und 45 MB und diese werden danach nicht wieder freigegeben.
Das u.a. Skript ist ein Auszug des Originals, welches seit November viele Messpunkte und Logfile Einträge erhalten hat, um dem Fehler auf die Spur zu kommen. Diese habe ich entfernt. Ergänzend noch der Hinweis, im Programm werden Schleifen durchlaufen, welche
z.B. 8 SQL Blöcke je 5 SQL Befehle durchlaufen. Mal steigt der Speicher im Block 4 Befehl 2, dann nach 20 problemlosen Durchläufen im Block 6 Befehl 4. u.s.w. Steigt der belegte Speicher über 105 MB an, wird der Zugriff auf die zuletzt abgefragte
Tabelle der Datenbank für weitere Abfragen gesperrt. Steigt der belegte Speicher um weitere 10 MB an funktioniert kein Zugriff mehr auf die Datenbank. Die zurück gegebene Fehlermeldung lautet:
Es wurde versucht, im geschützten Speicher zu lesen oder zu schreiben. Dies ist
häufig ein Hinweis darauf, dass anderer Speicher beschädigt ist.
Beende ich das Programm und starte es neu, dann läuft die Anwendung wieder und die Access DB ist definitiv nicht defekt. Auch die Protokolldatei ist nach schließen der Verbindung nicht mehr vorhanden.
Laut Protokoll ist die Verbindung nach verlassen der Funktion geschlossen und auch der Dispose Befehl wird korrekt ausgeführt.
Leider gehen mir die Ideen aus, woran diese ominöse Speicherbelegung liegen kann und bitte um Hilfe.
Module MSDN_Forum
Private Enum ConBy As Byte
ConBySQL = 0
ConByOLE = 1
End Enum
Private Enum ExecuteCMD As Byte
vbScalar = 1
vbNonQuery = 2
vbReader = 3
vbInsert = 4
End Enum
Private Structure Structure_db_Conection_Command_Execute
Public SQL_Befehl As String
Public Connection As String
Public ConnectionBy As ConBy
Public Execute As ExecuteCMD
Public StringResultJN As Boolean
Public Password As String
Public Funktionsname As String
Public ErrorJN As Boolean
Public ErrorMSG As String
Public ErrorIndex As Integer
Public StringResult As String
Public IntegerResult As Integer
Public IdentityIndex As Integer
End Structure
Public Function Call_MSDN_Forum() As Boolean
Try
Dim fResult As Structure_db_Conection_Command_Execute
Dim f_Parameter As New Structure_db_Conection_Command_Execute
fResult = f_cmd(f_Parameter)
Catch ex As Exception
MsgBox("Global Error in public Funktion, MSG: " & vbCrLf & ex.Message, MsgBoxStyle.Critical, "MSDN_Forum")
End Try
End Function
Private Function f_cmd(ByRef f_dbcce As Structure_db_Conection_Command_Execute) As Structure_db_Conection_Command_Execute
Dim Messpunkt As Integer = 0
Dim dbcce As New Structure_db_Conection_Command_Execute
Dim cn As System.Data.OleDb.OleDbConnection
Dim cmd As System.Data.OleDb.OleDbCommand
Messpunkt = 1
Try
dbcce = f_dbcce
With dbcce
.Connection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\SERVICE\TEST\Projekt.ACCDB;" & _
"Persist Security Info=False;Jet OLEDB:Database Password=ProJekt#00;"
.ConnectionBy = ConBy.ConByOLE
'.SQL_Befehl = "SELECT init.dbversion as Version FROM init WHERE init.parametername='DBV'"
'.SQL_Befehl = "SELECT COUNT(0) AS AnzahlDS FROM init"
.SQL_Befehl = "UPDATE init SET init.dbversion='2.01.01.215' WHERE init.parametername='DBV'"
'.StringResultJN = True
.StringResultJN = False
.Funktionsname = "ProgrammTest"
'.Execute = ExecuteCMD.vbScalar
.Execute = ExecuteCMD.vbNonQuery
End With
Try
Messpunkt = 2
cn = New System.Data.OleDb.OleDbConnection(dbcce.Connection)
cmd = New System.Data.OleDb.OleDbCommand(dbcce.SQL_Befehl, cn)
Messpunkt = 3
Try
cn.Open()
Select Case dbcce.Execute
Case ExecuteCMD.vbInsert
Case ExecuteCMD.vbNonQuery
Messpunkt = 4
dbcce.IntegerResult = cmd.ExecuteNonQuery()
Messpunkt = 5
Case ExecuteCMD.vbScalar
If dbcce.StringResultJN = True Then
Messpunkt = 4
dbcce.StringResult = cmd.ExecuteScalar().ToString
Messpunkt = 5
Else
Messpunkt = 4
dbcce.IntegerResult = cmd.ExecuteScalar()
Messpunkt = 5
End If
Case Else
End Select
Catch ex As Exception
MsgBox("MP 4 und 5 Error in Funktion (" & Messpunkt.ToString & ")", MsgBoxStyle.Critical, "MSDN_Forum")
Finally
cmd.Dispose()
cmd = Nothing
cn.Close()
cn = Nothing
End Try
Messpunkt = 6
Catch ex As Exception
MsgBox("MP 2 und 3 Error in Funktion (" & Messpunkt.ToString & ")", MsgBoxStyle.Critical, "MSDN_Forum")
End Try
Catch ex As Exception
MsgBox("Global Error in private Funktion after MP (" & Messpunkt.ToString & ")", MsgBoxStyle.Critical, "MSDN_Forum")
f_cmd = New Structure_db_Conection_Command_Execute
With f_cmd
.ErrorIndex = Messpunkt
.ErrorJN = True
.ErrorMSG = ex.Message
End With
End Try
f_cmd = dbcce
End Function
End Module
Anbei noch ein Protokollauszug:
"20170111_04:02:13";"2310";"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
"20170111_04:02:13";"2310";"Memory warning
: Funktion f_cmd_SQL_integer"
"20170111_04:02:13";"2310";"Call by Function
: nv"
"20170111_04:02:13";"2310";"Memory Begin/End
: 59,75/102,43"
"20170111_04:02:13";"2310";"Before/After
Exec: 60,05/102,52"
"20170111_04:02:13";"2310";"Parameter f_SQL
: INSERT INTO t_VH SELECT t_i_VS13.* FROM t_i_VS13 LEFT JOIN (SELECT SANR FROM t_VH WHERE DC='169') AS tmp ON t_i_VS13.SANR = tmp.SANR WHERE ( ((tmp.SANR) Is Null) )"
"20170111_04:02:13";"2310";"Parameter f_cn
: Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\XXXXX\AppData\Local\XXXXX\data\VH169DB.accdb;Persist Security Info=True;Jet OLEDB:Database Password=XXXXXXX;"
"20170111_04:02:13";"2310";"Parameter f_pwd
: "
"20170111_04:02:13";"2310";"Parameter DbExt
: .accdb"
"20170111_04:02:13";"2310";"Parameter Execute : vbNonQuery"
"20170111_04:02:13";"2310";"TimeStamp, before new connection
11.01.2017 04:02:12"
"20170111_04:02:13";"2310";"TimeStamp, before open connection
11.01.2017 04:02:12"
"20170111_04:02:13";"2310";"TimeStamp, before execute
11.01.2017 04:02:12"
"20170111_04:02:13";"2310";"TimeStamp, after execute
11.01.2017 04:02:12"
"20170111_04:02:13";"2310";"TimeStamp, before close connection 11.01.2017 04:02:13"
"20170111_04:02:13";"2310";"TimeStamp, after close connection
11.01.2017 04:02:13"
"20170111_04:02:13";"2310";"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
Vielen Dank und Grüße,
Axel
OleDbConnection belegt sporadisch Speicher (RAM) und gibt diesen dann nicht wieder frei.
