Social Icons

twitter facebook rss feed email

السبت، 13 أكتوبر 2012

[خبر] ويندوز 8 قادم بقوة

بسم الله الرحمن الرحيم
اللهم صل على محمد وآل محمد
السلام عليكم ورحمة الله وبركاته



بدأت شركة البرمجيات الأميركية "مايكروسوفت" بإرسال الدعوات الرسمية للصحفيين ووسائل الإعلام لحضور أحداثها المرتقبة التي تعتزم خلالها إطلاق نظام التشغيل "ويندوز 8" الخاص بالحواسيب الشخصية واللوحية بالتزامن مع إطلاق أول حاسب لوحي لها "سيرفس" (Surface) وستطلق كذلك نظام "ويندوز فون 8" الخاص بالهواتف الذكية بتاريخ 26-10-2012م.

الاثنين، 8 أكتوبر 2012

RichTextBox وقواعد البيانات

بسم الله الرحمن الرحيم
اللهم صل على محمد وآل محمد
السلام عليكم ورحمة الله وبركاته

بعد تأخر طويل على آخر مرة قد كتبته فيه أعود إليكم بحل سؤال قد وجدت له إجابة بالتعاون مع الأخ
VbHelper .. جزاه الله خيراً في هذا الموضوع كيفية قراءة السجل التالي .. وتوصلت إلى الحل ..

السؤال كان ..
كيف أقرأ تنسيقات RichTextBox مع التنقل بين السجلات ..
للقراءة سنستخدم هذا الكود ..

Public Sub ReadW()
        Dim reader As New OleDbCommand("select ex from data", Conn)
        reader.Connection.Open()
        Dim dr As OleDbDataReader = reader.ExecuteReader()
        dr.Read()
        RichTextBox1.Rtf = dr.GetString(0)
        reader.Connection.Close()
        dr.Close()
    End Sub
 

على فيس بوك