Kein Fehler bei Prozedurschritt - nur bei Debuggen mit F5

04/12/2007 - 07:59 von KurtB | Report spam
Hallo NG,

ich bin relativ unerfahren in vb.net und stehe vor eine Ràtsel.
Wenn ich meinen Code (siehe unten) per Prozedurschritt ausführe funktioniert
er fehlerfrei.
Wenn ich in mit F5 starte und durchlaufen lasse bekomme ich in der Zeile
"frmDoc.RichTextBox1.LoadFile..." den Fehler "unerwarteter Dateityp".
Meiner Meinung nach wird beim Schreiben in die Datenbank der RTF-String
zerstört.

Hat jemand eine Idee für mich?

Gruß Kurt


Public Sub ShowDocumentationForm() Implements
INavControl.ShowDocumentationForm
Dim frmDoc As New frmDocumentation
Dim conn As New SqlConnection
Dim sqlStrRead As String
Dim sqlCmdRead As New SqlCommand
Dim sqlParamRead1 As New SqlParameter("rehaCode", SqlDbType.VarChar)
Dim textDataRead As Byte()
Dim streamRead As System.IO.MemoryStream

frmDoc.Text = varFormTitle
frmDoc.user = varUser

conn.ConnectionString = "Data Source=" & varServerName & ";Initial
Catalog=" & varDatabaseName & ";Persist Security
Info=True;Trusted_Connection=Yes;"
sqlStrRead = "SELECT DokumentationText FROM " & varTableName & "
WHERE (ID=@rehaCode)"
sqlCmdRead.CommandText = sqlStrRead
sqlCmdRead.Connection = conn
sqlParamRead1.Value = varRehaCode
sqlCmdRead.Parameters.Add(sqlParamRead1)
conn.Open()
textDataRead = sqlCmdRead.ExecuteScalar
streamRead = New System.IO.MemoryStream(textDataRead)
conn.Close()
sqlCmdRead = Nothing
frmDoc.RichTextBox1.LoadFile(streamRead,
Windows.Forms.RichTextBoxStreamType.RichText)

If frmDoc.ShowDialog = Windows.Forms.DialogResult.Yes Then
Dim sqlStrWrite As String
Dim sqlCmdWrite As New SqlCommand
Dim sqlParamWrite1 As New SqlParameter("rehaCode",
SqlDbType.VarChar)
Dim sqlParamWrite2 As New SqlParameter("docText",
SqlDbType.Image)
Dim textDataWrite As Byte()
Dim streamWrite As New System.IO.MemoryStream
sqlStrWrite = "UPDATE " & varTableName & " Set
DokumentationText=@docText WHERE (ID=@rehaCode)"
frmDoc.RichTextBox1.SaveFile(streamWrite,
Windows.Forms.RichTextBoxStreamType.RichText)
textDataWrite = streamWrite.GetBuffer
sqlCmdWrite.CommandText = sqlStrWrite
sqlCmdWrite.Connection = conn
sqlParamWrite1.Value = varRehaCode
sqlParamWrite2.Value = textDataWrite
sqlCmdWrite.Parameters.Add(sqlParamWrite1)
sqlCmdWrite.Parameters.Add(sqlParamWrite2)
conn.Open()
sqlCmdWrite.ExecuteNonQuery()
conn.Close()
sqlCmdWrite = Nothing
End If
conn = Nothing
End Sub
 

Lesen sie die antworten

#1 Peter Fleischer
04/12/2007 - 21:28 | Warnen spam
"KurtB" schrieb im Newsbeitrag
news:

Wenn ich in mit F5 starte und durchlaufen lasse bekomme ich in der Zeile
"frmDoc.RichTextBox1.LoadFile..." den Fehler "unerwarteter Dateityp".
Meiner Meinung nach wird beim Schreiben in die Datenbank der RTF-String
zerstört.



Vermutlich enthàlt die Datei keinen rtf-formatierter Text.

Viele Gruesse

Peter

Ähnliche fragen