30-07-19, 02:45 AM
السلام عليكم اخوتي
عندي مشكله وهي عند اضافة البيانات التي باللغه العربيه في سيكوال سيرفر تظهر علي شكل علامة استفهام فما الحل
وهدا هو الكود
ارجو التعديل عليه
وجزاكم الله خيرا
ثم اقوم باستدعائه في زر الاضافه
عندي مشكله وهي عند اضافة البيانات التي باللغه العربيه في سيكوال سيرفر تظهر علي شكل علامة استفهام فما الحل
وهدا هو الكود
ارجو التعديل عليه
وجزاكم الله خيرا
PHP كود :
Public Sub Insert_Patient(ByVal Code As Integer, ByVal RegistrationDate As Date, ByVal ResultDate As Date, ByVal RegistrationTime As Date, ByVal ResultTime As Date, ByVal PatientTitle As String, ByVal PatientName As String)
'إضافة البيانات
Dim cmd As New SqlCommand("Insert into Patients (Code,RegistrationDate,ResultDate,RegistrationTime,ResultTime,PatientTitle,PatientName) values(@Code,@RegistrationDate,@ResultDate,@RegistrationTime,@ResultTime,@PatientTitle,@PatientName)", connSQL)
cmd.Parameters.Add("Code", SqlDbType.Int).Value = Max_Code_Form_Patients() + 1
cmd.Parameters.Add("RegistrationDate", SqlDbType.Date).Value = RegistrationDate
cmd.Parameters.Add("ResultDate", SqlDbType.Date).Value = ResultDate
cmd.Parameters.Add("RegistrationTime", SqlDbType.VarChar).Value = RegistrationTime
cmd.Parameters.Add("ResultTime", SqlDbType.VarChar).Value = ResultTime
cmd.Parameters.Add("@PatientTitle", SqlDbType.VarChar).Value = PatientTitle
cmd.Parameters.Add("@PatientName", SqlDbType.VarChar).Value = PatientName
If connSQL.State = 1 Then connSQL.Close()
connSQL.Open()
cmd.ExecuteNonQuery()
connSQL.Close()
cmd = Nothing
End Sub
PHP كود :
Insert_Patient(LblCode.Text, DateTimePicker3.Text, DateTimePicker4.Text, lblRegDate.Text, lblResultDate.Text, ComboBox1.Text, ComboBox2.Text)