29-01-22, 06:18 PM
السلام عليكم ورحمة الله وبركاته
اخوتي ابو خالد الشكري - رضوان الجماعي
التعامل مع الـ SQlServer هو 90% مثل Access
الفرق جملة الاتصال ومكتبة الاتصال
حيث مع الاكسس نستخدم Imports System.Data.Oledb اما السكوال فنستخدم Imports System.Data.SqlClient
واكواد الحفظ والتعديل والحذف نفسها سواء بالوضع المنفصل او المتصل والفرق استبدال Oledb بـ Sql
لاحظ الكود التالي لجلب لبيانات مع الاكسس
مع الـ SqlServer
لايوجد اي اختلاف الا
OleDbCommand
SqlCommand
وبقية الاكواد كذلك
هناك بعض الاختلافات البسيطة بين الاثنين
تشجعوا وادخلوا عالم السيكوال سيرفر والمنتدى واعضاء المنتدى بخدمتكم في اي سؤال
اخوتي ابو خالد الشكري - رضوان الجماعي
التعامل مع الـ 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كود :
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 SubOleDbCommand
SqlCommand
وبقية الاكواد كذلك
هناك بعض الاختلافات البسيطة بين الاثنين
تشجعوا وادخلوا عالم السيكوال سيرفر والمنتدى واعضاء المنتدى بخدمتكم في اي سؤال
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
