Sehr geehrte Damen und Herren,
ich bin gerade dabei ein Programm (in VB.NET) zu schreiben. Hierzu möchte ich gerne aus einer bestehenden
SQL Anywhere Datenbank Daten auslesen. In diesem speziellen Fall, welche im Format LONG BINARY.
Leider funzt das nicht so wie ich dies gerne möchte. Die Daten, die in der Datenbank gespeichert sind, lauten:
0x436f6d705a6c69628c000000789c8b76cbcf2b298ee572ce2f2ac82f4a5408ae2c2e49cdb53634b4368042aee890c424a08a68b79cc474206d009434004ae8999b1b012158454066724969516a2c97351080b5a45694c47255db189b585b5a4374d4ba24162b64169728a400e9e092c4bc94c4a214dd80a2fcacd4ec1205454545060073292924
Mittels eines SQL-Befehls
(RichTextBox1.Text = SQL_binär_abfrage("SELECT text FROM projekte WHERE PROJEKTINDEX='" & _projektIDX & "'", _conn)
möchte ich diese abrufen. In einer Funktion werden sie verarbeitet.
Public Function SQL_binär_abfrage(sql_string As String, connection As SAConnection)
Dim command As New SACommand(sql_string, _conn)
Dim buffer() As Byte = Nothing
Dim reader As SADataReader = Nothing
Dim result As String = ""
Try
reader = command.ExecuteReader
While reader.Read
If Not reader.IsDBNull(0) Then
Dim len = reader.GetBytes(0, 0, Nothing, 0, 0)
ReDim buffer(CInt(len))
reader.GetBytes(0, 0, buffer, 0, CInt(len))
result = System.Text.Encoding.Default.GetString(buffer)
Else
result = ""
End If
End While
reader.Close()
Catch ex As Exception
MessageBox.Show("Fehler: " & ex.Message & " Nummer: " & ex.HResult, "Fehler Fenster...", MessageBoxButtons.OK, MessageBoxIcon.Error)
reader.Close()
End Try
Dim temp = System.Text.Encoding.Default.WebName
Return result
End Function
Sie sollen dann in einer RichText-Box angezeigt werden.
Ich wäre Ihnen sehr dankbar, wenn sie mir einen kleinen Gedankenanstoß oder eine mögliche Lösung mitteilen könnten.
Vielen herzlichen Dank für Ihre Bemühungen.
Mit freundlichen Grüßen
Matthias
Bluesky
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.