Hi,
hatte mich gerade evtl. unvollständig ausgedrückt....
Ich bestimme mit dem folgenden Quelltext die Dimensionen
einen Textfeldes:
---
Dim cmdGetPointer As New SqlCommand("SELECT @Pointer=TEXTPTR(f_nText),
@Length=DataLength(f_nText) FROM tNews WHERE f_nID=29", SqlConnection1)
Dim PointerOutParam As SqlParameter =
cmdGetPointer.Parameters.Add("@Pointer", SqlDbType.VarBinary, 100)
PointerOutParam.Direction = ParameterDirection.Output
Dim LengthOutParam As SqlParameter = cmdGetPointer.Parameters.Add("@Length",
SqlDbType.Int)
LengthOutParam.Direction = ParameterDirection.Output
SqlConnection1.Open()
cmdGetPointer.ExecuteNonQuery()
---
Danach versuche ich mit
----
Dim cmdReadBinary As New SqlCommand("READTEXT tNews.f_nText @Pointer
@Offset @Size HOLDLOCK", SqlConnection1)
Dim PointerParam As SqlParameter =
cmdReadBinary.Parameters.Add("@Pointer", SqlDbType.Binary, 16)
Dim OffsetParam As SqlParameter =
cmdReadBinary.Parameters.Add("@Offset", SqlDbType.Int)
Dim SizeParam As SqlParameter =
cmdReadBinary.Parameters.Add("@Size", SqlDbType.Int)
Dim dr As SqlDataReader
'Dim fs As New System.IO.FileStream(DestFilePath,
IO.FileMode.Create, IO.FileAccess.Write)
Dim Offset As Integer = 0
OffsetParam.Value = Offset
PointerParam.Value = PointerOutParam.Value
If Offset + BUFFER_LENGTH >= LengthOutParam.Value Then
SizeParam.Value = LengthOutParam.Value - Offset
Else
SizeParam.Value = BUFFER_LENGTH
End If
dr = cmdReadBinary.ExecuteReader(CommandBehavior.SingleResult)
dr.Read()
Dim test As String
test = dr.GetString(0)
dr.Close()
-----
Den Text aus dem Feld zu ziehen....das klappt aber leider nur
bei kürzeren Texten....bei längeren bekommen ich "Langer Text" jemand
ne Idee?
Gruss, Dirk
_______________________________________________
Asp.net Mailingliste, Postings senden an:
Asp.net@glengamoi.com
An-/Abmeldung und Suchfunktion unter:
http://www.glengamoi.com/mailman/listinfo/asp.net
