السلام عليكم ورحمة الله وبركاتة
اخواني الافاضل انا الان اريد جلب البياانات من قاعدة البيانات ووضعها فى الـ RichTextBox
انا استخدم هذه الطريقة لوضع البيانات بداخل الـ Text Box
PHP كود :
TextBox2.DataBindings.Add("text", DataSet1, "t_factor.factor_num")
ياريت لو تدلوني على الطريقة وجزاكم الله خيرا
هل تريد من خلال ذلك عرض النص بحالته تماماً كما أدخلته في حالة الإضافة بحيث يكون على هيئة عدة أسطر؟
إن كان كذلك، فقم بتخزين النص في حالة الإضافة بالطريقة التالية:
كود :
Private Sub SaveTOXOtest()
Dim SSql As String = "INSERT INTO ToxoTestslist (TestName,NormalValue,CostPrice) VALUES(@TestName,@NormalValue,@CostPrice)"
Dim SCMD As New OleDbCommand
If Con.State = ConnectionState.Closed Then
Con.Open()
With SCMD
.Connection = Con
.CommandType = CommandType.Text
.CommandText = SSql
.Parameters.AddWithValue("TestName", txtTestName.Text)
.Parameters.AddWithValue("NormalValue", txtNormalValue.Text.Replace("/r/n", "<br/>"))
.Parameters.AddWithValue("CostPrice", Val(txtTestPrice.Text))
.ExecuteNonQuery()
.Dispose()
End With
Con.Close()
Else
With SCMD
.Connection = Con
.CommandType = CommandType.Text
.CommandText = SSql
.Parameters.AddWithValue("TestName", txtTestName.Text)
.Parameters.AddWithValue("NormalValue", txtNormalValue.Text.Replace("/r/n", "<br/>"))
.Parameters.AddWithValue("CostPrice", Val(txtTestPrice.Text))
.ExecuteNonQuery()
.Dispose()
End With
Con.Close()
End If
End Sub
فلاحظ السطر التالي:
كود :
.Parameters.AddWithValue("NormalValue", txtNormalValue.Text.Replace("/r/n", "<br/>"))
وهو المسؤول عن تخزين النص مع تعدد الأسطر من خلال Textbox عادي.
أما إن كان الهدف غير ذلك فاعذرني.