21-10-17, 09:07 PM
(آخر تعديل لهذه المشاركة : 23-10-17, 12:51 PM {2} بواسطة Amir_Alzubidy.
تعديل السبب: تعديل العنوان
)
نقوم بإنشاء صفحة للتصاريح العامة بحيث نستديها من جميع واجهات البرنامج :
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,'حسين','دارس')")
الامر بسيط جداً
يتبع دروس اخرى
عبدالله كميت من اليمن
مبرمج لدى شركة أفق للتطوير والحلول المحاسبية
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,'حسين','دارس')")
الامر بسيط جداً
يتبع دروس اخرى
عبدالله كميت من اليمن
مبرمج لدى شركة أفق للتطوير والحلول المحاسبية