منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نقوم بإنشاء صفحة للتصاريح العامة بحيث نستديها من جميع واجهات البرنامج :


    Public CON As New SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=" & Application.StartupPath & "\kk.mdf;Integrated Security=True;User Instance=True")



بحيث نضع قاعدة البيانات في مسار البرنامج
قم فقط بتغيير ااسم القاعدة من الاعلى
kk.mdf


ثم من اول نافذة تظهر اكتب هذا الامر في الفورم لود


        CON.Open()





هذه الدالة نتبعها في دالة التصاريح العامة ونقوم بارسال الاستعلامات التنفيذية كالحذف والاضافة والتعديل ويجب ان تكون فاهم للغة SQL

 Public Function SQLDO(ByVal Selc As String) As String
        SQLDO = ""
        On Error GoTo er
        If CON.State = ConnectionState.Closed Then CON.Open()
        Dim Sd As New SqlClient.SqlCommand(Selc, CON)
        Sd.ExecuteNonQuery()
        If CON.State = ConnectionState.Open Then CON.Close()
        Return ""
er:
        If CON.State = ConnectionState.Open Then CON.Close()
        Return Err.Description
    End Function




ولكي نستخدم هذه الدالة نقوم بارسال الامر من الفورم :
SQLDO("insert into المرضى values (6,'حسين','دارس')")




الامر بسيط جداً
يتبع دروس اخرى

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

شرحٌ جميلٌ بارك اللهُ فيكَ
وياحبذا لو دعمتهُ ببعص الأمثلة فهى خيرُ مثال لتوصيل الفكرة للمبتدئ في قواعد بيانات sql ومنهم العبد الفقير

أحسنت و لكن مثل ما تفضل اخوي هاوي

لو دعمته بمشروع جاهز يكون أفضل ،،

و كرماً لا أمراً إن كان هناك مشروع بقاعدة بيانات تحتوي على أكثر من جدول و ترتبط بعلاقة فأكون لك شاكر