الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف يتم تخزين حقل multiline في قاعدة البيانات واسترجاعه كما هو؟

مغلقمُجاب
بدأه أبوبكر بن سويدان في 23 مايو 2013 · 1 رد · 798 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

 

أرجو ممن يعلم، أن يوضح لي كيفية تخزين حقل متعدد الأسطر في Visual basic .net 2010 باستخدام ADO.NET وقاعدة بيانات MS Access .mdb.

 

هذا الحقل يتم استرجاعه كما هو : متعدد الأسطر، وبالتالي يمكن عرضه في تقرير crystal Report.

 

لكم تحية.

#2 أفضل إجابة

تم التوصل إلى الحل:

 

1. اجعل الـtextBox متعدد الأسطر من خلال الخاصية MultiLine.

 

2. في كود البرمجة نكتب (وهذا مثال فقط):

 

    Private Sub SaveTOXOtest()
        Dim SSql As String = "INSERT INTO ToxoTests (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/>"))

 

 

هذا هو الكود الذي حل المشكلة.

 

وقد جربت إنشاء تقرير لإظهار هذا الحقل ونجحت ولله الحمد والمنة.

 

 

أتمنى لكم الفائدة.

تم تعديل هذه المشاركة بواسطة أبوبكر بن سويدان في 23 مايو 2013 في 10:44

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…