27-05-23, 02:50 AM
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
الحمدلله رب العالمين الرحمن الرحيم و الصلاة والسلام على اشرف الانبياء و المرسلين نبينا محمد و على آله و صحبه اجمعين اما بعد:
السلام عليكم ورحمة الله وبركاته
الحمدلله رب العالمين الرحمن الرحيم و الصلاة والسلام على اشرف الانبياء و المرسلين نبينا محمد و على آله و صحبه اجمعين اما بعد:
الاجراء الاول يحذف مفتاح الجدول الاساسي و الاخر يضيفه
PHP كود :
Public Sub delpk(dbpath As String, tbname As String, ColName As String, Optional dbpass As String = "")
Using con As New OleDb.OleDbConnection(constr(dbpath, dbpass))
Using cm As New OleDb.OleDbCommand("", con)
cm.CommandText = "ALTER TABLE " & tbname & " DROP Constraint " & tbname & "_pk;"
If con.State = ConnectionState.Closed Then con.Open()
Try
cm.ExecuteNonQuery()
MsgBox("تم حذف المفتاح")
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Critical, "Error")
End Try
If con.State = ConnectionState.Open Then con.Close()
End Using
End Using
End Sub
Public Sub addpk(dbpath As String, tbname As String, ColName As String, Optional dbpass As String = "")
Using con As New OleDb.OleDbConnection(constr(dbpath, dbpass))
Using cm As New OleDb.OleDbCommand("", con)
cm.CommandText = "ALTER TABLE " & tbname & " ADD Constraint " & tbname & "_pk PRIMARY KEY (" & ColName & ");"
If con.State = ConnectionState.Closed Then con.Open()
Try
cm.ExecuteNonQuery()
MsgBox("تم اضافة المفتاح")
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Critical, "Error")
End Try
If con.State = ConnectionState.Open Then con.Close()
End Using
End Using
End Sub
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير