منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] وضع البيانات داخل الـ RichTextBox - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : [سؤال] وضع البيانات داخل الـ RichTextBox (/showthread.php?tid=1223)



وضع البيانات داخل الـ RichTextBox - Mido9 - 10-12-13

السلام عليكم ورحمة الله وبركاتة

اخواني الافاضل انا الان اريد جلب البياانات من قاعدة البيانات ووضعها فى الـ RichTextBox

انا استخدم هذه الطريقة لوضع البيانات بداخل الـ Text Box

PHP كود :
TextBox2.DataBindings.Add("text"DataSet1"t_factor.factor_num"


ياريت لو تدلوني على الطريقة وجزاكم الله خيرا


RE: وضع البيانات داخل الـ RichTextBox - أبوبكر سويدان - 10-12-13

هل تريد من خلال ذلك عرض النص بحالته تماماً كما أدخلته في حالة الإضافة بحيث يكون على هيئة عدة أسطر؟
إن كان كذلك، فقم بتخزين النص في حالة الإضافة بالطريقة التالية:
كود :
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 عادي.

أما إن كان الهدف غير ذلك فاعذرني.