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

(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("نجاح عملية العتديل")