تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مرحبا شباب ... اللي يريد يساعدني يرفع يده ويفتح الموضوع فورًا
#11
السلام عليكم
ممكن تنزل القاعدة و سوف أنشأ لك قاعدة على السيكوال سيرفر
أما تحويل البيانات فالمسألة بسيطة إن شاء الله
التميز و الابداع شعاري
الرد }}}
تم الشكر بواسطة:
#12
(29-01-22, 12:24 PM)أبو خالد الشكري كتب : أهلا بك أخي رضوان

يبدو أنه لن يرد عليَّ أحد من هذا القسم

المشرفون على هذا القسم مشغولون غير فاضين لمطالب الأعضاء

أنا سأحذف هذا الموضوع في وقت لاحق من اليوم !
اسف تاخرت البرنامج كبير ممكن اضغطه لك وارسله عبر الوتس اب تمكن من الحصول على اصدار ٢٠١٧ وتأخرت بسبب القرائه في هذا المجال والحمد لله بامكاني اقول اني مبتدا الان في sql وبخلفيه ممتازه

اللهم اني قد نذرت نفسي لمساعدت الاخرين فوفقني وكن لي معين
جاهز لمساعدة اي حد يحتاج لمساعدتي
طبيب اعشق البرمجة . 
الرد }}}
تم الشكر بواسطة:
#13
(29-01-22, 06:18 PM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
اخوتي ابو خالد الشكري - رضوان الجماعي 
التعامل مع الـ SQlServer  هو 90% مثل Access
الفرق جملة الاتصال ومكتبة الاتصال 
حيث مع الاكسس نستخدم Imports System.Data.Oledb   اما السكوال فنستخدم Imports System.Data.SqlClient
واكواد الحفظ والتعديل والحذف نفسها سواء بالوضع المنفصل او المتصل والفرق استبدال Oledb  بـ Sql
لاحظ الكود التالي لجلب لبيانات  مع الاكسس 
كود :
Public Sub SelectAll_Mycode()
       Try
           Dim dt As New DataTable()
           Dim Cmd As New OleDbCommand()
           dt.Clear()
           Cmd = New OleDbCommand("Select * from Mycode", Con)
           If Con.State = ConnectionState.Open Then Con.Close()
           Con.Open()
           dt.Load(Cmd.ExecuteReader())
           Con.Close()
           Dgv_Table.DataSource = (dt)
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try
   End Sub
مع الـ SqlServer
كود :
Public Sub SelectAll_Mycode()
       Try
           Dim dt As New DataTable()
           Dim Cmd As New SqlCommand()
           dt.Clear()
           Cmd = New SqlCommand("Select * from Mycode", Con)
           If Con.State = ConnectionState.Open Then Con.Close()
           Con.Open()
           dt.Load(Cmd.ExecuteReader())
           Con.Close()
           Dgv_Table.DataSource = (dt)
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try
   End Sub
 لايوجد اي اختلاف الا 
OleDbCommand
SqlCommand
وبقية الاكواد كذلك 
هناك بعض الاختلافات البسيطة بين الاثنين
تشجعوا وادخلوا عالم السيكوال سيرفر والمنتدى واعضاء المنتدى بخدمتكم في اي سؤال
جزيت خيرا استاذ ابراهيم الحمد لله تمكنت من sql كم ممتع جدا وكل هذا بفضل الله ثم توجيهاتك. خالص احترامي

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


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


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