تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة في عمل كود فورم بالاكسس بعد الاتباط بقاعدة بيانات SQl SERVER
#1
السلام عليكم ورحمة الله وبركاتة
كنت اعمل على قاعدة بيانات Access
تكبير قاعدة البيانات وتحويلها الى   SQL SERVER مع الاستمراربالعمل على من واجهة Access
فتم التحويل بنجاح
لكن واجهتني بعض المشاكل
فمثلا لدي هذا ا الكود ومهمته عمل حلقات تكرارية
لاضافة عدة سجلات لجدول اخر غير الجدول الموجود بالنموج
يعمل عند الارتباط بقاعدة بيانات الاكسس بشكل سليم وومتاز ولكن عند الارتباط بقاعدة بيانات السكيول سيرفر
تظهر اخطاء ولا يتم تنفيذ الكود
امل المساعدة في في معرفة الخطأ بالكود
صور الخطأ




كود :
Option Compare Database

Private Sub cmd_Do_Records_Click()
    On Error GoTo err_cmd_Do_Records_Click
   Dim rst As DAO.Recordset
   Dim rstSUB As DAO.Recordset
    Dim mysql As String
   'نقرأ بيانات النموذج الفرعي
   'Set rstSUB = Me.Forme_Sub_Hotel.Form.RecordsetClone
     Set rstSUB = Me.Form.RecordsetClone
 
   rstSUB.MoveLast: rstSUB.MoveFirst
   RCsub = rstSUB.RecordCount
   
   'نقرأ كل سجل من سجلات النموذج الفرعي
   For j = 1 To RCsub
             
       'اذا يوجد علامة صح في حقل "اعمل التغييرات" فقم بحذف السجلات السابقة لهذا الخط ، واعمله من جديد
       If rstSUB!Do_Changes = -1 Then
       
   
           'نجهز الجدول لإدخال/حذف بيانات م
           mysql = "SELECT Auto_id AS Auto, Tabl_Rooms.*"
           mysql = mysql & " FROM Tabl_Rooms"
           mysql = mysql & " WHERE Id_Hotel=" & rstSUB!Auto_id
           mysql = mysql & " AND Num_hotel=" & rstSUB!Num_hotel
           mysql = mysql & " AND Numrihla=" & rstSUB!Numrihla
          mysql = mysql & " ORDER by Auto_id DESC"
          ' Debug.Print mySQL
                         'Set rs = CurrentDb.OpenRecordset(mysql, dbOpenDynaset, dbSeeChanges)

           Set rst = CurrentDb.OpenRecordset(mysql)
           rst.MoveLast: rst.MoveFirst
           RC = rst.RecordCount
   
           If RC > rstSUB!Count_Rooms Then
                       
               
               'نحذف سجلات رقم  من الجدول
               For i = rstSUB!Count_Rooms + 1 To RC
                   rst.Delete
                   rst.MoveNext
               Next i
           
          Else
           
                           rst!Id_Hotel = rstSUB!Auto_id
                     rst!Numrihla = rstSUB!Numrihla
                   rst!Num_city = rstSUB!Num_city
                   rst!Num_hotel = rstSUB!Num_hotel
                   rst!Inserted_By = MyUser.username
                   rst!Insert_date = Now()

               
               
               'نضيف سجلات رقم  في الجدول
               For i = RC + 1 To rstSUB!Count_Rooms
                   rst.addnew
                           rst!Id_Hotel = rstSUB!Auto_id
                     rst!Numrihla = rstSUB!Numrihla
                   rst!Num_city = rstSUB!Num_city
                   rst!Num_hotel = rstSUB!Num_hotel
                       rst!Inserted_By = MyUser.username
                   rst!Insert_date = Now()
                       rst![Num_Room] = i
                   rst.Update
               Next i
           
           End If
           
           'نقوم بتغيير حقل "اعمل التغييرات" ونزيل الصح منها
           rstSUB.Edit
               rstSUB!Do_Changes = 0
           rstSUB.Update
           
           GoTo Exit_cmd_Do_Records_Click
           
       End If 'rstSUB
       rstSUB.MoveNext
   Next j
   
Exit_cmd_Do_Records_Click:

   'احذف البيانات من ذاكرة الكمبيوتر
   rst.Close: Set rst = Nothing
   rstSUB.Close: Set rstSUB = Nothing

Exit Sub
err_cmd_Do_Records_Click:

  ' If Err.Number = 3021 Then
       Resume Next
  ' Else
       MsgBox Err.Number & vbCrLf & Err.Description
  ' End If

'========================================================================
  DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Tabl_Rooms INNER JOIN Tabl_RoomsTemp ON (Tabl_Rooms.Num_Room = Tabl_RoomsTemp.Num_Room) AND (Tabl_Rooms.Numrihla = Tabl_RoomsTemp.Numrihla) AND (Tabl_Rooms.Id_Hotel = Tabl_RoomsTemp.Id_Hotel) SET Tabl_Rooms.Num_Room_Hotel = [Tabl_RoomsTemp]![Num_Room_Hotel], Tabl_Rooms.Number_beds = [Tabl_RoomsTemp]![Number_beds], Tabl_Rooms.Molahzat = [Tabl_RoomsTemp]![Molahzat];"
'MsgBox "ok"


End Sub
الرد
تم الشكر بواسطة:
#2
اخواني من يستطيع المساعده فلا يبخل
فقد بحثت لمدة اسبوع كامل لحل المشكلة ولم اتوصل الى نتيجة
الرد
تم الشكر بواسطة:
#3
السلام عليكم و رحمة الله 
بهذه الحالة لا نستطيع ان نقوم بتشخيص المشكلة 
اخي الكريم هل يمكنك ارفاق المشروع للتعديل عليه ؟ 
او ان كنت لا تمانع ان نرى المشكلة عبر التيم فيور 
 اللهم اغفر لي و لوالديّ و للمؤمنين و المؤمنات 
و المسلمين و المسلمات الأحياء منهم و الأموات 
سبحان الله وبحمده Heart سبحان الله العظيم
الرد
تم الشكر بواسطة: alsihran
#4
اخي اكريم شكرا لك على استجابتك
لا اعرف كيف انقل المشروع
كما اسلفت لك انا جديد في عالم السكيول
اعرف كيف انقل لك قاعدة بيانات اكسس لكن لا اعرف كيف انقل اليك جداول من قاعد بيانات sql server
لو تشرح لي كيف انقل المشروع اكون لك من الشاكرين
الرد
تم الشكر بواسطة: elgokr
#5
تم حل المشكلة
شكرا لك استاذنا الكريم
الرد
تم الشكر بواسطة: elgokr , elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تحويل Function من Vb الى sql server alsihran 5 162 30-11-18, 12:17 AM
آخر رد: mero5000
  استرجاع قاعده بيانات sql server من هاردسك اخر Rabeea Qbaha 0 129 08-11-18, 09:34 PM
آخر رد: Rabeea Qbaha
  اذا ممكن مساعدة في تحويل معادلة في اكسل الى كود sql server sharawee707 10 412 24-10-18, 06:52 PM
آخر رد: sharawee707
  مفاتيح العلاقة بين جدولين بال Sql server عبد العزيز البسكري 7 193 27-09-18, 02:45 AM
آخر رد: elgokr
  [سؤال] كيف اغير اسم قاعدة البيانات للبرنامج من داخل SQL Server ابوثامر الحربي 1 323 14-09-18, 02:52 PM
آخر رد: abo.saad
  ابسط طريقة لحل مشكلة ظهور الحروف العربية على شكل علامات استفهام في SQL Server sendbad100 3 614 01-08-18, 03:27 PM
آخر رد: محمد كريّم
  [سؤال] فتح المرفقات عن طريق sql server محمد القدسي 3 198 02-07-18, 02:31 AM
آخر رد: elgokr
  [سؤال] هل يمكن ربط أكثر من قاعدة بيانات لتعمل علي برنامج واحد Mr.Sherif 3 259 02-07-18, 01:48 AM
آخر رد: elgokr
  [SQL] فيديو بسيط يوضح اساسيت التعامل مه sql server tarek 1 298 03-05-18, 10:36 AM
آخر رد: gergis
  مشكلة في اتصال قاعدة البيانات altho8 1 518 18-02-18, 12:49 PM
آخر رد: altho8

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


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