كيف احفظ نص منسق من RichTextBox الى قاعدة البيانات

i'm so happy n ana shoft you question 3shan ana lsa ba3et so2al zayo bas el zaher n mafeesh 7ad hayrod 3leeeh as you topic.

all my regards to these forums

اقتباس

i'm so happy n ana shoft you question 3shan ana lsa ba3et so2al zayo bas el zaher n mafeesh 7ad hayrod 3leeeh as you topic

الصبر يا kar_eg

علي العموم انت جربت RTF property

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

تابع معي اخي العزيز الطريقة وهي بسيطة وسهلة جدا ،

لقد قلملت بعمل مثال بسيط تجدونه في المرفقات وهذه صورة بسيطة له :

ما الفكرة من هذا المثال ؟

توفر الاداة RichTextBox الخاصية RTF والتي تمثل النص + الشفرة الخاصة به ، فـأنت عندما تكتب كلمة وتقوم بتغيير تنسيقها داخل هذه الاداة ، فغن هناك كود خاص يتم توليده ، فمثلا انت عندما كتبت الموضوع بإستخدام محرر المواضيع في المنتدى تجد انه لا يظهر التنسيق وانما يظهر مجموعة اكواد ورموز خاصة بالتنسيق ، وهنا تأتي اهمية الخاصية RTF والتي يمكن من خلالها استخراج هذا الكود من الأداة ووضعه في حقل بقاعدة البيانات ، ويمكن فيما بعد قراءة سجل من هذا الحقل ووضع محتواه داخل الخاصية RTF للاداة مجددا ( وليس الخاصية TEXT ) لتجد ان النص بكامل تنسيقة قد ظهر مجددا على الاداة !

وما فعلته أنا كان بنفس الفكرة ،

عملت قاعدة بيانات اكسس وضعت فيها جدول اسميته RTF_Field ووضعت به حقل بالإسم RTF_Field وجعلت نوعه Memo " مذكرة " ويمكن ان يكون نص Text ولكن Memo انسب لأنه يتسع لنص كبير جدا .

ثم قمت بعمل البرنامج بشكل سهل جدا ، وضعت أداة RichTextBox ووضعت زرين احدهما لحفظ النص المنسق المعروض على الاداة الى قاعدة البيانات والآخر لعرض كود النص الموجود في قاعدة البيانات الى الأداة مجددا ،

وهذا هو كود البرنامج كاملا :

Imports System.Data.OleDb
Public Class Form1
	Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|DB.mdb")
	Dim myCmd As New OleDbCommand
	Dim rtfReader As OleDbDataReader

	Private Sub btnRead_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRead.Click
		conn.Open()

		myCmd.Connection = conn
		myCmd.CommandType = CommandType.Text
		myCmd.CommandText = "SELECT * FROM RTF_Table"

		rtfReader = myCmd.ExecuteReader
		If rtfReader.Read = True Then
			rtfDB.Rtf = rtfReader.Item("RTF_Field")
		End If
		myCmd.Dispose()
		conn.Close()

	End Sub

	Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
		conn.Open()

		myCmd.Connection = conn
		myCmd.CommandType = CommandType.Text
		myCmd.CommandText = "UPDATE RTF_Table SET RTF_Field =?"

		myCmd.Parameters.Clear()
		myCmd.Parameters.AddWithValue("?", rtfDB.Rtf.ToString)

		myCmd.ExecuteNonQuery()

		myCmd.Dispose()
		conn.Close()
	End Sub
End Class

وضعت الكود حتى تتأكد تماما من عمله وحتى لا اضيع وقت الأخرين بتحميل المرفق !

والآن تقبل تحياتي أخي العزيز ،

أخوك : النبهاني B)

RTF_With_DB.rar

شكراااااااااااااااااااا لك اخي النبهاني

جزاك الله خيرا و زادك علما ... هو ده اللي انا محتاجو بس المشكله ان انا معرفتش اعمل search في الكلام المخزن

thank you