[محمد اسماعيل]

السلام عليكم


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

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

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

[elgokr]

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

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

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

اذا كان قاعدة البيانات هى 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("نجاح عملية العتديل")

[elgokr]

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

كود :

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

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

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

تحياتى لك

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

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

[elgokr]

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

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

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

تحياتى لك

[محمد اسماعيل]

(10-07-18, 11:00 PM)elgokr كتب :

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

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

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

تحياتى لك

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

[elgokr]

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

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

تحياتى لك

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