منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - مشكلة عند اضافة البيانات للسيرفر

السلام عليكم

انا بضيف عادي البيانات للسيرفر ومفيش مشكلة حبيت اجرب كفاءة العمل واضفت 50000 صف مرة واحدة عربي وانجليزي في نفس الصف.

لقيت العربي مرة واحدة بقي علامات ؟؟؟؟ استفهام ولما بضيف صف واحد صف عربي او انجليزي بيظهر عادي بدون مشاكل .

في مشكلة في الكود ولا عادي عشان بيانات كتير ؟

يفضل ارفاق المثال لتوضح قاعدة البيانات المستخدمة

والكود المستخدم حتى يتم توضيح لك اين المشكلة

ولكن بمجرد شرح نظرياً لما لديك

اذا كان قاعدة البيانات هى Sql Server

واذا كان نوع العمود المدخل به البيانات هى nvarchar

وبطبيعة الحال قاعدة البيانات Arabic_CI_AS

كل ما عليك عند اتمام اضافة او التعديل

لنقول ان القيمة المدخلة للعمود كمثال هى

كود :
'" & textbox1.txt & "'

كل ما عليك ان تجعلها بهذه الطريقة

كود :
N'" & textbox1.text & "'

حيث ان حرف الـ N يتم اضافته قبل علامة ''

تحياتى لك

وتمنياتى لك التوفيق

(10-07-18, 06:44 PM)elgokr كتب : [ -> ]
يفضل ارفاق المثال لتوضح قاعدة البيانات المستخدمة

والكود المستخدم حتى يتم توضيح لك اين المشكلة

ولكن بمجرد شرح نظرياً لما لديك

اذا كان قاعدة البيانات هى Sql Server

واذا كان نوع العمود المدخل به البيانات هى nvarchar

وبطبيعة الحال قاعدة البيانات Arabic_CI_AS

كل ما عليك عند اتمام اضافة او التعديل

لنقول ان القيمة المدخلة للعمود كمثال هى

كود :
'" & textbox1.txt & "'

كل ما عليك ان تجعلها بهذه الطريقة

كود :
N'" & textbox1.text & "'

حيث ان حرف الـ N يتم اضافته قبل علامة ''

تحياتى لك

وتمنياتى لك التوفيق

طيب مكان N فين في البراميتر التالي الاضافة والتعديل
دة كود الاضافة

كود :
 Try

            Dim cmd As New SqlCommand("insert into Table_TB(NAME_TB,NOTE_TB) values(@NAME_TB,@NOTE_TB)", conns)

            cmd.Parameters.AddWithValue("@NAME_TB", (TextBox3.Text))

            cmd.Parameters.AddWithValue("@NOTE_TB", (TextBox4.Text))

            conns.Open()

            cmd.ExecuteNonQuery()

            conns.Close()

            ConnectSERVER()

            Me.Refresh()

            MsgBox("نجاح وحفظ الاضافة")

        Catch ex As Exception

            MsgBox("خطا في عملية الاضافة")

        End Try

دة كود التعديل مكان

كود :
Dim sql = "UPDATE Table_TB SET NAME_TB=@NAME_TB,NOTE_TB=@NOTE_TB WHERE Id= @Id"

        Dim sda As SqlDataAdapter = New SqlDataAdapter(sql, con)

        Dim com As SqlCommand = New SqlCommand(sql, con)

        Try

            con.Open()

            com.Parameters.AddWithValue("@Id", TextBox2.Text)

            com.Parameters.AddWithValue("@NAME_TB", TextBox3.Text)

            com.Parameters.AddWithValue("@NOTE_TB", TextBox4.Text)

            com.ExecuteNonQuery()

            MsgBox("نجاح عملية العتديل")

القى نظرة على الكود التالى

كود :
cmd.Parameters.AddWithValue("@NAME_TB", (TextBox3.Text))

القى نظرة على الكود بعد التعديل

كود :
cmd.Parameters.Add(New SqlParameter("@NAME_TB", SqlDbType.NVarChar)).Value = TextBox3.Text

اتمنى ان تكون الفكرة وضحت

طبق ذلك فقط على المدخلات النصوص

تحياتى لك

(10-07-18, 09:07 PM)elgokr كتب : [ -> ]القى نظرة على الكود التالى

كود :
cmd.Parameters.AddWithValue("@NAME_TB", (TextBox3.Text))

القى نظرة على الكود بعد التعديل

كود :
cmd.Parameters.Add(New SqlParameter("@NAME_TB", SqlDbType.NVarChar)).Value = TextBox3.Text

اتمنى ان تكون الفكرة وضحت

طبق ذلك فقط على المدخلات النصوص

تحياتى لك

وصلتني الفكرة

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

يعمل لكلاهما اخى الكريم

وظيفة الكود معالجة الاحرف حيث الانجليزية سيبقي كما هو

والعربية سيتم معالجتها فى حالة تحولها الى رموز

تحياتى لك

(10-07-18, 11:00 PM)elgokr كتب : [ -> ]
يعمل لكلاهما اخى الكريم

وظيفة الكود معالجة الاحرف حيث الانجليزية سيبقي كما هو

والعربية سيتم معالجتها فى حالة تحولها الى رموز

تحياتى لك

يسر الله لك امرك في الدنيا والاخرة

(11-07-18, 03:40 AM)محمد اسماعيل كتب : [ -> ]يسر الله لك امرك في الدنيا والاخرة

اللهم امين ولنا جميعاً يارب

تحياتى لك

وتمنياتى لك التوفيق