11-02-22, 09:03 PM
الصفحات : 1 2
20-03-22, 06:43 PM
(29-01-22, 12:24 PM)أبو خالد الشكري كتب : [ -> ]أهلا بك أخي رضواناسف تاخرت البرنامج كبير ممكن اضغطه لك وارسله عبر الوتس اب تمكن من الحصول على اصدار ٢٠١٧ وتأخرت بسبب القرائه في هذا المجال والحمد لله بامكاني اقول اني مبتدا الان في sql وبخلفيه ممتازه
يبدو أنه لن يرد عليَّ أحد من هذا القسم
المشرفون على هذا القسم مشغولون غير فاضين لمطالب الأعضاء
أنا سأحذف هذا الموضوع في وقت لاحق من اليوم !
30-03-22, 12:34 PM
(29-01-22, 06:18 PM)ابراهيم ايبو كتب : [ -> ]السلام عليكم ورحمة الله وبركاتهجزيت خيرا استاذ ابراهيم الحمد لله تمكنت من sql كم ممتع جدا وكل هذا بفضل الله ثم توجيهاتك. خالص احترامي
اخوتي ابو خالد الشكري - رضوان الجماعي
التعامل مع الـ SQlServer هو 90% مثل Access
الفرق جملة الاتصال ومكتبة الاتصال
حيث مع الاكسس نستخدم Imports System.Data.Oledb اما السكوال فنستخدم Imports System.Data.SqlClient
واكواد الحفظ والتعديل والحذف نفسها سواء بالوضع المنفصل او المتصل والفرق استبدال Oledb بـ Sql
لاحظ الكود التالي لجلب لبيانات مع الاكسس
مع الـ SqlServerكود :
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 Sub
OleDbCommand
SqlCommand
وبقية الاكواد كذلك
هناك بعض الاختلافات البسيطة بين الاثنين
تشجعوا وادخلوا عالم السيكوال سيرفر والمنتدى واعضاء المنتدى بخدمتكم في اي سؤال
الصفحات : 1 2