تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة بسيطة في الصلاحيات
#1
السلام عليكم ورحمة الله وبركاتة

إن شاء الله الجميع يكون في أتم صحه وعافية

أنا في صدد إنهاء مشروعي الاول وسوف اقوم بوضعه في المنتدى قريباً إن شاء الله وسوف يكون يعمل على نسختين أكسس وسيكول سيرفر

ولكن عندي مشكلتين إن شاء الله تكون بسيطة

أستخدمة في صلاحيات المستخدمين مشروع أستاذنا ((سعود )) مع بعض التعديلات البسيطة والمشروع يعمل بشكل ممتاز على قاعدة بيانات أكسس

ولكن عند عمل نسخة أخرى للمشروع تعمل على قاعدة بيانات سيكول سيرفر وجهتني مشكلتين في فورم الصلاحيات فقط .




المشكلة الاولى عند الضغط على الكومبو بوكس يظهر هذا الخطئ:



الكود المستخدم:

PHP كود :
Try

 
           Dim x As String ComboBox1.SelectedValue.ToString
            Dim sql1 
As String "select ch1,ch2,ch3,ch4,ch5,ch6,ch7,ch8,ch9,ch10,ch11,ch12,ch13,ch14,ch15,ch16,ch17 from zarswu where alaism='" "'"
 
           Dim dss As New DataSet
            Dim daa 
As New SqlDataAdapter(sql1co)
 
           daa.Fill(dss"zarswu")
 
           c1.DataBindings.Add(New Binding("checked"dss"zarswu.ch1"))
 
           c2.DataBindings.Add(New Binding("checked"dss"zarswu.ch2"))
 
           c3.DataBindings.Add(New Binding("checked"dss"zarswu.ch3"))
 
           c4.DataBindings.Add(New Binding("checked"dss"zarswu.ch4"))
 
           c5.DataBindings.Add(New Binding("checked"dss"zarswu.ch5"))
 
           c6.DataBindings.Add(New Binding("checked"dss"zarswu.ch6"))
 
           c7.DataBindings.Add(New Binding("checked"dss"zarswu.ch7"))
 
           c8.DataBindings.Add(New Binding("checked"dss"zarswu.ch8"))
 
           c9.DataBindings.Add(New Binding("checked"dss"zarswu.ch9"))
 
           c10.DataBindings.Add(New Binding("checked"dss"zarswu.ch10"))
 
           c11.DataBindings.Add(New Binding("checked"dss"zarswu.ch11"))
 
           c12.DataBindings.Add(New Binding("checked"dss"zarswu.ch12"))
 
           c13.DataBindings.Add(New Binding("checked"dss"zarswu.ch13"))
 
           c14.DataBindings.Add(New Binding("checked"dss"zarswu.ch14"))
 
           C15.DataBindings.Add(New Binding("checked"dss"zarswu.ch15"))
 
           C16.DataBindings.Add(New Binding("checked"dss"zarswu.ch16"))
 
           C17.DataBindings.Add(New Binding("checked"dss"zarswu.ch17"))
 
           c1.DataBindings.Clear()
 
           c2.DataBindings.Clear()
 
           c3.DataBindings.Clear()
 
           c4.DataBindings.Clear()
 
           c5.DataBindings.Clear()
 
           c6.DataBindings.Clear()
 
           c7.DataBindings.Clear()
 
           c8.DataBindings.Clear()
 
           c9.DataBindings.Clear()
 
           c10.DataBindings.Clear()
 
           c11.DataBindings.Clear()
 
           c12.DataBindings.Clear()
 
           c13.DataBindings.Clear()
 
           c14.DataBindings.Clear()
 
           C15.DataBindings.Clear()
 
           C16.DataBindings.Clear()
 
           C17.DataBindings.Clear()
 
       Catch ex As Exception
            MsgBox
(Err.Description)
 
       End Try
 
       co.Close() 



عند الضغط على زر الحفظ يظهر هذا الخطئ:






الكود المستخدم:

PHP كود :
Try
 
           Dim SavInto As New SqlCommand("update zarswu set ch1=" c1.Checked ",ch2=" c2.Checked ",ch3=" c3.Checked ",ch4=" c4.Checked ",ch5=" c5.Checked ",ch6=" c6.Checked ",ch7=" c7.Checked ",ch8=" c8.Checked ",ch9=" c9.Checked ",ch10=" c10.Checked ",ch11=" c11.Checked ",ch12=" c12.Checked ",ch13=" c13.Checked ",ch14=" c14.Checked ",ch15=" C15.Checked ",ch16=" C16.Checked ",ch17=" C17.Checked " where alaism='" ComboBox1.SelectedValue.ToString "'"con)
 
           If con.State ConnectionState.Closed Then
                con
.Open()
 
           End If
 
           SavInto.ExecuteNonQuery()
 
           con.Close()
 
           MsgBox("تم الحفظ"MsgBoxStyle.Information"")
 
           dazarsw = New SqlDataAdapter("SELECT id,alaism,alrraqm,pas,ch1,ch2,ch3,ch4,ch5,ch6,ch7,ch8,ch9,ch10,ch11,ch12,ch13,ch14,ch15,ch16,ch17 FROM zarswu"co)
 
           dazarsw.Fill(zarsw)
 
           Form9.DataGridView1.DataSource zarsw
            Me
.Close()
 
       Catch ex As Exception
            con
.Close()
 
           MsgBox(Err.Description)
 
       End Try 

ارجو مساعدتي في حل المشكلة وشكراً للجميع
اللهم يا ارحم الراحمين ارحم اخي اباليث رحمة واسعة
 
الرد
تم الشكر بواسطة:
#2
للرفع
للرفع
اللهم يا ارحم الراحمين ارحم اخي اباليث رحمة واسعة
 
الرد
تم الشكر بواسطة:
#3
اعتقد اخي جميل ان سبب هذا الخطأ هو ان قاعدة البيانات الاكسس تحتوي على حقل من نوع نعم/لا وهذا غير موجود في SQL Server
حاول تستخدم حقل من نوع bit.
الرد
تم الشكر بواسطة:
#4
مشكور اخوي على المساعده
ولكن بالفعل انا استخدم bit
اللهم يا ارحم الراحمين ارحم اخي اباليث رحمة واسعة
 
الرد
تم الشكر بواسطة:
#5
كل الشكر من بعد الله

للأخ الحبيب

ممدوح الخطيب

تم حل المشكلة

وشكراً للجميع
اللهم يا ارحم الراحمين ارحم اخي اباليث رحمة واسعة
 
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكلة عند البحث بالداتا جريد فيو محمد اسماعيل 4 0 منذ 1 ساعه مضت
آخر رد: محمد اسماعيل
  [سؤال] مشكلة في عمل load لملف xml مرة أخرى وقت التشغيل ... ما الحل ؟ Dr.Sherif Alazizi 1 0 منذ 4 ساعة مضت
آخر رد: طالب برمجة
  مشكلة خاصة بالاتصال بمحرك قاعدة البيانات اكسس 2010 مع فيجوال استوديو 2017 Mohamed Samy21 3 0 18-02-18, 10:50 PM
آخر رد: Mohamed Samy21
  مشكلة ارجو حلها في التعامل مع الصور كناري008 16 0 18-02-18, 08:35 PM
آخر رد: atefkhalf2004
  مشكلة بعد تحزيم البرنامج altho8 0 0 14-02-18, 04:09 PM
آخر رد: altho8
  [VB.NET] ممكن حل مشكلة التعديل من خلال البرنامج فى قاعدة البيانات MOSTAFA.KAMEL 7 0 14-02-18, 02:15 AM
آخر رد: MOSTAFA.KAMEL
Tongue [VB.NET] رحم الله من ساعدني في مشكلة الوقت تظهر لي هذه الرسالة MohammedHikmat 1 0 13-02-18, 06:17 PM
آخر رد: محمود صالح
  عندي مشكلة في البحث بالتاريخ فيجوال بيسك 2008 وقاعدة بيانات اكسس Nedaa 4 0 10-02-18, 08:21 PM
آخر رد: Nedaa
  مشكلة في عمل البرنامج على اجهزة مرتبطة بسيرفر aftfm 3 0 10-02-18, 05:09 PM
آخر رد: hglogtd
  [VB.NET] مشكلة فى جلب البيانات MOSTAFA.KAMEL 9 4 08-02-18, 12:46 AM
آخر رد: MOSTAFA.KAMEL

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم